{-# 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.CreateAuthURI
(
RelyingPartyCreateAuthURIResource
, relyingPartyCreateAuthURI
, RelyingPartyCreateAuthURI
, rpcauPayload
) where
import Network.Google.IdentityToolkit.Types
import Network.Google.Prelude
type RelyingPartyCreateAuthURIResource =
"identitytoolkit" :>
"v3" :>
"relyingparty" :>
"createAuthUri" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
IdentitytoolkitRelyingPartyCreateAuthURIRequest
:> Post '[JSON] CreateAuthURIResponse
-- | Creates the URI used by the IdP to authenticate the user.
--
-- /See:/ 'relyingPartyCreateAuthURI' smart constructor.
newtype RelyingPartyCreateAuthURI = RelyingPartyCreateAuthURI'
{ _rpcauPayload :: IdentitytoolkitRelyingPartyCreateAuthURIRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'RelyingPartyCreateAuthURI' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rpcauPayload'
relyingPartyCreateAuthURI
:: IdentitytoolkitRelyingPartyCreateAuthURIRequest -- ^ 'rpcauPayload'
-> RelyingPartyCreateAuthURI
relyingPartyCreateAuthURI pRpcauPayload_ =
RelyingPartyCreateAuthURI'
{ _rpcauPayload = pRpcauPayload_
}
-- | Multipart request metadata.
rpcauPayload :: Lens' RelyingPartyCreateAuthURI IdentitytoolkitRelyingPartyCreateAuthURIRequest
rpcauPayload
= lens _rpcauPayload (\ s a -> s{_rpcauPayload = a})
instance GoogleRequest RelyingPartyCreateAuthURI
where
type Rs RelyingPartyCreateAuthURI =
CreateAuthURIResponse
type Scopes RelyingPartyCreateAuthURI = '[]
requestClient RelyingPartyCreateAuthURI'{..}
= go (Just AltJSON) _rpcauPayload
identityToolkitService
where go
= buildClient
(Proxy :: Proxy RelyingPartyCreateAuthURIResource)
mempty