module Network.Google.Resource.Classroom.Courses.Update
(
CoursesUpdateResource
, coursesUpdate
, CoursesUpdate
, cuXgafv
, cuUploadProtocol
, cuPp
, cuAccessToken
, cuUploadType
, cuPayload
, cuBearerToken
, cuId
, cuCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesUpdateResource =
"v1" :>
"courses" :>
Capture "id" Text :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Course :> Put '[JSON] Course
data CoursesUpdate = CoursesUpdate
{ _cuXgafv :: !(Maybe Text)
, _cuUploadProtocol :: !(Maybe Text)
, _cuPp :: !Bool
, _cuAccessToken :: !(Maybe Text)
, _cuUploadType :: !(Maybe Text)
, _cuPayload :: !Course
, _cuBearerToken :: !(Maybe Text)
, _cuId :: !Text
, _cuCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
coursesUpdate
:: Course
-> Text
-> CoursesUpdate
coursesUpdate pCuPayload_ pCuId_ =
CoursesUpdate
{ _cuXgafv = Nothing
, _cuUploadProtocol = Nothing
, _cuPp = True
, _cuAccessToken = Nothing
, _cuUploadType = Nothing
, _cuPayload = pCuPayload_
, _cuBearerToken = Nothing
, _cuId = pCuId_
, _cuCallback = Nothing
}
cuXgafv :: Lens' CoursesUpdate (Maybe Text)
cuXgafv = lens _cuXgafv (\ s a -> s{_cuXgafv = a})
cuUploadProtocol :: Lens' CoursesUpdate (Maybe Text)
cuUploadProtocol
= lens _cuUploadProtocol
(\ s a -> s{_cuUploadProtocol = a})
cuPp :: Lens' CoursesUpdate Bool
cuPp = lens _cuPp (\ s a -> s{_cuPp = a})
cuAccessToken :: Lens' CoursesUpdate (Maybe Text)
cuAccessToken
= lens _cuAccessToken
(\ s a -> s{_cuAccessToken = a})
cuUploadType :: Lens' CoursesUpdate (Maybe Text)
cuUploadType
= lens _cuUploadType (\ s a -> s{_cuUploadType = a})
cuPayload :: Lens' CoursesUpdate Course
cuPayload
= lens _cuPayload (\ s a -> s{_cuPayload = a})
cuBearerToken :: Lens' CoursesUpdate (Maybe Text)
cuBearerToken
= lens _cuBearerToken
(\ s a -> s{_cuBearerToken = a})
cuId :: Lens' CoursesUpdate Text
cuId = lens _cuId (\ s a -> s{_cuId = a})
cuCallback :: Lens' CoursesUpdate (Maybe Text)
cuCallback
= lens _cuCallback (\ s a -> s{_cuCallback = a})
instance GoogleRequest CoursesUpdate where
type Rs CoursesUpdate = Course
requestClient CoursesUpdate{..}
= go _cuId _cuXgafv _cuUploadProtocol (Just _cuPp)
_cuAccessToken
_cuUploadType
_cuBearerToken
_cuCallback
(Just AltJSON)
_cuPayload
classroomService
where go
= buildClient (Proxy :: Proxy CoursesUpdateResource)
mempty