module Network.Google.Resource.IdentityToolkit.RelyingParty.SignOutUser
(
RelyingPartySignOutUserResource
, relyingPartySignOutUser
, RelyingPartySignOutUser
, rpsouPayload
) where
import Network.Google.IdentityToolkit.Types
import Network.Google.Prelude
type RelyingPartySignOutUserResource =
"identitytoolkit" :>
"v3" :>
"relyingparty" :>
"signOutUser" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
IdentitytoolkitRelyingPartySignOutUserRequest
:>
Post '[JSON]
IdentitytoolkitRelyingPartySignOutUserResponse
newtype RelyingPartySignOutUser = RelyingPartySignOutUser'
{ _rpsouPayload :: IdentitytoolkitRelyingPartySignOutUserRequest
} deriving (Eq,Show,Data,Typeable,Generic)
relyingPartySignOutUser
:: IdentitytoolkitRelyingPartySignOutUserRequest
-> RelyingPartySignOutUser
relyingPartySignOutUser pRpsouPayload_ =
RelyingPartySignOutUser'
{ _rpsouPayload = pRpsouPayload_
}
rpsouPayload :: Lens' RelyingPartySignOutUser IdentitytoolkitRelyingPartySignOutUserRequest
rpsouPayload
= lens _rpsouPayload (\ s a -> s{_rpsouPayload = a})
instance GoogleRequest RelyingPartySignOutUser where
type Rs RelyingPartySignOutUser =
IdentitytoolkitRelyingPartySignOutUserResponse
type Scopes RelyingPartySignOutUser =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient RelyingPartySignOutUser'{..}
= go (Just AltJSON) _rpsouPayload
identityToolkitService
where go
= buildClient
(Proxy :: Proxy RelyingPartySignOutUserResource)
mempty