{-# 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.UserProFiles.Guardians.Delete
(
UserProFilesGuardiansDeleteResource
, userProFilesGuardiansDelete
, UserProFilesGuardiansDelete
, upfgdStudentId
, upfgdXgafv
, upfgdUploadProtocol
, upfgdAccessToken
, upfgdUploadType
, upfgdGuardianId
, upfgdCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type UserProFilesGuardiansDeleteResource =
"v1" :>
"userProfiles" :>
Capture "studentId" Text :>
"guardians" :>
Capture "guardianId" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data UserProFilesGuardiansDelete = UserProFilesGuardiansDelete'
{ _upfgdStudentId :: !Text
, _upfgdXgafv :: !(Maybe Xgafv)
, _upfgdUploadProtocol :: !(Maybe Text)
, _upfgdAccessToken :: !(Maybe Text)
, _upfgdUploadType :: !(Maybe Text)
, _upfgdGuardianId :: !Text
, _upfgdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
userProFilesGuardiansDelete
:: Text
-> Text
-> UserProFilesGuardiansDelete
userProFilesGuardiansDelete pUpfgdStudentId_ pUpfgdGuardianId_ =
UserProFilesGuardiansDelete'
{ _upfgdStudentId = pUpfgdStudentId_
, _upfgdXgafv = Nothing
, _upfgdUploadProtocol = Nothing
, _upfgdAccessToken = Nothing
, _upfgdUploadType = Nothing
, _upfgdGuardianId = pUpfgdGuardianId_
, _upfgdCallback = Nothing
}
upfgdStudentId :: Lens' UserProFilesGuardiansDelete Text
upfgdStudentId
= lens _upfgdStudentId
(\ s a -> s{_upfgdStudentId = a})
upfgdXgafv :: Lens' UserProFilesGuardiansDelete (Maybe Xgafv)
upfgdXgafv
= lens _upfgdXgafv (\ s a -> s{_upfgdXgafv = a})
upfgdUploadProtocol :: Lens' UserProFilesGuardiansDelete (Maybe Text)
upfgdUploadProtocol
= lens _upfgdUploadProtocol
(\ s a -> s{_upfgdUploadProtocol = a})
upfgdAccessToken :: Lens' UserProFilesGuardiansDelete (Maybe Text)
upfgdAccessToken
= lens _upfgdAccessToken
(\ s a -> s{_upfgdAccessToken = a})
upfgdUploadType :: Lens' UserProFilesGuardiansDelete (Maybe Text)
upfgdUploadType
= lens _upfgdUploadType
(\ s a -> s{_upfgdUploadType = a})
upfgdGuardianId :: Lens' UserProFilesGuardiansDelete Text
upfgdGuardianId
= lens _upfgdGuardianId
(\ s a -> s{_upfgdGuardianId = a})
upfgdCallback :: Lens' UserProFilesGuardiansDelete (Maybe Text)
upfgdCallback
= lens _upfgdCallback
(\ s a -> s{_upfgdCallback = a})
instance GoogleRequest UserProFilesGuardiansDelete
where
type Rs UserProFilesGuardiansDelete = Empty
type Scopes UserProFilesGuardiansDelete =
'["https://www.googleapis.com/auth/classroom.guardianlinks.students"]
requestClient UserProFilesGuardiansDelete'{..}
= go _upfgdStudentId _upfgdGuardianId _upfgdXgafv
_upfgdUploadProtocol
_upfgdAccessToken
_upfgdUploadType
_upfgdCallback
(Just AltJSON)
classroomService
where go
= buildClient
(Proxy :: Proxy UserProFilesGuardiansDeleteResource)
mempty