{-# 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.Teachers.List
(
CoursesTeachersListResource
, coursesTeachersList
, CoursesTeachersList
, ctltXgafv
, ctltUploadProtocol
, ctltCourseId
, ctltAccessToken
, ctltUploadType
, ctltPageToken
, ctltPageSize
, ctltCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesTeachersListResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"teachers" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "pageToken" Text :>
QueryParam "pageSize" (Textual Int32) :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListTeachersResponse
data CoursesTeachersList =
CoursesTeachersList'
{ _ctltXgafv :: !(Maybe Xgafv)
, _ctltUploadProtocol :: !(Maybe Text)
, _ctltCourseId :: !Text
, _ctltAccessToken :: !(Maybe Text)
, _ctltUploadType :: !(Maybe Text)
, _ctltPageToken :: !(Maybe Text)
, _ctltPageSize :: !(Maybe (Textual Int32))
, _ctltCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
coursesTeachersList
:: Text
-> CoursesTeachersList
coursesTeachersList pCtltCourseId_ =
CoursesTeachersList'
{ _ctltXgafv = Nothing
, _ctltUploadProtocol = Nothing
, _ctltCourseId = pCtltCourseId_
, _ctltAccessToken = Nothing
, _ctltUploadType = Nothing
, _ctltPageToken = Nothing
, _ctltPageSize = Nothing
, _ctltCallback = Nothing
}
ctltXgafv :: Lens' CoursesTeachersList (Maybe Xgafv)
ctltXgafv
= lens _ctltXgafv (\ s a -> s{_ctltXgafv = a})
ctltUploadProtocol :: Lens' CoursesTeachersList (Maybe Text)
ctltUploadProtocol
= lens _ctltUploadProtocol
(\ s a -> s{_ctltUploadProtocol = a})
ctltCourseId :: Lens' CoursesTeachersList Text
ctltCourseId
= lens _ctltCourseId (\ s a -> s{_ctltCourseId = a})
ctltAccessToken :: Lens' CoursesTeachersList (Maybe Text)
ctltAccessToken
= lens _ctltAccessToken
(\ s a -> s{_ctltAccessToken = a})
ctltUploadType :: Lens' CoursesTeachersList (Maybe Text)
ctltUploadType
= lens _ctltUploadType
(\ s a -> s{_ctltUploadType = a})
ctltPageToken :: Lens' CoursesTeachersList (Maybe Text)
ctltPageToken
= lens _ctltPageToken
(\ s a -> s{_ctltPageToken = a})
ctltPageSize :: Lens' CoursesTeachersList (Maybe Int32)
ctltPageSize
= lens _ctltPageSize (\ s a -> s{_ctltPageSize = a})
. mapping _Coerce
ctltCallback :: Lens' CoursesTeachersList (Maybe Text)
ctltCallback
= lens _ctltCallback (\ s a -> s{_ctltCallback = a})
instance GoogleRequest CoursesTeachersList where
type Rs CoursesTeachersList = ListTeachersResponse
type Scopes CoursesTeachersList =
'["https://www.googleapis.com/auth/classroom.profile.emails",
"https://www.googleapis.com/auth/classroom.profile.photos",
"https://www.googleapis.com/auth/classroom.rosters",
"https://www.googleapis.com/auth/classroom.rosters.readonly"]
requestClient CoursesTeachersList'{..}
= go _ctltCourseId _ctltXgafv _ctltUploadProtocol
_ctltAccessToken
_ctltUploadType
_ctltPageToken
_ctltPageSize
_ctltCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesTeachersListResource)
mempty