{-# 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.IdentityToolkit.RelyingParty.SetProjectConfig
(
RelyingPartySetProjectConfigResource
, relyingPartySetProjectConfig
, RelyingPartySetProjectConfig
, rpspcPayload
) where
import Network.Google.IdentityToolkit.Types
import Network.Google.Prelude
type RelyingPartySetProjectConfigResource =
"identitytoolkit" :>
"v3" :>
"relyingparty" :>
"setProjectConfig" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
IdentitytoolkitRelyingPartySetProjectConfigRequest
:>
Post '[JSON]
IdentitytoolkitRelyingPartySetProjectConfigResponse
newtype RelyingPartySetProjectConfig = RelyingPartySetProjectConfig'
{ _rpspcPayload :: IdentitytoolkitRelyingPartySetProjectConfigRequest
} deriving (Eq,Show,Data,Typeable,Generic)
relyingPartySetProjectConfig
:: IdentitytoolkitRelyingPartySetProjectConfigRequest
-> RelyingPartySetProjectConfig
relyingPartySetProjectConfig pRpspcPayload_ =
RelyingPartySetProjectConfig'
{ _rpspcPayload = pRpspcPayload_
}
rpspcPayload :: Lens' RelyingPartySetProjectConfig IdentitytoolkitRelyingPartySetProjectConfigRequest
rpspcPayload
= lens _rpspcPayload (\ s a -> s{_rpspcPayload = a})
instance GoogleRequest RelyingPartySetProjectConfig
where
type Rs RelyingPartySetProjectConfig =
IdentitytoolkitRelyingPartySetProjectConfigResponse
type Scopes RelyingPartySetProjectConfig =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient RelyingPartySetProjectConfig'{..}
= go (Just AltJSON) _rpspcPayload
identityToolkitService
where go
= buildClient
(Proxy :: Proxy RelyingPartySetProjectConfigResource)
mempty