{-# 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
-- | Sign out user.
--
-- /See:/ 'relyingPartySignOutUser' smart constructor.
newtype RelyingPartySignOutUser = RelyingPartySignOutUser'
{ _rpsouPayload :: IdentitytoolkitRelyingPartySignOutUserRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'RelyingPartySignOutUser' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rpsouPayload'
relyingPartySignOutUser
:: IdentitytoolkitRelyingPartySignOutUserRequest -- ^ 'rpsouPayload'
-> RelyingPartySignOutUser
relyingPartySignOutUser pRpsouPayload_ =
RelyingPartySignOutUser'
{ _rpsouPayload = pRpsouPayload_
}
-- | Multipart request metadata.
rpsouPayload :: Lens' RelyingPartySignOutUser IdentitytoolkitRelyingPartySignOutUserRequest
rpsouPayload
= lens _rpsouPayload (\ s a -> s{_rpsouPayload = a})
instance GoogleRequest RelyingPartySignOutUser where
type Rs RelyingPartySignOutUser =
IdentitytoolkitRelyingPartySignOutUserResponse
type Scopes RelyingPartySignOutUser = '[]
requestClient RelyingPartySignOutUser'{..}
= go (Just AltJSON) _rpsouPayload
identityToolkitService
where go
= buildClient
(Proxy :: Proxy RelyingPartySignOutUserResource)
mempty