{-# 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.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
-- | Deletes an alias of a course. This method returns the following error
-- codes: * \`PERMISSION_DENIED\` if the requesting user is not permitted
-- to remove the alias or for access errors. * \`NOT_FOUND\` if the alias
-- does not exist.
--
-- /See:/ 'coursesAliasesDelete' smart constructor.
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)
-- | Creates a value of 'CoursesAliasesDelete' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cadXgafv'
--
-- * 'cadUploadProtocol'
--
-- * 'cadPp'
--
-- * 'cadCourseId'
--
-- * 'cadAccessToken'
--
-- * 'cadUploadType'
--
-- * 'cadAlias'
--
-- * 'cadBearerToken'
--
-- * 'cadCallback'
coursesAliasesDelete
:: Text -- ^ 'cadCourseId'
-> Text -- ^ 'cadAlias'
-> CoursesAliasesDelete
coursesAliasesDelete pCadCourseId_ pCadAlias_ =
CoursesAliasesDelete'
{ _cadXgafv = Nothing
, _cadUploadProtocol = Nothing
, _cadPp = True
, _cadCourseId = pCadCourseId_
, _cadAccessToken = Nothing
, _cadUploadType = Nothing
, _cadAlias = pCadAlias_
, _cadBearerToken = Nothing
, _cadCallback = Nothing
}
-- | V1 error format.
cadXgafv :: Lens' CoursesAliasesDelete (Maybe Text)
cadXgafv = lens _cadXgafv (\ s a -> s{_cadXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
cadUploadProtocol :: Lens' CoursesAliasesDelete (Maybe Text)
cadUploadProtocol
= lens _cadUploadProtocol
(\ s a -> s{_cadUploadProtocol = a})
-- | Pretty-print response.
cadPp :: Lens' CoursesAliasesDelete Bool
cadPp = lens _cadPp (\ s a -> s{_cadPp = a})
-- | Identifier of the course whose alias should be deleted. This identifier
-- can be either the Classroom-assigned identifier or an alias.
cadCourseId :: Lens' CoursesAliasesDelete Text
cadCourseId
= lens _cadCourseId (\ s a -> s{_cadCourseId = a})
-- | OAuth access token.
cadAccessToken :: Lens' CoursesAliasesDelete (Maybe Text)
cadAccessToken
= lens _cadAccessToken
(\ s a -> s{_cadAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
cadUploadType :: Lens' CoursesAliasesDelete (Maybe Text)
cadUploadType
= lens _cadUploadType
(\ s a -> s{_cadUploadType = a})
-- | Alias to delete. This may not be the Classroom-assigned identifier.
cadAlias :: Lens' CoursesAliasesDelete Text
cadAlias = lens _cadAlias (\ s a -> s{_cadAlias = a})
-- | OAuth bearer token.
cadBearerToken :: Lens' CoursesAliasesDelete (Maybe Text)
cadBearerToken
= lens _cadBearerToken
(\ s a -> s{_cadBearerToken = a})
-- | JSONP
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