{-# 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.SSHPublicKeys.Get
(
UsersSSHPublicKeysGetResource
, usersSSHPublicKeysGet
, UsersSSHPublicKeysGet
, uspkgXgafv
, uspkgUploadProtocol
, uspkgAccessToken
, uspkgUploadType
, uspkgName
, uspkgCallback
) where
import Network.Google.OSLogin.Types
import Network.Google.Prelude
type UsersSSHPublicKeysGetResource =
"v1" :>
Capture "name" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] SSHPublicKey
data UsersSSHPublicKeysGet = UsersSSHPublicKeysGet'
{ _uspkgXgafv :: !(Maybe Xgafv)
, _uspkgUploadProtocol :: !(Maybe Text)
, _uspkgAccessToken :: !(Maybe Text)
, _uspkgUploadType :: !(Maybe Text)
, _uspkgName :: !Text
, _uspkgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
usersSSHPublicKeysGet
:: Text
-> UsersSSHPublicKeysGet
usersSSHPublicKeysGet pUspkgName_ =
UsersSSHPublicKeysGet'
{ _uspkgXgafv = Nothing
, _uspkgUploadProtocol = Nothing
, _uspkgAccessToken = Nothing
, _uspkgUploadType = Nothing
, _uspkgName = pUspkgName_
, _uspkgCallback = Nothing
}
uspkgXgafv :: Lens' UsersSSHPublicKeysGet (Maybe Xgafv)
uspkgXgafv
= lens _uspkgXgafv (\ s a -> s{_uspkgXgafv = a})
uspkgUploadProtocol :: Lens' UsersSSHPublicKeysGet (Maybe Text)
uspkgUploadProtocol
= lens _uspkgUploadProtocol
(\ s a -> s{_uspkgUploadProtocol = a})
uspkgAccessToken :: Lens' UsersSSHPublicKeysGet (Maybe Text)
uspkgAccessToken
= lens _uspkgAccessToken
(\ s a -> s{_uspkgAccessToken = a})
uspkgUploadType :: Lens' UsersSSHPublicKeysGet (Maybe Text)
uspkgUploadType
= lens _uspkgUploadType
(\ s a -> s{_uspkgUploadType = a})
uspkgName :: Lens' UsersSSHPublicKeysGet Text
uspkgName
= lens _uspkgName (\ s a -> s{_uspkgName = a})
uspkgCallback :: Lens' UsersSSHPublicKeysGet (Maybe Text)
uspkgCallback
= lens _uspkgCallback
(\ s a -> s{_uspkgCallback = a})
instance GoogleRequest UsersSSHPublicKeysGet where
type Rs UsersSSHPublicKeysGet = SSHPublicKey
type Scopes UsersSSHPublicKeysGet =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient UsersSSHPublicKeysGet'{..}
= go _uspkgName _uspkgXgafv _uspkgUploadProtocol
_uspkgAccessToken
_uspkgUploadType
_uspkgCallback
(Just AltJSON)
oSLoginService
where go
= buildClient
(Proxy :: Proxy UsersSSHPublicKeysGetResource)
mempty