module Network.Google.Resource.Classroom.Courses.Aliases.List
(
CoursesAliasesListResource
, coursesAliasesList
, CoursesAliasesList
, calXgafv
, calUploadProtocol
, calPp
, calCourseId
, calAccessToken
, calUploadType
, calBearerToken
, calPageToken
, calPageSize
, calCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesAliasesListResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"aliases" :>
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] ListCourseAliasesResponse
data CoursesAliasesList = CoursesAliasesList'
{ _calXgafv :: !(Maybe Text)
, _calUploadProtocol :: !(Maybe Text)
, _calPp :: !Bool
, _calCourseId :: !Text
, _calAccessToken :: !(Maybe Text)
, _calUploadType :: !(Maybe Text)
, _calBearerToken :: !(Maybe Text)
, _calPageToken :: !(Maybe Text)
, _calPageSize :: !(Maybe (Textual Int32))
, _calCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
coursesAliasesList
:: Text
-> CoursesAliasesList
coursesAliasesList pCalCourseId_ =
CoursesAliasesList'
{ _calXgafv = Nothing
, _calUploadProtocol = Nothing
, _calPp = True
, _calCourseId = pCalCourseId_
, _calAccessToken = Nothing
, _calUploadType = Nothing
, _calBearerToken = Nothing
, _calPageToken = Nothing
, _calPageSize = Nothing
, _calCallback = Nothing
}
calXgafv :: Lens' CoursesAliasesList (Maybe Text)
calXgafv = lens _calXgafv (\ s a -> s{_calXgafv = a})
calUploadProtocol :: Lens' CoursesAliasesList (Maybe Text)
calUploadProtocol
= lens _calUploadProtocol
(\ s a -> s{_calUploadProtocol = a})
calPp :: Lens' CoursesAliasesList Bool
calPp = lens _calPp (\ s a -> s{_calPp = a})
calCourseId :: Lens' CoursesAliasesList Text
calCourseId
= lens _calCourseId (\ s a -> s{_calCourseId = a})
calAccessToken :: Lens' CoursesAliasesList (Maybe Text)
calAccessToken
= lens _calAccessToken
(\ s a -> s{_calAccessToken = a})
calUploadType :: Lens' CoursesAliasesList (Maybe Text)
calUploadType
= lens _calUploadType
(\ s a -> s{_calUploadType = a})
calBearerToken :: Lens' CoursesAliasesList (Maybe Text)
calBearerToken
= lens _calBearerToken
(\ s a -> s{_calBearerToken = a})
calPageToken :: Lens' CoursesAliasesList (Maybe Text)
calPageToken
= lens _calPageToken (\ s a -> s{_calPageToken = a})
calPageSize :: Lens' CoursesAliasesList (Maybe Int32)
calPageSize
= lens _calPageSize (\ s a -> s{_calPageSize = a}) .
mapping _Coerce
calCallback :: Lens' CoursesAliasesList (Maybe Text)
calCallback
= lens _calCallback (\ s a -> s{_calCallback = a})
instance GoogleRequest CoursesAliasesList where
type Rs CoursesAliasesList =
ListCourseAliasesResponse
type Scopes CoursesAliasesList =
'["https://www.googleapis.com/auth/classroom.courses",
"https://www.googleapis.com/auth/classroom.courses.readonly"]
requestClient CoursesAliasesList'{..}
= go _calCourseId _calXgafv _calUploadProtocol
(Just _calPp)
_calAccessToken
_calUploadType
_calBearerToken
_calPageToken
_calPageSize
_calCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesAliasesListResource)
mempty