module Network.Google.Resource.Classroom.Courses.Teachers.List
(
CoursesTeachersListResource
, coursesTeachersList
, CoursesTeachersList
, ctlXgafv
, ctlUploadProtocol
, ctlPp
, ctlCourseId
, ctlAccessToken
, ctlUploadType
, ctlBearerToken
, ctlPageToken
, ctlPageSize
, ctlCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesTeachersListResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"teachers" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListTeachersResponse
data CoursesTeachersList = CoursesTeachersList
{ _ctlXgafv :: !(Maybe Text)
, _ctlUploadProtocol :: !(Maybe Text)
, _ctlPp :: !Bool
, _ctlCourseId :: !Text
, _ctlAccessToken :: !(Maybe Text)
, _ctlUploadType :: !(Maybe Text)
, _ctlBearerToken :: !(Maybe Text)
, _ctlPageToken :: !(Maybe Text)
, _ctlPageSize :: !(Maybe (Textual Int32))
, _ctlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
coursesTeachersList
:: Text
-> CoursesTeachersList
coursesTeachersList pCtlCourseId_ =
CoursesTeachersList
{ _ctlXgafv = Nothing
, _ctlUploadProtocol = Nothing
, _ctlPp = True
, _ctlCourseId = pCtlCourseId_
, _ctlAccessToken = Nothing
, _ctlUploadType = Nothing
, _ctlBearerToken = Nothing
, _ctlPageToken = Nothing
, _ctlPageSize = Nothing
, _ctlCallback = Nothing
}
ctlXgafv :: Lens' CoursesTeachersList (Maybe Text)
ctlXgafv = lens _ctlXgafv (\ s a -> s{_ctlXgafv = a})
ctlUploadProtocol :: Lens' CoursesTeachersList (Maybe Text)
ctlUploadProtocol
= lens _ctlUploadProtocol
(\ s a -> s{_ctlUploadProtocol = a})
ctlPp :: Lens' CoursesTeachersList Bool
ctlPp = lens _ctlPp (\ s a -> s{_ctlPp = a})
ctlCourseId :: Lens' CoursesTeachersList Text
ctlCourseId
= lens _ctlCourseId (\ s a -> s{_ctlCourseId = a})
ctlAccessToken :: Lens' CoursesTeachersList (Maybe Text)
ctlAccessToken
= lens _ctlAccessToken
(\ s a -> s{_ctlAccessToken = a})
ctlUploadType :: Lens' CoursesTeachersList (Maybe Text)
ctlUploadType
= lens _ctlUploadType
(\ s a -> s{_ctlUploadType = a})
ctlBearerToken :: Lens' CoursesTeachersList (Maybe Text)
ctlBearerToken
= lens _ctlBearerToken
(\ s a -> s{_ctlBearerToken = a})
ctlPageToken :: Lens' CoursesTeachersList (Maybe Text)
ctlPageToken
= lens _ctlPageToken (\ s a -> s{_ctlPageToken = a})
ctlPageSize :: Lens' CoursesTeachersList (Maybe Int32)
ctlPageSize
= lens _ctlPageSize (\ s a -> s{_ctlPageSize = a}) .
mapping _Coerce
ctlCallback :: Lens' CoursesTeachersList (Maybe Text)
ctlCallback
= lens _ctlCallback (\ s a -> s{_ctlCallback = a})
instance GoogleRequest CoursesTeachersList where
type Rs CoursesTeachersList = ListTeachersResponse
requestClient CoursesTeachersList{..}
= go _ctlCourseId _ctlXgafv _ctlUploadProtocol
(Just _ctlPp)
_ctlAccessToken
_ctlUploadType
_ctlBearerToken
_ctlPageToken
_ctlPageSize
_ctlCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesTeachersListResource)
mempty