module Network.Google.Resource.Classroom.Courses.Aliases.Delete
(
CoursesAliasesDeleteResource
, coursesAliasesDelete
, CoursesAliasesDelete
, cadXgafv
, cadUploadProtocol
, cadPp
, cadCourseId
, cadAccessToken
, cadUploadType
, cadAlias
, cadBearerToken
, cadCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type CoursesAliasesDeleteResource =
"v1" :>
"courses" :>
Capture "courseId" Text :>
"aliases" :>
Capture "alias" 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 :> Delete '[JSON] Empty
data CoursesAliasesDelete = CoursesAliasesDelete'
{ _cadXgafv :: !(Maybe Text)
, _cadUploadProtocol :: !(Maybe Text)
, _cadPp :: !Bool
, _cadCourseId :: !Text
, _cadAccessToken :: !(Maybe Text)
, _cadUploadType :: !(Maybe Text)
, _cadAlias :: !Text
, _cadBearerToken :: !(Maybe Text)
, _cadCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
coursesAliasesDelete
:: Text
-> Text
-> CoursesAliasesDelete
coursesAliasesDelete pCadCourseId_ pCadAlias_ =
CoursesAliasesDelete'
{ _cadXgafv = Nothing
, _cadUploadProtocol = Nothing
, _cadPp = True
, _cadCourseId = pCadCourseId_
, _cadAccessToken = Nothing
, _cadUploadType = Nothing
, _cadAlias = pCadAlias_
, _cadBearerToken = Nothing
, _cadCallback = Nothing
}
cadXgafv :: Lens' CoursesAliasesDelete (Maybe Text)
cadXgafv = lens _cadXgafv (\ s a -> s{_cadXgafv = a})
cadUploadProtocol :: Lens' CoursesAliasesDelete (Maybe Text)
cadUploadProtocol
= lens _cadUploadProtocol
(\ s a -> s{_cadUploadProtocol = a})
cadPp :: Lens' CoursesAliasesDelete Bool
cadPp = lens _cadPp (\ s a -> s{_cadPp = a})
cadCourseId :: Lens' CoursesAliasesDelete Text
cadCourseId
= lens _cadCourseId (\ s a -> s{_cadCourseId = a})
cadAccessToken :: Lens' CoursesAliasesDelete (Maybe Text)
cadAccessToken
= lens _cadAccessToken
(\ s a -> s{_cadAccessToken = a})
cadUploadType :: Lens' CoursesAliasesDelete (Maybe Text)
cadUploadType
= lens _cadUploadType
(\ s a -> s{_cadUploadType = a})
cadAlias :: Lens' CoursesAliasesDelete Text
cadAlias = lens _cadAlias (\ s a -> s{_cadAlias = a})
cadBearerToken :: Lens' CoursesAliasesDelete (Maybe Text)
cadBearerToken
= lens _cadBearerToken
(\ s a -> s{_cadBearerToken = a})
cadCallback :: Lens' CoursesAliasesDelete (Maybe Text)
cadCallback
= lens _cadCallback (\ s a -> s{_cadCallback = a})
instance GoogleRequest CoursesAliasesDelete where
type Rs CoursesAliasesDelete = Empty
type Scopes CoursesAliasesDelete =
'["https://www.googleapis.com/auth/classroom.courses"]
requestClient CoursesAliasesDelete'{..}
= go _cadCourseId _cadAlias _cadXgafv
_cadUploadProtocol
(Just _cadPp)
_cadAccessToken
_cadUploadType
_cadBearerToken
_cadCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy :: Proxy CoursesAliasesDeleteResource)
mempty