{-# 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.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