{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Classroom.Courses.Topics.Create
(
CoursesTopicsCreateResource
, coursesTopicsCreate
, CoursesTopicsCreate
, ctctXgafv
, ctctUploadProtocol
, ctctCourseId
, ctctAccessToken
, ctctUploadType
, ctctPayload
, ctctCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesTopicsCreateResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"topics" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Topic :> Post '[JSON] Topic
data CoursesTopicsCreate =
CoursesTopicsCreate'
{ _ctctXgafv :: !(Maybe Xgafv)
, _ctctUploadProtocol :: !(Maybe Text)
, _ctctCourseId :: !Text
, _ctctAccessToken :: !(Maybe Text)
, _ctctUploadType :: !(Maybe Text)
, _ctctPayload :: !Topic
, _ctctCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
coursesTopicsCreate
:: Text
-> Topic
-> CoursesTopicsCreate
coursesTopicsCreate pCtctCourseId_ pCtctPayload_ =
CoursesTopicsCreate'
{ _ctctXgafv = Nothing
, _ctctUploadProtocol = Nothing
, _ctctCourseId = pCtctCourseId_
, _ctctAccessToken = Nothing
, _ctctUploadType = Nothing
, _ctctPayload = pCtctPayload_
, _ctctCallback = Nothing
}
ctctXgafv :: Lens' CoursesTopicsCreate (Maybe Xgafv)
ctctXgafv
= lens _ctctXgafv (\ s a -> s{_ctctXgafv = a})
ctctUploadProtocol :: Lens' CoursesTopicsCreate (Maybe Text)
ctctUploadProtocol
= lens _ctctUploadProtocol
(\ s a -> s{_ctctUploadProtocol = a})
ctctCourseId :: Lens' CoursesTopicsCreate Text
ctctCourseId
= lens _ctctCourseId (\ s a -> s{_ctctCourseId = a})
ctctAccessToken :: Lens' CoursesTopicsCreate (Maybe Text)
ctctAccessToken
= lens _ctctAccessToken
(\ s a -> s{_ctctAccessToken = a})
ctctUploadType :: Lens' CoursesTopicsCreate (Maybe Text)
ctctUploadType
= lens _ctctUploadType
(\ s a -> s{_ctctUploadType = a})
ctctPayload :: Lens' CoursesTopicsCreate Topic
ctctPayload
= lens _ctctPayload (\ s a -> s{_ctctPayload = a})
ctctCallback :: Lens' CoursesTopicsCreate (Maybe Text)
ctctCallback
= lens _ctctCallback (\ s a -> s{_ctctCallback = a})
instance GoogleRequest CoursesTopicsCreate where
type Rs CoursesTopicsCreate = Topic
type Scopes CoursesTopicsCreate =
'["https://www.googleapis.com/auth/classroom.topics"]
requestClient CoursesTopicsCreate'{..}
= go _ctctCourseId _ctctXgafv _ctctUploadProtocol
_ctctAccessToken
_ctctUploadType
_ctctCallback
(Just AltJSON)
_ctctPayload
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesTopicsCreateResource)
mempty