{-# 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.VerifyPhoneNumber
(
RelyingPartyVerifyPhoneNumberResource
, relyingPartyVerifyPhoneNumber
, RelyingPartyVerifyPhoneNumber
, rpvpnPayload
) where
import Network.Google.IdentityToolkit.Types
import Network.Google.Prelude
type RelyingPartyVerifyPhoneNumberResource =
"identitytoolkit" :>
"v3" :>
"relyingparty" :>
"verifyPhoneNumber" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON]
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
:>
Post '[JSON]
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse
newtype RelyingPartyVerifyPhoneNumber = RelyingPartyVerifyPhoneNumber'
{ _rpvpnPayload :: IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
} deriving (Eq,Show,Data,Typeable,Generic)
relyingPartyVerifyPhoneNumber
:: IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
-> RelyingPartyVerifyPhoneNumber
relyingPartyVerifyPhoneNumber pRpvpnPayload_ =
RelyingPartyVerifyPhoneNumber'
{ _rpvpnPayload = pRpvpnPayload_
}
rpvpnPayload :: Lens' RelyingPartyVerifyPhoneNumber IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
rpvpnPayload
= lens _rpvpnPayload (\ s a -> s{_rpvpnPayload = a})
instance GoogleRequest RelyingPartyVerifyPhoneNumber
where
type Rs RelyingPartyVerifyPhoneNumber =
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse
type Scopes RelyingPartyVerifyPhoneNumber =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient RelyingPartyVerifyPhoneNumber'{..}
= go (Just AltJSON) _rpvpnPayload
identityToolkitService
where go
= buildClient
(Proxy ::
Proxy RelyingPartyVerifyPhoneNumberResource)
mempty