module Network.Google.Resource.Classroom.Invitations.Get
(
InvitationsGetResource
, invitationsGet
, InvitationsGet
, igXgafv
, igUploadProtocol
, igPp
, igAccessToken
, igUploadType
, igBearerToken
, igId
, igCallback
) where
import Network.Google.Classroom.Types
import Network.Google.Prelude
type InvitationsGetResource =
"v1" :>
"invitations" :>
Capture "id" 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 :> Get '[JSON] Invitation
data InvitationsGet = InvitationsGet'
{ _igXgafv :: !(Maybe Text)
, _igUploadProtocol :: !(Maybe Text)
, _igPp :: !Bool
, _igAccessToken :: !(Maybe Text)
, _igUploadType :: !(Maybe Text)
, _igBearerToken :: !(Maybe Text)
, _igId :: !Text
, _igCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
invitationsGet
:: Text
-> InvitationsGet
invitationsGet pIgId_ =
InvitationsGet'
{ _igXgafv = Nothing
, _igUploadProtocol = Nothing
, _igPp = True
, _igAccessToken = Nothing
, _igUploadType = Nothing
, _igBearerToken = Nothing
, _igId = pIgId_
, _igCallback = Nothing
}
igXgafv :: Lens' InvitationsGet (Maybe Text)
igXgafv = lens _igXgafv (\ s a -> s{_igXgafv = a})
igUploadProtocol :: Lens' InvitationsGet (Maybe Text)
igUploadProtocol
= lens _igUploadProtocol
(\ s a -> s{_igUploadProtocol = a})
igPp :: Lens' InvitationsGet Bool
igPp = lens _igPp (\ s a -> s{_igPp = a})
igAccessToken :: Lens' InvitationsGet (Maybe Text)
igAccessToken
= lens _igAccessToken
(\ s a -> s{_igAccessToken = a})
igUploadType :: Lens' InvitationsGet (Maybe Text)
igUploadType
= lens _igUploadType (\ s a -> s{_igUploadType = a})
igBearerToken :: Lens' InvitationsGet (Maybe Text)
igBearerToken
= lens _igBearerToken
(\ s a -> s{_igBearerToken = a})
igId :: Lens' InvitationsGet Text
igId = lens _igId (\ s a -> s{_igId = a})
igCallback :: Lens' InvitationsGet (Maybe Text)
igCallback
= lens _igCallback (\ s a -> s{_igCallback = a})
instance GoogleRequest InvitationsGet where
type Rs InvitationsGet = Invitation
type Scopes InvitationsGet =
'["https://www.googleapis.com/auth/classroom.rosters",
"https://www.googleapis.com/auth/classroom.rosters.readonly"]
requestClient InvitationsGet'{..}
= go _igId _igXgafv _igUploadProtocol (Just _igPp)
_igAccessToken
_igUploadType
_igBearerToken
_igCallback
(Just AltJSON)
classroomService
where go
= buildClient (Proxy :: Proxy InvitationsGetResource)
mempty