{-# 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.SetAccountInfo
(
RelyingPartySetAccountInfoResource
, relyingPartySetAccountInfo
, RelyingPartySetAccountInfo
, rpsaiPayload
) where
import Network.Google.IdentityToolkit.Types
import Network.Google.Prelude
type RelyingPartySetAccountInfoResource =
"identitytoolkit" :>
"v3" :>
"relyingparty" :>
"setAccountInfo" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
IdentitytoolkitRelyingPartySetAccountInfoRequest
:> Post '[JSON] SetAccountInfoResponse
-- | Set account info for a user.
--
-- /See:/ 'relyingPartySetAccountInfo' smart constructor.
newtype RelyingPartySetAccountInfo = RelyingPartySetAccountInfo'
{ _rpsaiPayload :: IdentitytoolkitRelyingPartySetAccountInfoRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'RelyingPartySetAccountInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rpsaiPayload'
relyingPartySetAccountInfo
:: IdentitytoolkitRelyingPartySetAccountInfoRequest -- ^ 'rpsaiPayload'
-> RelyingPartySetAccountInfo
relyingPartySetAccountInfo pRpsaiPayload_ =
RelyingPartySetAccountInfo'
{ _rpsaiPayload = pRpsaiPayload_
}
-- | Multipart request metadata.
rpsaiPayload :: Lens' RelyingPartySetAccountInfo IdentitytoolkitRelyingPartySetAccountInfoRequest
rpsaiPayload
= lens _rpsaiPayload (\ s a -> s{_rpsaiPayload = a})
instance GoogleRequest RelyingPartySetAccountInfo
where
type Rs RelyingPartySetAccountInfo =
SetAccountInfoResponse
type Scopes RelyingPartySetAccountInfo = '[]
requestClient RelyingPartySetAccountInfo'{..}
= go (Just AltJSON) _rpsaiPayload
identityToolkitService
where go
= buildClient
(Proxy :: Proxy RelyingPartySetAccountInfoResource)
mempty