{-# 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.OSLogin.Users.GetLoginProFile
(
UsersGetLoginProFileResource
, usersGetLoginProFile
, UsersGetLoginProFile
, uglpfXgafv
, uglpfUploadProtocol
, uglpfAccessToken
, uglpfUploadType
, uglpfName
, uglpfProjectId
, uglpfSystemId
, uglpfCallback
) where
import Network.Google.OSLogin.Types
import Network.Google.Prelude
type UsersGetLoginProFileResource =
"v1" :>
Capture "name" Text :>
"loginProfile" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "projectId" Text :>
QueryParam "systemId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] LoginProFile
data UsersGetLoginProFile = UsersGetLoginProFile'
{ _uglpfXgafv :: !(Maybe Xgafv)
, _uglpfUploadProtocol :: !(Maybe Text)
, _uglpfAccessToken :: !(Maybe Text)
, _uglpfUploadType :: !(Maybe Text)
, _uglpfName :: !Text
, _uglpfProjectId :: !(Maybe Text)
, _uglpfSystemId :: !(Maybe Text)
, _uglpfCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
usersGetLoginProFile
:: Text
-> UsersGetLoginProFile
usersGetLoginProFile pUglpfName_ =
UsersGetLoginProFile'
{ _uglpfXgafv = Nothing
, _uglpfUploadProtocol = Nothing
, _uglpfAccessToken = Nothing
, _uglpfUploadType = Nothing
, _uglpfName = pUglpfName_
, _uglpfProjectId = Nothing
, _uglpfSystemId = Nothing
, _uglpfCallback = Nothing
}
uglpfXgafv :: Lens' UsersGetLoginProFile (Maybe Xgafv)
uglpfXgafv
= lens _uglpfXgafv (\ s a -> s{_uglpfXgafv = a})
uglpfUploadProtocol :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfUploadProtocol
= lens _uglpfUploadProtocol
(\ s a -> s{_uglpfUploadProtocol = a})
uglpfAccessToken :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfAccessToken
= lens _uglpfAccessToken
(\ s a -> s{_uglpfAccessToken = a})
uglpfUploadType :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfUploadType
= lens _uglpfUploadType
(\ s a -> s{_uglpfUploadType = a})
uglpfName :: Lens' UsersGetLoginProFile Text
uglpfName
= lens _uglpfName (\ s a -> s{_uglpfName = a})
uglpfProjectId :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfProjectId
= lens _uglpfProjectId
(\ s a -> s{_uglpfProjectId = a})
uglpfSystemId :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfSystemId
= lens _uglpfSystemId
(\ s a -> s{_uglpfSystemId = a})
uglpfCallback :: Lens' UsersGetLoginProFile (Maybe Text)
uglpfCallback
= lens _uglpfCallback
(\ s a -> s{_uglpfCallback = a})
instance GoogleRequest UsersGetLoginProFile where
type Rs UsersGetLoginProFile = LoginProFile
type Scopes UsersGetLoginProFile =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient UsersGetLoginProFile'{..}
= go _uglpfName _uglpfXgafv _uglpfUploadProtocol
_uglpfAccessToken
_uglpfUploadType
_uglpfProjectId
_uglpfSystemId
_uglpfCallback
(Just AltJSON)
oSLoginService
where go
= buildClient
(Proxy :: Proxy UsersGetLoginProFileResource)
mempty