{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.IdentityToolkit.Types.Product where
import Network.Google.IdentityToolkit.Types.Sum
import Network.Google.Prelude
data UploadAccountResponseErrorItem =
UploadAccountResponseErrorItem'
{ _uareiMessage :: !(Maybe Text)
, _uareiIndex :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
uploadAccountResponseErrorItem
:: UploadAccountResponseErrorItem
uploadAccountResponseErrorItem =
UploadAccountResponseErrorItem'
{_uareiMessage = Nothing, _uareiIndex = Nothing}
uareiMessage :: Lens' UploadAccountResponseErrorItem (Maybe Text)
uareiMessage
= lens _uareiMessage (\ s a -> s{_uareiMessage = a})
uareiIndex :: Lens' UploadAccountResponseErrorItem (Maybe Int32)
uareiIndex
= lens _uareiIndex (\ s a -> s{_uareiIndex = a}) .
mapping _Coerce
instance FromJSON UploadAccountResponseErrorItem
where
parseJSON
= withObject "UploadAccountResponseErrorItem"
(\ o ->
UploadAccountResponseErrorItem' <$>
(o .:? "message") <*> (o .:? "index"))
instance ToJSON UploadAccountResponseErrorItem where
toJSON UploadAccountResponseErrorItem'{..}
= object
(catMaybes
[("message" .=) <$> _uareiMessage,
("index" .=) <$> _uareiIndex])
data UserInfoProviderUserInfoItem =
UserInfoProviderUserInfoItem'
{ _uipuiiProviderId :: !(Maybe Text)
, _uipuiiEmail :: !(Maybe Text)
, _uipuiiPhotoURL :: !(Maybe Text)
, _uipuiiFederatedId :: !(Maybe Text)
, _uipuiiPhoneNumber :: !(Maybe Text)
, _uipuiiDisplayName :: !(Maybe Text)
, _uipuiiScreenName :: !(Maybe Text)
, _uipuiiRawId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
userInfoProviderUserInfoItem
:: UserInfoProviderUserInfoItem
userInfoProviderUserInfoItem =
UserInfoProviderUserInfoItem'
{ _uipuiiProviderId = Nothing
, _uipuiiEmail = Nothing
, _uipuiiPhotoURL = Nothing
, _uipuiiFederatedId = Nothing
, _uipuiiPhoneNumber = Nothing
, _uipuiiDisplayName = Nothing
, _uipuiiScreenName = Nothing
, _uipuiiRawId = Nothing
}
uipuiiProviderId :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiProviderId
= lens _uipuiiProviderId
(\ s a -> s{_uipuiiProviderId = a})
uipuiiEmail :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiEmail
= lens _uipuiiEmail (\ s a -> s{_uipuiiEmail = a})
uipuiiPhotoURL :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiPhotoURL
= lens _uipuiiPhotoURL
(\ s a -> s{_uipuiiPhotoURL = a})
uipuiiFederatedId :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiFederatedId
= lens _uipuiiFederatedId
(\ s a -> s{_uipuiiFederatedId = a})
uipuiiPhoneNumber :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiPhoneNumber
= lens _uipuiiPhoneNumber
(\ s a -> s{_uipuiiPhoneNumber = a})
uipuiiDisplayName :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiDisplayName
= lens _uipuiiDisplayName
(\ s a -> s{_uipuiiDisplayName = a})
uipuiiScreenName :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiScreenName
= lens _uipuiiScreenName
(\ s a -> s{_uipuiiScreenName = a})
uipuiiRawId :: Lens' UserInfoProviderUserInfoItem (Maybe Text)
uipuiiRawId
= lens _uipuiiRawId (\ s a -> s{_uipuiiRawId = a})
instance FromJSON UserInfoProviderUserInfoItem where
parseJSON
= withObject "UserInfoProviderUserInfoItem"
(\ o ->
UserInfoProviderUserInfoItem' <$>
(o .:? "providerId") <*> (o .:? "email") <*>
(o .:? "photoUrl")
<*> (o .:? "federatedId")
<*> (o .:? "phoneNumber")
<*> (o .:? "displayName")
<*> (o .:? "screenName")
<*> (o .:? "rawId"))
instance ToJSON UserInfoProviderUserInfoItem where
toJSON UserInfoProviderUserInfoItem'{..}
= object
(catMaybes
[("providerId" .=) <$> _uipuiiProviderId,
("email" .=) <$> _uipuiiEmail,
("photoUrl" .=) <$> _uipuiiPhotoURL,
("federatedId" .=) <$> _uipuiiFederatedId,
("phoneNumber" .=) <$> _uipuiiPhoneNumber,
("displayName" .=) <$> _uipuiiDisplayName,
("screenName" .=) <$> _uipuiiScreenName,
("rawId" .=) <$> _uipuiiRawId])
data VerifyCustomTokenResponse =
VerifyCustomTokenResponse'
{ _vctrIsNewUser :: !(Maybe Bool)
, _vctrKind :: !Text
, _vctrRefreshToken :: !(Maybe Text)
, _vctrExpiresIn :: !(Maybe (Textual Int64))
, _vctrIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
verifyCustomTokenResponse
:: VerifyCustomTokenResponse
verifyCustomTokenResponse =
VerifyCustomTokenResponse'
{ _vctrIsNewUser = Nothing
, _vctrKind = "identitytoolkit#VerifyCustomTokenResponse"
, _vctrRefreshToken = Nothing
, _vctrExpiresIn = Nothing
, _vctrIdToken = Nothing
}
vctrIsNewUser :: Lens' VerifyCustomTokenResponse (Maybe Bool)
vctrIsNewUser
= lens _vctrIsNewUser
(\ s a -> s{_vctrIsNewUser = a})
vctrKind :: Lens' VerifyCustomTokenResponse Text
vctrKind = lens _vctrKind (\ s a -> s{_vctrKind = a})
vctrRefreshToken :: Lens' VerifyCustomTokenResponse (Maybe Text)
vctrRefreshToken
= lens _vctrRefreshToken
(\ s a -> s{_vctrRefreshToken = a})
vctrExpiresIn :: Lens' VerifyCustomTokenResponse (Maybe Int64)
vctrExpiresIn
= lens _vctrExpiresIn
(\ s a -> s{_vctrExpiresIn = a})
. mapping _Coerce
vctrIdToken :: Lens' VerifyCustomTokenResponse (Maybe Text)
vctrIdToken
= lens _vctrIdToken (\ s a -> s{_vctrIdToken = a})
instance FromJSON VerifyCustomTokenResponse where
parseJSON
= withObject "VerifyCustomTokenResponse"
(\ o ->
VerifyCustomTokenResponse' <$>
(o .:? "isNewUser") <*>
(o .:? "kind" .!=
"identitytoolkit#VerifyCustomTokenResponse")
<*> (o .:? "refreshToken")
<*> (o .:? "expiresIn")
<*> (o .:? "idToken"))
instance ToJSON VerifyCustomTokenResponse where
toJSON VerifyCustomTokenResponse'{..}
= object
(catMaybes
[("isNewUser" .=) <$> _vctrIsNewUser,
Just ("kind" .= _vctrKind),
("refreshToken" .=) <$> _vctrRefreshToken,
("expiresIn" .=) <$> _vctrExpiresIn,
("idToken" .=) <$> _vctrIdToken])
data IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse =
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse'
{ _irpvpnrIsNewUser :: !(Maybe Bool)
, _irpvpnrTemporaryProof :: !(Maybe Text)
, _irpvpnrVerificationProofExpiresIn :: !(Maybe (Textual Int64))
, _irpvpnrVerificationProof :: !(Maybe Text)
, _irpvpnrTemporaryProofExpiresIn :: !(Maybe (Textual Int64))
, _irpvpnrRefreshToken :: !(Maybe Text)
, _irpvpnrPhoneNumber :: !(Maybe Text)
, _irpvpnrExpiresIn :: !(Maybe (Textual Int64))
, _irpvpnrLocalId :: !(Maybe Text)
, _irpvpnrIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyVerifyPhoneNumberResponse
:: IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse
identitytoolkitRelyingPartyVerifyPhoneNumberResponse =
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse'
{ _irpvpnrIsNewUser = Nothing
, _irpvpnrTemporaryProof = Nothing
, _irpvpnrVerificationProofExpiresIn = Nothing
, _irpvpnrVerificationProof = Nothing
, _irpvpnrTemporaryProofExpiresIn = Nothing
, _irpvpnrRefreshToken = Nothing
, _irpvpnrPhoneNumber = Nothing
, _irpvpnrExpiresIn = Nothing
, _irpvpnrLocalId = Nothing
, _irpvpnrIdToken = Nothing
}
irpvpnrIsNewUser :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Bool)
irpvpnrIsNewUser
= lens _irpvpnrIsNewUser
(\ s a -> s{_irpvpnrIsNewUser = a})
irpvpnrTemporaryProof :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrTemporaryProof
= lens _irpvpnrTemporaryProof
(\ s a -> s{_irpvpnrTemporaryProof = a})
irpvpnrVerificationProofExpiresIn :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Int64)
irpvpnrVerificationProofExpiresIn
= lens _irpvpnrVerificationProofExpiresIn
(\ s a -> s{_irpvpnrVerificationProofExpiresIn = a})
. mapping _Coerce
irpvpnrVerificationProof :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrVerificationProof
= lens _irpvpnrVerificationProof
(\ s a -> s{_irpvpnrVerificationProof = a})
irpvpnrTemporaryProofExpiresIn :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Int64)
irpvpnrTemporaryProofExpiresIn
= lens _irpvpnrTemporaryProofExpiresIn
(\ s a -> s{_irpvpnrTemporaryProofExpiresIn = a})
. mapping _Coerce
irpvpnrRefreshToken :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrRefreshToken
= lens _irpvpnrRefreshToken
(\ s a -> s{_irpvpnrRefreshToken = a})
irpvpnrPhoneNumber :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrPhoneNumber
= lens _irpvpnrPhoneNumber
(\ s a -> s{_irpvpnrPhoneNumber = a})
irpvpnrExpiresIn :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Int64)
irpvpnrExpiresIn
= lens _irpvpnrExpiresIn
(\ s a -> s{_irpvpnrExpiresIn = a})
. mapping _Coerce
irpvpnrLocalId :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrLocalId
= lens _irpvpnrLocalId
(\ s a -> s{_irpvpnrLocalId = a})
irpvpnrIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse (Maybe Text)
irpvpnrIdToken
= lens _irpvpnrIdToken
(\ s a -> s{_irpvpnrIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse"
(\ o ->
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse'
<$>
(o .:? "isNewUser") <*> (o .:? "temporaryProof") <*>
(o .:? "verificationProofExpiresIn")
<*> (o .:? "verificationProof")
<*> (o .:? "temporaryProofExpiresIn")
<*> (o .:? "refreshToken")
<*> (o .:? "phoneNumber")
<*> (o .:? "expiresIn")
<*> (o .:? "localId")
<*> (o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse
where
toJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberResponse'{..}
= object
(catMaybes
[("isNewUser" .=) <$> _irpvpnrIsNewUser,
("temporaryProof" .=) <$> _irpvpnrTemporaryProof,
("verificationProofExpiresIn" .=) <$>
_irpvpnrVerificationProofExpiresIn,
("verificationProof" .=) <$>
_irpvpnrVerificationProof,
("temporaryProofExpiresIn" .=) <$>
_irpvpnrTemporaryProofExpiresIn,
("refreshToken" .=) <$> _irpvpnrRefreshToken,
("phoneNumber" .=) <$> _irpvpnrPhoneNumber,
("expiresIn" .=) <$> _irpvpnrExpiresIn,
("localId" .=) <$> _irpvpnrLocalId,
("idToken" .=) <$> _irpvpnrIdToken])
data IdpConfig =
IdpConfig'
{ _icClientId :: !(Maybe Text)
, _icEnabled :: !(Maybe Bool)
, _icWhiteListedAudiences :: !(Maybe [Text])
, _icSecret :: !(Maybe Text)
, _icExperimentPercent :: !(Maybe (Textual Int32))
, _icProvider :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
idpConfig
:: IdpConfig
idpConfig =
IdpConfig'
{ _icClientId = Nothing
, _icEnabled = Nothing
, _icWhiteListedAudiences = Nothing
, _icSecret = Nothing
, _icExperimentPercent = Nothing
, _icProvider = Nothing
}
icClientId :: Lens' IdpConfig (Maybe Text)
icClientId
= lens _icClientId (\ s a -> s{_icClientId = a})
icEnabled :: Lens' IdpConfig (Maybe Bool)
icEnabled
= lens _icEnabled (\ s a -> s{_icEnabled = a})
icWhiteListedAudiences :: Lens' IdpConfig [Text]
icWhiteListedAudiences
= lens _icWhiteListedAudiences
(\ s a -> s{_icWhiteListedAudiences = a})
. _Default
. _Coerce
icSecret :: Lens' IdpConfig (Maybe Text)
icSecret = lens _icSecret (\ s a -> s{_icSecret = a})
icExperimentPercent :: Lens' IdpConfig (Maybe Int32)
icExperimentPercent
= lens _icExperimentPercent
(\ s a -> s{_icExperimentPercent = a})
. mapping _Coerce
icProvider :: Lens' IdpConfig (Maybe Text)
icProvider
= lens _icProvider (\ s a -> s{_icProvider = a})
instance FromJSON IdpConfig where
parseJSON
= withObject "IdpConfig"
(\ o ->
IdpConfig' <$>
(o .:? "clientId") <*> (o .:? "enabled") <*>
(o .:? "whitelistedAudiences" .!= mempty)
<*> (o .:? "secret")
<*> (o .:? "experimentPercent")
<*> (o .:? "provider"))
instance ToJSON IdpConfig where
toJSON IdpConfig'{..}
= object
(catMaybes
[("clientId" .=) <$> _icClientId,
("enabled" .=) <$> _icEnabled,
("whitelistedAudiences" .=) <$>
_icWhiteListedAudiences,
("secret" .=) <$> _icSecret,
("experimentPercent" .=) <$> _icExperimentPercent,
("provider" .=) <$> _icProvider])
data UserInfo =
UserInfo'
{ _uiEmail :: !(Maybe Text)
, _uiLastLoginAt :: !(Maybe (Textual Int64))
, _uiPhotoURL :: !(Maybe Text)
, _uiCreatedAt :: !(Maybe (Textual Int64))
, _uiDisabled :: !(Maybe Bool)
, _uiCustomAuth :: !(Maybe Bool)
, _uiProviderUserInfo :: !(Maybe [UserInfoProviderUserInfoItem])
, _uiCustomAttributes :: !(Maybe Text)
, _uiValidSince :: !(Maybe (Textual Int64))
, _uiPasswordUpdatedAt :: !(Maybe (Textual Double))
, _uiPhoneNumber :: !(Maybe Text)
, _uiVersion :: !(Maybe (Textual Int32))
, _uiEmailVerified :: !(Maybe Bool)
, _uiSalt :: !(Maybe Bytes)
, _uiDisplayName :: !(Maybe Text)
, _uiPasswordHash :: !(Maybe Bytes)
, _uiLocalId :: !(Maybe Text)
, _uiRawPassword :: !(Maybe Text)
, _uiScreenName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
userInfo
:: UserInfo
userInfo =
UserInfo'
{ _uiEmail = Nothing
, _uiLastLoginAt = Nothing
, _uiPhotoURL = Nothing
, _uiCreatedAt = Nothing
, _uiDisabled = Nothing
, _uiCustomAuth = Nothing
, _uiProviderUserInfo = Nothing
, _uiCustomAttributes = Nothing
, _uiValidSince = Nothing
, _uiPasswordUpdatedAt = Nothing
, _uiPhoneNumber = Nothing
, _uiVersion = Nothing
, _uiEmailVerified = Nothing
, _uiSalt = Nothing
, _uiDisplayName = Nothing
, _uiPasswordHash = Nothing
, _uiLocalId = Nothing
, _uiRawPassword = Nothing
, _uiScreenName = Nothing
}
uiEmail :: Lens' UserInfo (Maybe Text)
uiEmail = lens _uiEmail (\ s a -> s{_uiEmail = a})
uiLastLoginAt :: Lens' UserInfo (Maybe Int64)
uiLastLoginAt
= lens _uiLastLoginAt
(\ s a -> s{_uiLastLoginAt = a})
. mapping _Coerce
uiPhotoURL :: Lens' UserInfo (Maybe Text)
uiPhotoURL
= lens _uiPhotoURL (\ s a -> s{_uiPhotoURL = a})
uiCreatedAt :: Lens' UserInfo (Maybe Int64)
uiCreatedAt
= lens _uiCreatedAt (\ s a -> s{_uiCreatedAt = a}) .
mapping _Coerce
uiDisabled :: Lens' UserInfo (Maybe Bool)
uiDisabled
= lens _uiDisabled (\ s a -> s{_uiDisabled = a})
uiCustomAuth :: Lens' UserInfo (Maybe Bool)
uiCustomAuth
= lens _uiCustomAuth (\ s a -> s{_uiCustomAuth = a})
uiProviderUserInfo :: Lens' UserInfo [UserInfoProviderUserInfoItem]
uiProviderUserInfo
= lens _uiProviderUserInfo
(\ s a -> s{_uiProviderUserInfo = a})
. _Default
. _Coerce
uiCustomAttributes :: Lens' UserInfo (Maybe Text)
uiCustomAttributes
= lens _uiCustomAttributes
(\ s a -> s{_uiCustomAttributes = a})
uiValidSince :: Lens' UserInfo (Maybe Int64)
uiValidSince
= lens _uiValidSince (\ s a -> s{_uiValidSince = a})
. mapping _Coerce
uiPasswordUpdatedAt :: Lens' UserInfo (Maybe Double)
uiPasswordUpdatedAt
= lens _uiPasswordUpdatedAt
(\ s a -> s{_uiPasswordUpdatedAt = a})
. mapping _Coerce
uiPhoneNumber :: Lens' UserInfo (Maybe Text)
uiPhoneNumber
= lens _uiPhoneNumber
(\ s a -> s{_uiPhoneNumber = a})
uiVersion :: Lens' UserInfo (Maybe Int32)
uiVersion
= lens _uiVersion (\ s a -> s{_uiVersion = a}) .
mapping _Coerce
uiEmailVerified :: Lens' UserInfo (Maybe Bool)
uiEmailVerified
= lens _uiEmailVerified
(\ s a -> s{_uiEmailVerified = a})
uiSalt :: Lens' UserInfo (Maybe ByteString)
uiSalt
= lens _uiSalt (\ s a -> s{_uiSalt = a}) .
mapping _Bytes
uiDisplayName :: Lens' UserInfo (Maybe Text)
uiDisplayName
= lens _uiDisplayName
(\ s a -> s{_uiDisplayName = a})
uiPasswordHash :: Lens' UserInfo (Maybe ByteString)
uiPasswordHash
= lens _uiPasswordHash
(\ s a -> s{_uiPasswordHash = a})
. mapping _Bytes
uiLocalId :: Lens' UserInfo (Maybe Text)
uiLocalId
= lens _uiLocalId (\ s a -> s{_uiLocalId = a})
uiRawPassword :: Lens' UserInfo (Maybe Text)
uiRawPassword
= lens _uiRawPassword
(\ s a -> s{_uiRawPassword = a})
uiScreenName :: Lens' UserInfo (Maybe Text)
uiScreenName
= lens _uiScreenName (\ s a -> s{_uiScreenName = a})
instance FromJSON UserInfo where
parseJSON
= withObject "UserInfo"
(\ o ->
UserInfo' <$>
(o .:? "email") <*> (o .:? "lastLoginAt") <*>
(o .:? "photoUrl")
<*> (o .:? "createdAt")
<*> (o .:? "disabled")
<*> (o .:? "customAuth")
<*> (o .:? "providerUserInfo" .!= mempty)
<*> (o .:? "customAttributes")
<*> (o .:? "validSince")
<*> (o .:? "passwordUpdatedAt")
<*> (o .:? "phoneNumber")
<*> (o .:? "version")
<*> (o .:? "emailVerified")
<*> (o .:? "salt")
<*> (o .:? "displayName")
<*> (o .:? "passwordHash")
<*> (o .:? "localId")
<*> (o .:? "rawPassword")
<*> (o .:? "screenName"))
instance ToJSON UserInfo where
toJSON UserInfo'{..}
= object
(catMaybes
[("email" .=) <$> _uiEmail,
("lastLoginAt" .=) <$> _uiLastLoginAt,
("photoUrl" .=) <$> _uiPhotoURL,
("createdAt" .=) <$> _uiCreatedAt,
("disabled" .=) <$> _uiDisabled,
("customAuth" .=) <$> _uiCustomAuth,
("providerUserInfo" .=) <$> _uiProviderUserInfo,
("customAttributes" .=) <$> _uiCustomAttributes,
("validSince" .=) <$> _uiValidSince,
("passwordUpdatedAt" .=) <$> _uiPasswordUpdatedAt,
("phoneNumber" .=) <$> _uiPhoneNumber,
("version" .=) <$> _uiVersion,
("emailVerified" .=) <$> _uiEmailVerified,
("salt" .=) <$> _uiSalt,
("displayName" .=) <$> _uiDisplayName,
("passwordHash" .=) <$> _uiPasswordHash,
("localId" .=) <$> _uiLocalId,
("rawPassword" .=) <$> _uiRawPassword,
("screenName" .=) <$> _uiScreenName])
newtype IdentitytoolkitRelyingPartySetProjectConfigResponse =
IdentitytoolkitRelyingPartySetProjectConfigResponse'
{ _irpspcrProjectId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySetProjectConfigResponse
:: IdentitytoolkitRelyingPartySetProjectConfigResponse
identitytoolkitRelyingPartySetProjectConfigResponse =
IdentitytoolkitRelyingPartySetProjectConfigResponse'
{_irpspcrProjectId = Nothing}
irpspcrProjectId :: Lens' IdentitytoolkitRelyingPartySetProjectConfigResponse (Maybe Text)
irpspcrProjectId
= lens _irpspcrProjectId
(\ s a -> s{_irpspcrProjectId = a})
instance FromJSON
IdentitytoolkitRelyingPartySetProjectConfigResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySetProjectConfigResponse"
(\ o ->
IdentitytoolkitRelyingPartySetProjectConfigResponse'
<$> (o .:? "projectId"))
instance ToJSON
IdentitytoolkitRelyingPartySetProjectConfigResponse
where
toJSON
IdentitytoolkitRelyingPartySetProjectConfigResponse'{..}
= object
(catMaybes [("projectId" .=) <$> _irpspcrProjectId])
data IdentitytoolkitRelyingPartyVerifyCustomTokenRequest =
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest'
{ _irpvctrInstanceId :: !(Maybe Text)
, _irpvctrDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpvctrToken :: !(Maybe Text)
, _irpvctrReturnSecureToken :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyVerifyCustomTokenRequest
:: IdentitytoolkitRelyingPartyVerifyCustomTokenRequest
identitytoolkitRelyingPartyVerifyCustomTokenRequest =
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest'
{ _irpvctrInstanceId = Nothing
, _irpvctrDelegatedProjectNumber = Nothing
, _irpvctrToken = Nothing
, _irpvctrReturnSecureToken = Nothing
}
irpvctrInstanceId :: Lens' IdentitytoolkitRelyingPartyVerifyCustomTokenRequest (Maybe Text)
irpvctrInstanceId
= lens _irpvctrInstanceId
(\ s a -> s{_irpvctrInstanceId = a})
irpvctrDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyVerifyCustomTokenRequest (Maybe Int64)
irpvctrDelegatedProjectNumber
= lens _irpvctrDelegatedProjectNumber
(\ s a -> s{_irpvctrDelegatedProjectNumber = a})
. mapping _Coerce
irpvctrToken :: Lens' IdentitytoolkitRelyingPartyVerifyCustomTokenRequest (Maybe Text)
irpvctrToken
= lens _irpvctrToken (\ s a -> s{_irpvctrToken = a})
irpvctrReturnSecureToken :: Lens' IdentitytoolkitRelyingPartyVerifyCustomTokenRequest (Maybe Bool)
irpvctrReturnSecureToken
= lens _irpvctrReturnSecureToken
(\ s a -> s{_irpvctrReturnSecureToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyVerifyCustomTokenRequest"
(\ o ->
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest'
<$>
(o .:? "instanceId") <*>
(o .:? "delegatedProjectNumber")
<*> (o .:? "token")
<*> (o .:? "returnSecureToken"))
instance ToJSON
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest
where
toJSON
IdentitytoolkitRelyingPartyVerifyCustomTokenRequest'{..}
= object
(catMaybes
[("instanceId" .=) <$> _irpvctrInstanceId,
("delegatedProjectNumber" .=) <$>
_irpvctrDelegatedProjectNumber,
("token" .=) <$> _irpvctrToken,
("returnSecureToken" .=) <$>
_irpvctrReturnSecureToken])
data SetAccountInfoResponseProviderUserInfoItem =
SetAccountInfoResponseProviderUserInfoItem'
{ _sairpuiiProviderId :: !(Maybe Text)
, _sairpuiiPhotoURL :: !(Maybe Text)
, _sairpuiiFederatedId :: !(Maybe Text)
, _sairpuiiDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
setAccountInfoResponseProviderUserInfoItem
:: SetAccountInfoResponseProviderUserInfoItem
setAccountInfoResponseProviderUserInfoItem =
SetAccountInfoResponseProviderUserInfoItem'
{ _sairpuiiProviderId = Nothing
, _sairpuiiPhotoURL = Nothing
, _sairpuiiFederatedId = Nothing
, _sairpuiiDisplayName = Nothing
}
sairpuiiProviderId :: Lens' SetAccountInfoResponseProviderUserInfoItem (Maybe Text)
sairpuiiProviderId
= lens _sairpuiiProviderId
(\ s a -> s{_sairpuiiProviderId = a})
sairpuiiPhotoURL :: Lens' SetAccountInfoResponseProviderUserInfoItem (Maybe Text)
sairpuiiPhotoURL
= lens _sairpuiiPhotoURL
(\ s a -> s{_sairpuiiPhotoURL = a})
sairpuiiFederatedId :: Lens' SetAccountInfoResponseProviderUserInfoItem (Maybe Text)
sairpuiiFederatedId
= lens _sairpuiiFederatedId
(\ s a -> s{_sairpuiiFederatedId = a})
sairpuiiDisplayName :: Lens' SetAccountInfoResponseProviderUserInfoItem (Maybe Text)
sairpuiiDisplayName
= lens _sairpuiiDisplayName
(\ s a -> s{_sairpuiiDisplayName = a})
instance FromJSON
SetAccountInfoResponseProviderUserInfoItem
where
parseJSON
= withObject
"SetAccountInfoResponseProviderUserInfoItem"
(\ o ->
SetAccountInfoResponseProviderUserInfoItem' <$>
(o .:? "providerId") <*> (o .:? "photoUrl") <*>
(o .:? "federatedId")
<*> (o .:? "displayName"))
instance ToJSON
SetAccountInfoResponseProviderUserInfoItem
where
toJSON
SetAccountInfoResponseProviderUserInfoItem'{..}
= object
(catMaybes
[("providerId" .=) <$> _sairpuiiProviderId,
("photoUrl" .=) <$> _sairpuiiPhotoURL,
("federatedId" .=) <$> _sairpuiiFederatedId,
("displayName" .=) <$> _sairpuiiDisplayName])
newtype IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter =
IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter'
{ _irpcaurcpAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter
:: HashMap Text Text
-> IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter
identitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter pIrpcaurcpAddtional_ =
IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter'
{_irpcaurcpAddtional = _Coerce # pIrpcaurcpAddtional_}
irpcaurcpAddtional :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter (HashMap Text Text)
irpcaurcpAddtional
= lens _irpcaurcpAddtional
(\ s a -> s{_irpcaurcpAddtional = a})
. _Coerce
instance FromJSON
IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter"
(\ o ->
IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter'
<$> (parseJSONObject o))
instance ToJSON
IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter
where
toJSON = toJSON . _irpcaurcpAddtional
data IdentitytoolkitRelyingPartyVerifyPasswordRequest =
IdentitytoolkitRelyingPartyVerifyPasswordRequest'
{ _irpvprEmail :: !(Maybe Text)
, _irpvprInstanceId :: !(Maybe Text)
, _irpvprCaptchaChallenge :: !(Maybe Text)
, _irpvprTenantProjectNumber :: !(Maybe (Textual Word64))
, _irpvprDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpvprReturnSecureToken :: !(Maybe Bool)
, _irpvprTenantId :: !(Maybe Text)
, _irpvprPassword :: !(Maybe Text)
, _irpvprCaptchaResponse :: !(Maybe Text)
, _irpvprIdToken :: !(Maybe Text)
, _irpvprPendingIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyVerifyPasswordRequest
:: IdentitytoolkitRelyingPartyVerifyPasswordRequest
identitytoolkitRelyingPartyVerifyPasswordRequest =
IdentitytoolkitRelyingPartyVerifyPasswordRequest'
{ _irpvprEmail = Nothing
, _irpvprInstanceId = Nothing
, _irpvprCaptchaChallenge = Nothing
, _irpvprTenantProjectNumber = Nothing
, _irpvprDelegatedProjectNumber = Nothing
, _irpvprReturnSecureToken = Nothing
, _irpvprTenantId = Nothing
, _irpvprPassword = Nothing
, _irpvprCaptchaResponse = Nothing
, _irpvprIdToken = Nothing
, _irpvprPendingIdToken = Nothing
}
irpvprEmail :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprEmail
= lens _irpvprEmail (\ s a -> s{_irpvprEmail = a})
irpvprInstanceId :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprInstanceId
= lens _irpvprInstanceId
(\ s a -> s{_irpvprInstanceId = a})
irpvprCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprCaptchaChallenge
= lens _irpvprCaptchaChallenge
(\ s a -> s{_irpvprCaptchaChallenge = a})
irpvprTenantProjectNumber :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Word64)
irpvprTenantProjectNumber
= lens _irpvprTenantProjectNumber
(\ s a -> s{_irpvprTenantProjectNumber = a})
. mapping _Coerce
irpvprDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Int64)
irpvprDelegatedProjectNumber
= lens _irpvprDelegatedProjectNumber
(\ s a -> s{_irpvprDelegatedProjectNumber = a})
. mapping _Coerce
irpvprReturnSecureToken :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Bool)
irpvprReturnSecureToken
= lens _irpvprReturnSecureToken
(\ s a -> s{_irpvprReturnSecureToken = a})
irpvprTenantId :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprTenantId
= lens _irpvprTenantId
(\ s a -> s{_irpvprTenantId = a})
irpvprPassword :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprPassword
= lens _irpvprPassword
(\ s a -> s{_irpvprPassword = a})
irpvprCaptchaResponse :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprCaptchaResponse
= lens _irpvprCaptchaResponse
(\ s a -> s{_irpvprCaptchaResponse = a})
irpvprIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprIdToken
= lens _irpvprIdToken
(\ s a -> s{_irpvprIdToken = a})
irpvprPendingIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
irpvprPendingIdToken
= lens _irpvprPendingIdToken
(\ s a -> s{_irpvprPendingIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyVerifyPasswordRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyVerifyPasswordRequest"
(\ o ->
IdentitytoolkitRelyingPartyVerifyPasswordRequest' <$>
(o .:? "email") <*> (o .:? "instanceId") <*>
(o .:? "captchaChallenge")
<*> (o .:? "tenantProjectNumber")
<*> (o .:? "delegatedProjectNumber")
<*> (o .:? "returnSecureToken")
<*> (o .:? "tenantId")
<*> (o .:? "password")
<*> (o .:? "captchaResponse")
<*> (o .:? "idToken")
<*> (o .:? "pendingIdToken"))
instance ToJSON
IdentitytoolkitRelyingPartyVerifyPasswordRequest
where
toJSON
IdentitytoolkitRelyingPartyVerifyPasswordRequest'{..}
= object
(catMaybes
[("email" .=) <$> _irpvprEmail,
("instanceId" .=) <$> _irpvprInstanceId,
("captchaChallenge" .=) <$> _irpvprCaptchaChallenge,
("tenantProjectNumber" .=) <$>
_irpvprTenantProjectNumber,
("delegatedProjectNumber" .=) <$>
_irpvprDelegatedProjectNumber,
("returnSecureToken" .=) <$>
_irpvprReturnSecureToken,
("tenantId" .=) <$> _irpvprTenantId,
("password" .=) <$> _irpvprPassword,
("captchaResponse" .=) <$> _irpvprCaptchaResponse,
("idToken" .=) <$> _irpvprIdToken,
("pendingIdToken" .=) <$> _irpvprPendingIdToken])
data IdentitytoolkitRelyingPartySendVerificationCodeRequest =
IdentitytoolkitRelyingPartySendVerificationCodeRequest'
{ _irpsvcrPhoneNumber :: !(Maybe Text)
, _irpsvcrRecaptchaToken :: !(Maybe Text)
, _irpsvcrIosSecret :: !(Maybe Text)
, _irpsvcrIosReceipt :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySendVerificationCodeRequest
:: IdentitytoolkitRelyingPartySendVerificationCodeRequest
identitytoolkitRelyingPartySendVerificationCodeRequest =
IdentitytoolkitRelyingPartySendVerificationCodeRequest'
{ _irpsvcrPhoneNumber = Nothing
, _irpsvcrRecaptchaToken = Nothing
, _irpsvcrIosSecret = Nothing
, _irpsvcrIosReceipt = Nothing
}
irpsvcrPhoneNumber :: Lens' IdentitytoolkitRelyingPartySendVerificationCodeRequest (Maybe Text)
irpsvcrPhoneNumber
= lens _irpsvcrPhoneNumber
(\ s a -> s{_irpsvcrPhoneNumber = a})
irpsvcrRecaptchaToken :: Lens' IdentitytoolkitRelyingPartySendVerificationCodeRequest (Maybe Text)
irpsvcrRecaptchaToken
= lens _irpsvcrRecaptchaToken
(\ s a -> s{_irpsvcrRecaptchaToken = a})
irpsvcrIosSecret :: Lens' IdentitytoolkitRelyingPartySendVerificationCodeRequest (Maybe Text)
irpsvcrIosSecret
= lens _irpsvcrIosSecret
(\ s a -> s{_irpsvcrIosSecret = a})
irpsvcrIosReceipt :: Lens' IdentitytoolkitRelyingPartySendVerificationCodeRequest (Maybe Text)
irpsvcrIosReceipt
= lens _irpsvcrIosReceipt
(\ s a -> s{_irpsvcrIosReceipt = a})
instance FromJSON
IdentitytoolkitRelyingPartySendVerificationCodeRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySendVerificationCodeRequest"
(\ o ->
IdentitytoolkitRelyingPartySendVerificationCodeRequest'
<$>
(o .:? "phoneNumber") <*> (o .:? "recaptchaToken")
<*> (o .:? "iosSecret")
<*> (o .:? "iosReceipt"))
instance ToJSON
IdentitytoolkitRelyingPartySendVerificationCodeRequest
where
toJSON
IdentitytoolkitRelyingPartySendVerificationCodeRequest'{..}
= object
(catMaybes
[("phoneNumber" .=) <$> _irpsvcrPhoneNumber,
("recaptchaToken" .=) <$> _irpsvcrRecaptchaToken,
("iosSecret" .=) <$> _irpsvcrIosSecret,
("iosReceipt" .=) <$> _irpsvcrIosReceipt])
data SignupNewUserResponse =
SignupNewUserResponse'
{ _snurEmail :: !(Maybe Text)
, _snurKind :: !Text
, _snurRefreshToken :: !(Maybe Text)
, _snurExpiresIn :: !(Maybe (Textual Int64))
, _snurDisplayName :: !(Maybe Text)
, _snurLocalId :: !(Maybe Text)
, _snurIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
signupNewUserResponse
:: SignupNewUserResponse
signupNewUserResponse =
SignupNewUserResponse'
{ _snurEmail = Nothing
, _snurKind = "identitytoolkit#SignupNewUserResponse"
, _snurRefreshToken = Nothing
, _snurExpiresIn = Nothing
, _snurDisplayName = Nothing
, _snurLocalId = Nothing
, _snurIdToken = Nothing
}
snurEmail :: Lens' SignupNewUserResponse (Maybe Text)
snurEmail
= lens _snurEmail (\ s a -> s{_snurEmail = a})
snurKind :: Lens' SignupNewUserResponse Text
snurKind = lens _snurKind (\ s a -> s{_snurKind = a})
snurRefreshToken :: Lens' SignupNewUserResponse (Maybe Text)
snurRefreshToken
= lens _snurRefreshToken
(\ s a -> s{_snurRefreshToken = a})
snurExpiresIn :: Lens' SignupNewUserResponse (Maybe Int64)
snurExpiresIn
= lens _snurExpiresIn
(\ s a -> s{_snurExpiresIn = a})
. mapping _Coerce
snurDisplayName :: Lens' SignupNewUserResponse (Maybe Text)
snurDisplayName
= lens _snurDisplayName
(\ s a -> s{_snurDisplayName = a})
snurLocalId :: Lens' SignupNewUserResponse (Maybe Text)
snurLocalId
= lens _snurLocalId (\ s a -> s{_snurLocalId = a})
snurIdToken :: Lens' SignupNewUserResponse (Maybe Text)
snurIdToken
= lens _snurIdToken (\ s a -> s{_snurIdToken = a})
instance FromJSON SignupNewUserResponse where
parseJSON
= withObject "SignupNewUserResponse"
(\ o ->
SignupNewUserResponse' <$>
(o .:? "email") <*>
(o .:? "kind" .!=
"identitytoolkit#SignupNewUserResponse")
<*> (o .:? "refreshToken")
<*> (o .:? "expiresIn")
<*> (o .:? "displayName")
<*> (o .:? "localId")
<*> (o .:? "idToken"))
instance ToJSON SignupNewUserResponse where
toJSON SignupNewUserResponse'{..}
= object
(catMaybes
[("email" .=) <$> _snurEmail,
Just ("kind" .= _snurKind),
("refreshToken" .=) <$> _snurRefreshToken,
("expiresIn" .=) <$> _snurExpiresIn,
("displayName" .=) <$> _snurDisplayName,
("localId" .=) <$> _snurLocalId,
("idToken" .=) <$> _snurIdToken])
data IdentitytoolkitRelyingPartySetProjectConfigRequest =
IdentitytoolkitRelyingPartySetProjectConfigRequest'
{ _irpspcrAuthorizedDomains :: !(Maybe [Text])
, _irpspcrAPIKey :: !(Maybe Text)
, _irpspcrIdpConfig :: !(Maybe [IdpConfig])
, _irpspcrChangeEmailTemplate :: !(Maybe EmailTemplate)
, _irpspcrDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpspcrVerifyEmailTemplate :: !(Maybe EmailTemplate)
, _irpspcrEnableAnonymousUser :: !(Maybe Bool)
, _irpspcrLegacyResetPasswordTemplate :: !(Maybe EmailTemplate)
, _irpspcrAllowPasswordUser :: !(Maybe Bool)
, _irpspcrResetPasswordTemplate :: !(Maybe EmailTemplate)
, _irpspcrUseEmailSending :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySetProjectConfigRequest
:: IdentitytoolkitRelyingPartySetProjectConfigRequest
identitytoolkitRelyingPartySetProjectConfigRequest =
IdentitytoolkitRelyingPartySetProjectConfigRequest'
{ _irpspcrAuthorizedDomains = Nothing
, _irpspcrAPIKey = Nothing
, _irpspcrIdpConfig = Nothing
, _irpspcrChangeEmailTemplate = Nothing
, _irpspcrDelegatedProjectNumber = Nothing
, _irpspcrVerifyEmailTemplate = Nothing
, _irpspcrEnableAnonymousUser = Nothing
, _irpspcrLegacyResetPasswordTemplate = Nothing
, _irpspcrAllowPasswordUser = Nothing
, _irpspcrResetPasswordTemplate = Nothing
, _irpspcrUseEmailSending = Nothing
}
irpspcrAuthorizedDomains :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest [Text]
irpspcrAuthorizedDomains
= lens _irpspcrAuthorizedDomains
(\ s a -> s{_irpspcrAuthorizedDomains = a})
. _Default
. _Coerce
irpspcrAPIKey :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe Text)
irpspcrAPIKey
= lens _irpspcrAPIKey
(\ s a -> s{_irpspcrAPIKey = a})
irpspcrIdpConfig :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest [IdpConfig]
irpspcrIdpConfig
= lens _irpspcrIdpConfig
(\ s a -> s{_irpspcrIdpConfig = a})
. _Default
. _Coerce
irpspcrChangeEmailTemplate :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe EmailTemplate)
irpspcrChangeEmailTemplate
= lens _irpspcrChangeEmailTemplate
(\ s a -> s{_irpspcrChangeEmailTemplate = a})
irpspcrDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe Int64)
irpspcrDelegatedProjectNumber
= lens _irpspcrDelegatedProjectNumber
(\ s a -> s{_irpspcrDelegatedProjectNumber = a})
. mapping _Coerce
irpspcrVerifyEmailTemplate :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe EmailTemplate)
irpspcrVerifyEmailTemplate
= lens _irpspcrVerifyEmailTemplate
(\ s a -> s{_irpspcrVerifyEmailTemplate = a})
irpspcrEnableAnonymousUser :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe Bool)
irpspcrEnableAnonymousUser
= lens _irpspcrEnableAnonymousUser
(\ s a -> s{_irpspcrEnableAnonymousUser = a})
irpspcrLegacyResetPasswordTemplate :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe EmailTemplate)
irpspcrLegacyResetPasswordTemplate
= lens _irpspcrLegacyResetPasswordTemplate
(\ s a -> s{_irpspcrLegacyResetPasswordTemplate = a})
irpspcrAllowPasswordUser :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe Bool)
irpspcrAllowPasswordUser
= lens _irpspcrAllowPasswordUser
(\ s a -> s{_irpspcrAllowPasswordUser = a})
irpspcrResetPasswordTemplate :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe EmailTemplate)
irpspcrResetPasswordTemplate
= lens _irpspcrResetPasswordTemplate
(\ s a -> s{_irpspcrResetPasswordTemplate = a})
irpspcrUseEmailSending :: Lens' IdentitytoolkitRelyingPartySetProjectConfigRequest (Maybe Bool)
irpspcrUseEmailSending
= lens _irpspcrUseEmailSending
(\ s a -> s{_irpspcrUseEmailSending = a})
instance FromJSON
IdentitytoolkitRelyingPartySetProjectConfigRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySetProjectConfigRequest"
(\ o ->
IdentitytoolkitRelyingPartySetProjectConfigRequest'
<$>
(o .:? "authorizedDomains" .!= mempty) <*>
(o .:? "apiKey")
<*> (o .:? "idpConfig" .!= mempty)
<*> (o .:? "changeEmailTemplate")
<*> (o .:? "delegatedProjectNumber")
<*> (o .:? "verifyEmailTemplate")
<*> (o .:? "enableAnonymousUser")
<*> (o .:? "legacyResetPasswordTemplate")
<*> (o .:? "allowPasswordUser")
<*> (o .:? "resetPasswordTemplate")
<*> (o .:? "useEmailSending"))
instance ToJSON
IdentitytoolkitRelyingPartySetProjectConfigRequest
where
toJSON
IdentitytoolkitRelyingPartySetProjectConfigRequest'{..}
= object
(catMaybes
[("authorizedDomains" .=) <$>
_irpspcrAuthorizedDomains,
("apiKey" .=) <$> _irpspcrAPIKey,
("idpConfig" .=) <$> _irpspcrIdpConfig,
("changeEmailTemplate" .=) <$>
_irpspcrChangeEmailTemplate,
("delegatedProjectNumber" .=) <$>
_irpspcrDelegatedProjectNumber,
("verifyEmailTemplate" .=) <$>
_irpspcrVerifyEmailTemplate,
("enableAnonymousUser" .=) <$>
_irpspcrEnableAnonymousUser,
("legacyResetPasswordTemplate" .=) <$>
_irpspcrLegacyResetPasswordTemplate,
("allowPasswordUser" .=) <$>
_irpspcrAllowPasswordUser,
("resetPasswordTemplate" .=) <$>
_irpspcrResetPasswordTemplate,
("useEmailSending" .=) <$> _irpspcrUseEmailSending])
data IdentitytoolkitRelyingPartySetAccountInfoRequest =
IdentitytoolkitRelyingPartySetAccountInfoRequest'
{ _irpsairUpgradeToFederatedLogin :: !(Maybe Bool)
, _irpsairEmail :: !(Maybe Text)
, _irpsairInstanceId :: !(Maybe Text)
, _irpsairLastLoginAt :: !(Maybe (Textual Int64))
, _irpsairPhotoURL :: !(Maybe Text)
, _irpsairCaptchaChallenge :: !(Maybe Text)
, _irpsairCreatedAt :: !(Maybe (Textual Int64))
, _irpsairDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpsairDeleteAttribute :: !(Maybe [Text])
, _irpsairDeleteProvider :: !(Maybe [Text])
, _irpsairReturnSecureToken :: !(Maybe Bool)
, _irpsairCustomAttributes :: !(Maybe Text)
, _irpsairValidSince :: !(Maybe (Textual Int64))
, _irpsairOOBCode :: !(Maybe Text)
, _irpsairPassword :: !(Maybe Text)
, _irpsairCaptchaResponse :: !(Maybe Text)
, _irpsairPhoneNumber :: !(Maybe Text)
, _irpsairEmailVerified :: !(Maybe Bool)
, _irpsairDisplayName :: !(Maybe Text)
, _irpsairDisableUser :: !(Maybe Bool)
, _irpsairLocalId :: !(Maybe Text)
, _irpsairIdToken :: !(Maybe Text)
, _irpsairProvider :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySetAccountInfoRequest
:: IdentitytoolkitRelyingPartySetAccountInfoRequest
identitytoolkitRelyingPartySetAccountInfoRequest =
IdentitytoolkitRelyingPartySetAccountInfoRequest'
{ _irpsairUpgradeToFederatedLogin = Nothing
, _irpsairEmail = Nothing
, _irpsairInstanceId = Nothing
, _irpsairLastLoginAt = Nothing
, _irpsairPhotoURL = Nothing
, _irpsairCaptchaChallenge = Nothing
, _irpsairCreatedAt = Nothing
, _irpsairDelegatedProjectNumber = Nothing
, _irpsairDeleteAttribute = Nothing
, _irpsairDeleteProvider = Nothing
, _irpsairReturnSecureToken = Nothing
, _irpsairCustomAttributes = Nothing
, _irpsairValidSince = Nothing
, _irpsairOOBCode = Nothing
, _irpsairPassword = Nothing
, _irpsairCaptchaResponse = Nothing
, _irpsairPhoneNumber = Nothing
, _irpsairEmailVerified = Nothing
, _irpsairDisplayName = Nothing
, _irpsairDisableUser = Nothing
, _irpsairLocalId = Nothing
, _irpsairIdToken = Nothing
, _irpsairProvider = Nothing
}
irpsairUpgradeToFederatedLogin :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
irpsairUpgradeToFederatedLogin
= lens _irpsairUpgradeToFederatedLogin
(\ s a -> s{_irpsairUpgradeToFederatedLogin = a})
irpsairEmail :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairEmail
= lens _irpsairEmail (\ s a -> s{_irpsairEmail = a})
irpsairInstanceId :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairInstanceId
= lens _irpsairInstanceId
(\ s a -> s{_irpsairInstanceId = a})
irpsairLastLoginAt :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Int64)
irpsairLastLoginAt
= lens _irpsairLastLoginAt
(\ s a -> s{_irpsairLastLoginAt = a})
. mapping _Coerce
irpsairPhotoURL :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairPhotoURL
= lens _irpsairPhotoURL
(\ s a -> s{_irpsairPhotoURL = a})
irpsairCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairCaptchaChallenge
= lens _irpsairCaptchaChallenge
(\ s a -> s{_irpsairCaptchaChallenge = a})
irpsairCreatedAt :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Int64)
irpsairCreatedAt
= lens _irpsairCreatedAt
(\ s a -> s{_irpsairCreatedAt = a})
. mapping _Coerce
irpsairDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Int64)
irpsairDelegatedProjectNumber
= lens _irpsairDelegatedProjectNumber
(\ s a -> s{_irpsairDelegatedProjectNumber = a})
. mapping _Coerce
irpsairDeleteAttribute :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest [Text]
irpsairDeleteAttribute
= lens _irpsairDeleteAttribute
(\ s a -> s{_irpsairDeleteAttribute = a})
. _Default
. _Coerce
irpsairDeleteProvider :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest [Text]
irpsairDeleteProvider
= lens _irpsairDeleteProvider
(\ s a -> s{_irpsairDeleteProvider = a})
. _Default
. _Coerce
irpsairReturnSecureToken :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
irpsairReturnSecureToken
= lens _irpsairReturnSecureToken
(\ s a -> s{_irpsairReturnSecureToken = a})
irpsairCustomAttributes :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairCustomAttributes
= lens _irpsairCustomAttributes
(\ s a -> s{_irpsairCustomAttributes = a})
irpsairValidSince :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Int64)
irpsairValidSince
= lens _irpsairValidSince
(\ s a -> s{_irpsairValidSince = a})
. mapping _Coerce
irpsairOOBCode :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairOOBCode
= lens _irpsairOOBCode
(\ s a -> s{_irpsairOOBCode = a})
irpsairPassword :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairPassword
= lens _irpsairPassword
(\ s a -> s{_irpsairPassword = a})
irpsairCaptchaResponse :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairCaptchaResponse
= lens _irpsairCaptchaResponse
(\ s a -> s{_irpsairCaptchaResponse = a})
irpsairPhoneNumber :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairPhoneNumber
= lens _irpsairPhoneNumber
(\ s a -> s{_irpsairPhoneNumber = a})
irpsairEmailVerified :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
irpsairEmailVerified
= lens _irpsairEmailVerified
(\ s a -> s{_irpsairEmailVerified = a})
irpsairDisplayName :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairDisplayName
= lens _irpsairDisplayName
(\ s a -> s{_irpsairDisplayName = a})
irpsairDisableUser :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
irpsairDisableUser
= lens _irpsairDisableUser
(\ s a -> s{_irpsairDisableUser = a})
irpsairLocalId :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairLocalId
= lens _irpsairLocalId
(\ s a -> s{_irpsairLocalId = a})
irpsairIdToken :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
irpsairIdToken
= lens _irpsairIdToken
(\ s a -> s{_irpsairIdToken = a})
irpsairProvider :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest [Text]
irpsairProvider
= lens _irpsairProvider
(\ s a -> s{_irpsairProvider = a})
. _Default
. _Coerce
instance FromJSON
IdentitytoolkitRelyingPartySetAccountInfoRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySetAccountInfoRequest"
(\ o ->
IdentitytoolkitRelyingPartySetAccountInfoRequest' <$>
(o .:? "upgradeToFederatedLogin") <*> (o .:? "email")
<*> (o .:? "instanceId")
<*> (o .:? "lastLoginAt")
<*> (o .:? "photoUrl")
<*> (o .:? "captchaChallenge")
<*> (o .:? "createdAt")
<*> (o .:? "delegatedProjectNumber")
<*> (o .:? "deleteAttribute" .!= mempty)
<*> (o .:? "deleteProvider" .!= mempty)
<*> (o .:? "returnSecureToken")
<*> (o .:? "customAttributes")
<*> (o .:? "validSince")
<*> (o .:? "oobCode")
<*> (o .:? "password")
<*> (o .:? "captchaResponse")
<*> (o .:? "phoneNumber")
<*> (o .:? "emailVerified")
<*> (o .:? "displayName")
<*> (o .:? "disableUser")
<*> (o .:? "localId")
<*> (o .:? "idToken")
<*> (o .:? "provider" .!= mempty))
instance ToJSON
IdentitytoolkitRelyingPartySetAccountInfoRequest
where
toJSON
IdentitytoolkitRelyingPartySetAccountInfoRequest'{..}
= object
(catMaybes
[("upgradeToFederatedLogin" .=) <$>
_irpsairUpgradeToFederatedLogin,
("email" .=) <$> _irpsairEmail,
("instanceId" .=) <$> _irpsairInstanceId,
("lastLoginAt" .=) <$> _irpsairLastLoginAt,
("photoUrl" .=) <$> _irpsairPhotoURL,
("captchaChallenge" .=) <$> _irpsairCaptchaChallenge,
("createdAt" .=) <$> _irpsairCreatedAt,
("delegatedProjectNumber" .=) <$>
_irpsairDelegatedProjectNumber,
("deleteAttribute" .=) <$> _irpsairDeleteAttribute,
("deleteProvider" .=) <$> _irpsairDeleteProvider,
("returnSecureToken" .=) <$>
_irpsairReturnSecureToken,
("customAttributes" .=) <$> _irpsairCustomAttributes,
("validSince" .=) <$> _irpsairValidSince,
("oobCode" .=) <$> _irpsairOOBCode,
("password" .=) <$> _irpsairPassword,
("captchaResponse" .=) <$> _irpsairCaptchaResponse,
("phoneNumber" .=) <$> _irpsairPhoneNumber,
("emailVerified" .=) <$> _irpsairEmailVerified,
("displayName" .=) <$> _irpsairDisplayName,
("disableUser" .=) <$> _irpsairDisableUser,
("localId" .=) <$> _irpsairLocalId,
("idToken" .=) <$> _irpsairIdToken,
("provider" .=) <$> _irpsairProvider])
data IdentitytoolkitRelyingPartyVerifyAssertionRequest =
IdentitytoolkitRelyingPartyVerifyAssertionRequest'
{ _irpvarReturnIdpCredential :: !(Maybe Bool)
, _irpvarInstanceId :: !(Maybe Text)
, _irpvarTenantProjectNumber :: !(Maybe (Textual Word64))
, _irpvarDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpvarPostBody :: !(Maybe Text)
, _irpvarReturnSecureToken :: !(Maybe Bool)
, _irpvarTenantId :: !(Maybe Text)
, _irpvarReturnRefreshToken :: !(Maybe Bool)
, _irpvarRequestURI :: !(Maybe Text)
, _irpvarSessionId :: !(Maybe Text)
, _irpvarAutoCreate :: !(Maybe Bool)
, _irpvarIdToken :: !(Maybe Text)
, _irpvarPendingIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyVerifyAssertionRequest
:: IdentitytoolkitRelyingPartyVerifyAssertionRequest
identitytoolkitRelyingPartyVerifyAssertionRequest =
IdentitytoolkitRelyingPartyVerifyAssertionRequest'
{ _irpvarReturnIdpCredential = Nothing
, _irpvarInstanceId = Nothing
, _irpvarTenantProjectNumber = Nothing
, _irpvarDelegatedProjectNumber = Nothing
, _irpvarPostBody = Nothing
, _irpvarReturnSecureToken = Nothing
, _irpvarTenantId = Nothing
, _irpvarReturnRefreshToken = Nothing
, _irpvarRequestURI = Nothing
, _irpvarSessionId = Nothing
, _irpvarAutoCreate = Nothing
, _irpvarIdToken = Nothing
, _irpvarPendingIdToken = Nothing
}
irpvarReturnIdpCredential :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Bool)
irpvarReturnIdpCredential
= lens _irpvarReturnIdpCredential
(\ s a -> s{_irpvarReturnIdpCredential = a})
irpvarInstanceId :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarInstanceId
= lens _irpvarInstanceId
(\ s a -> s{_irpvarInstanceId = a})
irpvarTenantProjectNumber :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Word64)
irpvarTenantProjectNumber
= lens _irpvarTenantProjectNumber
(\ s a -> s{_irpvarTenantProjectNumber = a})
. mapping _Coerce
irpvarDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Int64)
irpvarDelegatedProjectNumber
= lens _irpvarDelegatedProjectNumber
(\ s a -> s{_irpvarDelegatedProjectNumber = a})
. mapping _Coerce
irpvarPostBody :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarPostBody
= lens _irpvarPostBody
(\ s a -> s{_irpvarPostBody = a})
irpvarReturnSecureToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Bool)
irpvarReturnSecureToken
= lens _irpvarReturnSecureToken
(\ s a -> s{_irpvarReturnSecureToken = a})
irpvarTenantId :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarTenantId
= lens _irpvarTenantId
(\ s a -> s{_irpvarTenantId = a})
irpvarReturnRefreshToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Bool)
irpvarReturnRefreshToken
= lens _irpvarReturnRefreshToken
(\ s a -> s{_irpvarReturnRefreshToken = a})
irpvarRequestURI :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarRequestURI
= lens _irpvarRequestURI
(\ s a -> s{_irpvarRequestURI = a})
irpvarSessionId :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarSessionId
= lens _irpvarSessionId
(\ s a -> s{_irpvarSessionId = a})
irpvarAutoCreate :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Bool)
irpvarAutoCreate
= lens _irpvarAutoCreate
(\ s a -> s{_irpvarAutoCreate = a})
irpvarIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarIdToken
= lens _irpvarIdToken
(\ s a -> s{_irpvarIdToken = a})
irpvarPendingIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
irpvarPendingIdToken
= lens _irpvarPendingIdToken
(\ s a -> s{_irpvarPendingIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyVerifyAssertionRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyVerifyAssertionRequest"
(\ o ->
IdentitytoolkitRelyingPartyVerifyAssertionRequest'
<$>
(o .:? "returnIdpCredential") <*>
(o .:? "instanceId")
<*> (o .:? "tenantProjectNumber")
<*> (o .:? "delegatedProjectNumber")
<*> (o .:? "postBody")
<*> (o .:? "returnSecureToken")
<*> (o .:? "tenantId")
<*> (o .:? "returnRefreshToken")
<*> (o .:? "requestUri")
<*> (o .:? "sessionId")
<*> (o .:? "autoCreate")
<*> (o .:? "idToken")
<*> (o .:? "pendingIdToken"))
instance ToJSON
IdentitytoolkitRelyingPartyVerifyAssertionRequest
where
toJSON
IdentitytoolkitRelyingPartyVerifyAssertionRequest'{..}
= object
(catMaybes
[("returnIdpCredential" .=) <$>
_irpvarReturnIdpCredential,
("instanceId" .=) <$> _irpvarInstanceId,
("tenantProjectNumber" .=) <$>
_irpvarTenantProjectNumber,
("delegatedProjectNumber" .=) <$>
_irpvarDelegatedProjectNumber,
("postBody" .=) <$> _irpvarPostBody,
("returnSecureToken" .=) <$>
_irpvarReturnSecureToken,
("tenantId" .=) <$> _irpvarTenantId,
("returnRefreshToken" .=) <$>
_irpvarReturnRefreshToken,
("requestUri" .=) <$> _irpvarRequestURI,
("sessionId" .=) <$> _irpvarSessionId,
("autoCreate" .=) <$> _irpvarAutoCreate,
("idToken" .=) <$> _irpvarIdToken,
("pendingIdToken" .=) <$> _irpvarPendingIdToken])
data EmailLinkSigninResponse =
EmailLinkSigninResponse'
{ _elsrEmail :: !(Maybe Text)
, _elsrIsNewUser :: !(Maybe Bool)
, _elsrKind :: !Text
, _elsrRefreshToken :: !(Maybe Text)
, _elsrExpiresIn :: !(Maybe (Textual Int64))
, _elsrLocalId :: !(Maybe Text)
, _elsrIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
emailLinkSigninResponse
:: EmailLinkSigninResponse
emailLinkSigninResponse =
EmailLinkSigninResponse'
{ _elsrEmail = Nothing
, _elsrIsNewUser = Nothing
, _elsrKind = "identitytoolkit#EmailLinkSigninResponse"
, _elsrRefreshToken = Nothing
, _elsrExpiresIn = Nothing
, _elsrLocalId = Nothing
, _elsrIdToken = Nothing
}
elsrEmail :: Lens' EmailLinkSigninResponse (Maybe Text)
elsrEmail
= lens _elsrEmail (\ s a -> s{_elsrEmail = a})
elsrIsNewUser :: Lens' EmailLinkSigninResponse (Maybe Bool)
elsrIsNewUser
= lens _elsrIsNewUser
(\ s a -> s{_elsrIsNewUser = a})
elsrKind :: Lens' EmailLinkSigninResponse Text
elsrKind = lens _elsrKind (\ s a -> s{_elsrKind = a})
elsrRefreshToken :: Lens' EmailLinkSigninResponse (Maybe Text)
elsrRefreshToken
= lens _elsrRefreshToken
(\ s a -> s{_elsrRefreshToken = a})
elsrExpiresIn :: Lens' EmailLinkSigninResponse (Maybe Int64)
elsrExpiresIn
= lens _elsrExpiresIn
(\ s a -> s{_elsrExpiresIn = a})
. mapping _Coerce
elsrLocalId :: Lens' EmailLinkSigninResponse (Maybe Text)
elsrLocalId
= lens _elsrLocalId (\ s a -> s{_elsrLocalId = a})
elsrIdToken :: Lens' EmailLinkSigninResponse (Maybe Text)
elsrIdToken
= lens _elsrIdToken (\ s a -> s{_elsrIdToken = a})
instance FromJSON EmailLinkSigninResponse where
parseJSON
= withObject "EmailLinkSigninResponse"
(\ o ->
EmailLinkSigninResponse' <$>
(o .:? "email") <*> (o .:? "isNewUser") <*>
(o .:? "kind" .!=
"identitytoolkit#EmailLinkSigninResponse")
<*> (o .:? "refreshToken")
<*> (o .:? "expiresIn")
<*> (o .:? "localId")
<*> (o .:? "idToken"))
instance ToJSON EmailLinkSigninResponse where
toJSON EmailLinkSigninResponse'{..}
= object
(catMaybes
[("email" .=) <$> _elsrEmail,
("isNewUser" .=) <$> _elsrIsNewUser,
Just ("kind" .= _elsrKind),
("refreshToken" .=) <$> _elsrRefreshToken,
("expiresIn" .=) <$> _elsrExpiresIn,
("localId" .=) <$> _elsrLocalId,
("idToken" .=) <$> _elsrIdToken])
newtype DeleteAccountResponse =
DeleteAccountResponse'
{ _darKind :: Text
}
deriving (Eq, Show, Data, Typeable, Generic)
deleteAccountResponse
:: DeleteAccountResponse
deleteAccountResponse =
DeleteAccountResponse' {_darKind = "identitytoolkit#DeleteAccountResponse"}
darKind :: Lens' DeleteAccountResponse Text
darKind = lens _darKind (\ s a -> s{_darKind = a})
instance FromJSON DeleteAccountResponse where
parseJSON
= withObject "DeleteAccountResponse"
(\ o ->
DeleteAccountResponse' <$>
(o .:? "kind" .!=
"identitytoolkit#DeleteAccountResponse"))
instance ToJSON DeleteAccountResponse where
toJSON DeleteAccountResponse'{..}
= object (catMaybes [Just ("kind" .= _darKind)])
newtype IdentitytoolkitRelyingPartySignOutUserResponse =
IdentitytoolkitRelyingPartySignOutUserResponse'
{ _irpsourLocalId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySignOutUserResponse
:: IdentitytoolkitRelyingPartySignOutUserResponse
identitytoolkitRelyingPartySignOutUserResponse =
IdentitytoolkitRelyingPartySignOutUserResponse' {_irpsourLocalId = Nothing}
irpsourLocalId :: Lens' IdentitytoolkitRelyingPartySignOutUserResponse (Maybe Text)
irpsourLocalId
= lens _irpsourLocalId
(\ s a -> s{_irpsourLocalId = a})
instance FromJSON
IdentitytoolkitRelyingPartySignOutUserResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySignOutUserResponse"
(\ o ->
IdentitytoolkitRelyingPartySignOutUserResponse' <$>
(o .:? "localId"))
instance ToJSON
IdentitytoolkitRelyingPartySignOutUserResponse
where
toJSON
IdentitytoolkitRelyingPartySignOutUserResponse'{..}
= object
(catMaybes [("localId" .=) <$> _irpsourLocalId])
data DownloadAccountResponse =
DownloadAccountResponse'
{ _dNextPageToken :: !(Maybe Text)
, _dUsers :: !(Maybe [UserInfo])
, _dKind :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
downloadAccountResponse
:: DownloadAccountResponse
downloadAccountResponse =
DownloadAccountResponse'
{ _dNextPageToken = Nothing
, _dUsers = Nothing
, _dKind = "identitytoolkit#DownloadAccountResponse"
}
dNextPageToken :: Lens' DownloadAccountResponse (Maybe Text)
dNextPageToken
= lens _dNextPageToken
(\ s a -> s{_dNextPageToken = a})
dUsers :: Lens' DownloadAccountResponse [UserInfo]
dUsers
= lens _dUsers (\ s a -> s{_dUsers = a}) . _Default .
_Coerce
dKind :: Lens' DownloadAccountResponse Text
dKind = lens _dKind (\ s a -> s{_dKind = a})
instance FromJSON DownloadAccountResponse where
parseJSON
= withObject "DownloadAccountResponse"
(\ o ->
DownloadAccountResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "users" .!= mempty)
<*>
(o .:? "kind" .!=
"identitytoolkit#DownloadAccountResponse"))
instance ToJSON DownloadAccountResponse where
toJSON DownloadAccountResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _dNextPageToken,
("users" .=) <$> _dUsers, Just ("kind" .= _dKind)])
data IdentitytoolkitRelyingPartyGetProjectConfigResponse =
IdentitytoolkitRelyingPartyGetProjectConfigResponse'
{ _irpgpcrAuthorizedDomains :: !(Maybe [Text])
, _irpgpcrAPIKey :: !(Maybe Text)
, _irpgpcrIdpConfig :: !(Maybe [IdpConfig])
, _irpgpcrChangeEmailTemplate :: !(Maybe EmailTemplate)
, _irpgpcrVerifyEmailTemplate :: !(Maybe EmailTemplate)
, _irpgpcrEnableAnonymousUser :: !(Maybe Bool)
, _irpgpcrLegacyResetPasswordTemplate :: !(Maybe EmailTemplate)
, _irpgpcrAllowPasswordUser :: !(Maybe Bool)
, _irpgpcrResetPasswordTemplate :: !(Maybe EmailTemplate)
, _irpgpcrProjectId :: !(Maybe Text)
, _irpgpcrUseEmailSending :: !(Maybe Bool)
, _irpgpcrDynamicLinksDomain :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyGetProjectConfigResponse
:: IdentitytoolkitRelyingPartyGetProjectConfigResponse
identitytoolkitRelyingPartyGetProjectConfigResponse =
IdentitytoolkitRelyingPartyGetProjectConfigResponse'
{ _irpgpcrAuthorizedDomains = Nothing
, _irpgpcrAPIKey = Nothing
, _irpgpcrIdpConfig = Nothing
, _irpgpcrChangeEmailTemplate = Nothing
, _irpgpcrVerifyEmailTemplate = Nothing
, _irpgpcrEnableAnonymousUser = Nothing
, _irpgpcrLegacyResetPasswordTemplate = Nothing
, _irpgpcrAllowPasswordUser = Nothing
, _irpgpcrResetPasswordTemplate = Nothing
, _irpgpcrProjectId = Nothing
, _irpgpcrUseEmailSending = Nothing
, _irpgpcrDynamicLinksDomain = Nothing
}
irpgpcrAuthorizedDomains :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse [Text]
irpgpcrAuthorizedDomains
= lens _irpgpcrAuthorizedDomains
(\ s a -> s{_irpgpcrAuthorizedDomains = a})
. _Default
. _Coerce
irpgpcrAPIKey :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Text)
irpgpcrAPIKey
= lens _irpgpcrAPIKey
(\ s a -> s{_irpgpcrAPIKey = a})
irpgpcrIdpConfig :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse [IdpConfig]
irpgpcrIdpConfig
= lens _irpgpcrIdpConfig
(\ s a -> s{_irpgpcrIdpConfig = a})
. _Default
. _Coerce
irpgpcrChangeEmailTemplate :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe EmailTemplate)
irpgpcrChangeEmailTemplate
= lens _irpgpcrChangeEmailTemplate
(\ s a -> s{_irpgpcrChangeEmailTemplate = a})
irpgpcrVerifyEmailTemplate :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe EmailTemplate)
irpgpcrVerifyEmailTemplate
= lens _irpgpcrVerifyEmailTemplate
(\ s a -> s{_irpgpcrVerifyEmailTemplate = a})
irpgpcrEnableAnonymousUser :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Bool)
irpgpcrEnableAnonymousUser
= lens _irpgpcrEnableAnonymousUser
(\ s a -> s{_irpgpcrEnableAnonymousUser = a})
irpgpcrLegacyResetPasswordTemplate :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe EmailTemplate)
irpgpcrLegacyResetPasswordTemplate
= lens _irpgpcrLegacyResetPasswordTemplate
(\ s a -> s{_irpgpcrLegacyResetPasswordTemplate = a})
irpgpcrAllowPasswordUser :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Bool)
irpgpcrAllowPasswordUser
= lens _irpgpcrAllowPasswordUser
(\ s a -> s{_irpgpcrAllowPasswordUser = a})
irpgpcrResetPasswordTemplate :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe EmailTemplate)
irpgpcrResetPasswordTemplate
= lens _irpgpcrResetPasswordTemplate
(\ s a -> s{_irpgpcrResetPasswordTemplate = a})
irpgpcrProjectId :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Text)
irpgpcrProjectId
= lens _irpgpcrProjectId
(\ s a -> s{_irpgpcrProjectId = a})
irpgpcrUseEmailSending :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Bool)
irpgpcrUseEmailSending
= lens _irpgpcrUseEmailSending
(\ s a -> s{_irpgpcrUseEmailSending = a})
irpgpcrDynamicLinksDomain :: Lens' IdentitytoolkitRelyingPartyGetProjectConfigResponse (Maybe Text)
irpgpcrDynamicLinksDomain
= lens _irpgpcrDynamicLinksDomain
(\ s a -> s{_irpgpcrDynamicLinksDomain = a})
instance FromJSON
IdentitytoolkitRelyingPartyGetProjectConfigResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyGetProjectConfigResponse"
(\ o ->
IdentitytoolkitRelyingPartyGetProjectConfigResponse'
<$>
(o .:? "authorizedDomains" .!= mempty) <*>
(o .:? "apiKey")
<*> (o .:? "idpConfig" .!= mempty)
<*> (o .:? "changeEmailTemplate")
<*> (o .:? "verifyEmailTemplate")
<*> (o .:? "enableAnonymousUser")
<*> (o .:? "legacyResetPasswordTemplate")
<*> (o .:? "allowPasswordUser")
<*> (o .:? "resetPasswordTemplate")
<*> (o .:? "projectId")
<*> (o .:? "useEmailSending")
<*> (o .:? "dynamicLinksDomain"))
instance ToJSON
IdentitytoolkitRelyingPartyGetProjectConfigResponse
where
toJSON
IdentitytoolkitRelyingPartyGetProjectConfigResponse'{..}
= object
(catMaybes
[("authorizedDomains" .=) <$>
_irpgpcrAuthorizedDomains,
("apiKey" .=) <$> _irpgpcrAPIKey,
("idpConfig" .=) <$> _irpgpcrIdpConfig,
("changeEmailTemplate" .=) <$>
_irpgpcrChangeEmailTemplate,
("verifyEmailTemplate" .=) <$>
_irpgpcrVerifyEmailTemplate,
("enableAnonymousUser" .=) <$>
_irpgpcrEnableAnonymousUser,
("legacyResetPasswordTemplate" .=) <$>
_irpgpcrLegacyResetPasswordTemplate,
("allowPasswordUser" .=) <$>
_irpgpcrAllowPasswordUser,
("resetPasswordTemplate" .=) <$>
_irpgpcrResetPasswordTemplate,
("projectId" .=) <$> _irpgpcrProjectId,
("useEmailSending" .=) <$> _irpgpcrUseEmailSending,
("dynamicLinksDomain" .=) <$>
_irpgpcrDynamicLinksDomain])
data ResetPasswordResponse =
ResetPasswordResponse'
{ _rprEmail :: !(Maybe Text)
, _rprKind :: !Text
, _rprRequestType :: !(Maybe Text)
, _rprNewEmail :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
resetPasswordResponse
:: ResetPasswordResponse
resetPasswordResponse =
ResetPasswordResponse'
{ _rprEmail = Nothing
, _rprKind = "identitytoolkit#ResetPasswordResponse"
, _rprRequestType = Nothing
, _rprNewEmail = Nothing
}
rprEmail :: Lens' ResetPasswordResponse (Maybe Text)
rprEmail = lens _rprEmail (\ s a -> s{_rprEmail = a})
rprKind :: Lens' ResetPasswordResponse Text
rprKind = lens _rprKind (\ s a -> s{_rprKind = a})
rprRequestType :: Lens' ResetPasswordResponse (Maybe Text)
rprRequestType
= lens _rprRequestType
(\ s a -> s{_rprRequestType = a})
rprNewEmail :: Lens' ResetPasswordResponse (Maybe Text)
rprNewEmail
= lens _rprNewEmail (\ s a -> s{_rprNewEmail = a})
instance FromJSON ResetPasswordResponse where
parseJSON
= withObject "ResetPasswordResponse"
(\ o ->
ResetPasswordResponse' <$>
(o .:? "email") <*>
(o .:? "kind" .!=
"identitytoolkit#ResetPasswordResponse")
<*> (o .:? "requestType")
<*> (o .:? "newEmail"))
instance ToJSON ResetPasswordResponse where
toJSON ResetPasswordResponse'{..}
= object
(catMaybes
[("email" .=) <$> _rprEmail,
Just ("kind" .= _rprKind),
("requestType" .=) <$> _rprRequestType,
("newEmail" .=) <$> _rprNewEmail])
data UploadAccountResponse =
UploadAccountResponse'
{ _uarKind :: !Text
, _uarError :: !(Maybe [UploadAccountResponseErrorItem])
}
deriving (Eq, Show, Data, Typeable, Generic)
uploadAccountResponse
:: UploadAccountResponse
uploadAccountResponse =
UploadAccountResponse'
{_uarKind = "identitytoolkit#UploadAccountResponse", _uarError = Nothing}
uarKind :: Lens' UploadAccountResponse Text
uarKind = lens _uarKind (\ s a -> s{_uarKind = a})
uarError :: Lens' UploadAccountResponse [UploadAccountResponseErrorItem]
uarError
= lens _uarError (\ s a -> s{_uarError = a}) .
_Default
. _Coerce
instance FromJSON UploadAccountResponse where
parseJSON
= withObject "UploadAccountResponse"
(\ o ->
UploadAccountResponse' <$>
(o .:? "kind" .!=
"identitytoolkit#UploadAccountResponse")
<*> (o .:? "error" .!= mempty))
instance ToJSON UploadAccountResponse where
toJSON UploadAccountResponse'{..}
= object
(catMaybes
[Just ("kind" .= _uarKind),
("error" .=) <$> _uarError])
data CreateAuthURIResponse =
CreateAuthURIResponse'
{ _caurProviderId :: !(Maybe Text)
, _caurKind :: !Text
, _caurAllProviders :: !(Maybe [Text])
, _caurAuthURI :: !(Maybe Text)
, _caurCaptchaRequired :: !(Maybe Bool)
, _caurSigninMethods :: !(Maybe [Text])
, _caurRegistered :: !(Maybe Bool)
, _caurSessionId :: !(Maybe Text)
, _caurForExistingProvider :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
createAuthURIResponse
:: CreateAuthURIResponse
createAuthURIResponse =
CreateAuthURIResponse'
{ _caurProviderId = Nothing
, _caurKind = "identitytoolkit#CreateAuthUriResponse"
, _caurAllProviders = Nothing
, _caurAuthURI = Nothing
, _caurCaptchaRequired = Nothing
, _caurSigninMethods = Nothing
, _caurRegistered = Nothing
, _caurSessionId = Nothing
, _caurForExistingProvider = Nothing
}
caurProviderId :: Lens' CreateAuthURIResponse (Maybe Text)
caurProviderId
= lens _caurProviderId
(\ s a -> s{_caurProviderId = a})
caurKind :: Lens' CreateAuthURIResponse Text
caurKind = lens _caurKind (\ s a -> s{_caurKind = a})
caurAllProviders :: Lens' CreateAuthURIResponse [Text]
caurAllProviders
= lens _caurAllProviders
(\ s a -> s{_caurAllProviders = a})
. _Default
. _Coerce
caurAuthURI :: Lens' CreateAuthURIResponse (Maybe Text)
caurAuthURI
= lens _caurAuthURI (\ s a -> s{_caurAuthURI = a})
caurCaptchaRequired :: Lens' CreateAuthURIResponse (Maybe Bool)
caurCaptchaRequired
= lens _caurCaptchaRequired
(\ s a -> s{_caurCaptchaRequired = a})
caurSigninMethods :: Lens' CreateAuthURIResponse [Text]
caurSigninMethods
= lens _caurSigninMethods
(\ s a -> s{_caurSigninMethods = a})
. _Default
. _Coerce
caurRegistered :: Lens' CreateAuthURIResponse (Maybe Bool)
caurRegistered
= lens _caurRegistered
(\ s a -> s{_caurRegistered = a})
caurSessionId :: Lens' CreateAuthURIResponse (Maybe Text)
caurSessionId
= lens _caurSessionId
(\ s a -> s{_caurSessionId = a})
caurForExistingProvider :: Lens' CreateAuthURIResponse (Maybe Bool)
caurForExistingProvider
= lens _caurForExistingProvider
(\ s a -> s{_caurForExistingProvider = a})
instance FromJSON CreateAuthURIResponse where
parseJSON
= withObject "CreateAuthURIResponse"
(\ o ->
CreateAuthURIResponse' <$>
(o .:? "providerId") <*>
(o .:? "kind" .!=
"identitytoolkit#CreateAuthUriResponse")
<*> (o .:? "allProviders" .!= mempty)
<*> (o .:? "authUri")
<*> (o .:? "captchaRequired")
<*> (o .:? "signinMethods" .!= mempty)
<*> (o .:? "registered")
<*> (o .:? "sessionId")
<*> (o .:? "forExistingProvider"))
instance ToJSON CreateAuthURIResponse where
toJSON CreateAuthURIResponse'{..}
= object
(catMaybes
[("providerId" .=) <$> _caurProviderId,
Just ("kind" .= _caurKind),
("allProviders" .=) <$> _caurAllProviders,
("authUri" .=) <$> _caurAuthURI,
("captchaRequired" .=) <$> _caurCaptchaRequired,
("signinMethods" .=) <$> _caurSigninMethods,
("registered" .=) <$> _caurRegistered,
("sessionId" .=) <$> _caurSessionId,
("forExistingProvider" .=) <$>
_caurForExistingProvider])
newtype IdentitytoolkitRelyingPartyGetPublicKeysResponse =
IdentitytoolkitRelyingPartyGetPublicKeysResponse'
{ _irpgpkrAddtional :: HashMap Text Text
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyGetPublicKeysResponse
:: HashMap Text Text
-> IdentitytoolkitRelyingPartyGetPublicKeysResponse
identitytoolkitRelyingPartyGetPublicKeysResponse pIrpgpkrAddtional_ =
IdentitytoolkitRelyingPartyGetPublicKeysResponse'
{_irpgpkrAddtional = _Coerce # pIrpgpkrAddtional_}
irpgpkrAddtional :: Lens' IdentitytoolkitRelyingPartyGetPublicKeysResponse (HashMap Text Text)
irpgpkrAddtional
= lens _irpgpkrAddtional
(\ s a -> s{_irpgpkrAddtional = a})
. _Coerce
instance FromJSON
IdentitytoolkitRelyingPartyGetPublicKeysResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyGetPublicKeysResponse"
(\ o ->
IdentitytoolkitRelyingPartyGetPublicKeysResponse' <$>
(parseJSONObject o))
instance ToJSON
IdentitytoolkitRelyingPartyGetPublicKeysResponse
where
toJSON = toJSON . _irpgpkrAddtional
data RelyingParty =
RelyingParty'
{ _rpIOSBundleId :: !(Maybe Text)
, _rpEmail :: !(Maybe Text)
, _rpContinueURL :: !(Maybe Text)
, _rpKind :: !Text
, _rpUserIP :: !(Maybe Text)
, _rpAndroidInstallApp :: !(Maybe Bool)
, _rpIOSAppStoreId :: !(Maybe Text)
, _rpRequestType :: !(Maybe Text)
, _rpAndroidMinimumVersion :: !(Maybe Text)
, _rpCanHandleCodeInApp :: !(Maybe Bool)
, _rpCaptchaResp :: !(Maybe Text)
, _rpNewEmail :: !(Maybe Text)
, _rpChallenge :: !(Maybe Text)
, _rpIdToken :: !(Maybe Text)
, _rpAndroidPackageName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
relyingParty
:: RelyingParty
relyingParty =
RelyingParty'
{ _rpIOSBundleId = Nothing
, _rpEmail = Nothing
, _rpContinueURL = Nothing
, _rpKind = "identitytoolkit#relyingparty"
, _rpUserIP = Nothing
, _rpAndroidInstallApp = Nothing
, _rpIOSAppStoreId = Nothing
, _rpRequestType = Nothing
, _rpAndroidMinimumVersion = Nothing
, _rpCanHandleCodeInApp = Nothing
, _rpCaptchaResp = Nothing
, _rpNewEmail = Nothing
, _rpChallenge = Nothing
, _rpIdToken = Nothing
, _rpAndroidPackageName = Nothing
}
rpIOSBundleId :: Lens' RelyingParty (Maybe Text)
rpIOSBundleId
= lens _rpIOSBundleId
(\ s a -> s{_rpIOSBundleId = a})
rpEmail :: Lens' RelyingParty (Maybe Text)
rpEmail = lens _rpEmail (\ s a -> s{_rpEmail = a})
rpContinueURL :: Lens' RelyingParty (Maybe Text)
rpContinueURL
= lens _rpContinueURL
(\ s a -> s{_rpContinueURL = a})
rpKind :: Lens' RelyingParty Text
rpKind = lens _rpKind (\ s a -> s{_rpKind = a})
rpUserIP :: Lens' RelyingParty (Maybe Text)
rpUserIP = lens _rpUserIP (\ s a -> s{_rpUserIP = a})
rpAndroidInstallApp :: Lens' RelyingParty (Maybe Bool)
rpAndroidInstallApp
= lens _rpAndroidInstallApp
(\ s a -> s{_rpAndroidInstallApp = a})
rpIOSAppStoreId :: Lens' RelyingParty (Maybe Text)
rpIOSAppStoreId
= lens _rpIOSAppStoreId
(\ s a -> s{_rpIOSAppStoreId = a})
rpRequestType :: Lens' RelyingParty (Maybe Text)
rpRequestType
= lens _rpRequestType
(\ s a -> s{_rpRequestType = a})
rpAndroidMinimumVersion :: Lens' RelyingParty (Maybe Text)
rpAndroidMinimumVersion
= lens _rpAndroidMinimumVersion
(\ s a -> s{_rpAndroidMinimumVersion = a})
rpCanHandleCodeInApp :: Lens' RelyingParty (Maybe Bool)
rpCanHandleCodeInApp
= lens _rpCanHandleCodeInApp
(\ s a -> s{_rpCanHandleCodeInApp = a})
rpCaptchaResp :: Lens' RelyingParty (Maybe Text)
rpCaptchaResp
= lens _rpCaptchaResp
(\ s a -> s{_rpCaptchaResp = a})
rpNewEmail :: Lens' RelyingParty (Maybe Text)
rpNewEmail
= lens _rpNewEmail (\ s a -> s{_rpNewEmail = a})
rpChallenge :: Lens' RelyingParty (Maybe Text)
rpChallenge
= lens _rpChallenge (\ s a -> s{_rpChallenge = a})
rpIdToken :: Lens' RelyingParty (Maybe Text)
rpIdToken
= lens _rpIdToken (\ s a -> s{_rpIdToken = a})
rpAndroidPackageName :: Lens' RelyingParty (Maybe Text)
rpAndroidPackageName
= lens _rpAndroidPackageName
(\ s a -> s{_rpAndroidPackageName = a})
instance FromJSON RelyingParty where
parseJSON
= withObject "RelyingParty"
(\ o ->
RelyingParty' <$>
(o .:? "iOSBundleId") <*> (o .:? "email") <*>
(o .:? "continueUrl")
<*> (o .:? "kind" .!= "identitytoolkit#relyingparty")
<*> (o .:? "userIp")
<*> (o .:? "androidInstallApp")
<*> (o .:? "iOSAppStoreId")
<*> (o .:? "requestType")
<*> (o .:? "androidMinimumVersion")
<*> (o .:? "canHandleCodeInApp")
<*> (o .:? "captchaResp")
<*> (o .:? "newEmail")
<*> (o .:? "challenge")
<*> (o .:? "idToken")
<*> (o .:? "androidPackageName"))
instance ToJSON RelyingParty where
toJSON RelyingParty'{..}
= object
(catMaybes
[("iOSBundleId" .=) <$> _rpIOSBundleId,
("email" .=) <$> _rpEmail,
("continueUrl" .=) <$> _rpContinueURL,
Just ("kind" .= _rpKind),
("userIp" .=) <$> _rpUserIP,
("androidInstallApp" .=) <$> _rpAndroidInstallApp,
("iOSAppStoreId" .=) <$> _rpIOSAppStoreId,
("requestType" .=) <$> _rpRequestType,
("androidMinimumVersion" .=) <$>
_rpAndroidMinimumVersion,
("canHandleCodeInApp" .=) <$> _rpCanHandleCodeInApp,
("captchaResp" .=) <$> _rpCaptchaResp,
("newEmail" .=) <$> _rpNewEmail,
("challenge" .=) <$> _rpChallenge,
("idToken" .=) <$> _rpIdToken,
("androidPackageName" .=) <$> _rpAndroidPackageName])
data IdentitytoolkitRelyingPartyGetAccountInfoRequest =
IdentitytoolkitRelyingPartyGetAccountInfoRequest'
{ _irpgairEmail :: !(Maybe [Text])
, _irpgairDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpgairPhoneNumber :: !(Maybe [Text])
, _irpgairLocalId :: !(Maybe [Text])
, _irpgairIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyGetAccountInfoRequest
:: IdentitytoolkitRelyingPartyGetAccountInfoRequest
identitytoolkitRelyingPartyGetAccountInfoRequest =
IdentitytoolkitRelyingPartyGetAccountInfoRequest'
{ _irpgairEmail = Nothing
, _irpgairDelegatedProjectNumber = Nothing
, _irpgairPhoneNumber = Nothing
, _irpgairLocalId = Nothing
, _irpgairIdToken = Nothing
}
irpgairEmail :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest [Text]
irpgairEmail
= lens _irpgairEmail (\ s a -> s{_irpgairEmail = a})
. _Default
. _Coerce
irpgairDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest (Maybe Int64)
irpgairDelegatedProjectNumber
= lens _irpgairDelegatedProjectNumber
(\ s a -> s{_irpgairDelegatedProjectNumber = a})
. mapping _Coerce
irpgairPhoneNumber :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest [Text]
irpgairPhoneNumber
= lens _irpgairPhoneNumber
(\ s a -> s{_irpgairPhoneNumber = a})
. _Default
. _Coerce
irpgairLocalId :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest [Text]
irpgairLocalId
= lens _irpgairLocalId
(\ s a -> s{_irpgairLocalId = a})
. _Default
. _Coerce
irpgairIdToken :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest (Maybe Text)
irpgairIdToken
= lens _irpgairIdToken
(\ s a -> s{_irpgairIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyGetAccountInfoRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyGetAccountInfoRequest"
(\ o ->
IdentitytoolkitRelyingPartyGetAccountInfoRequest' <$>
(o .:? "email" .!= mempty) <*>
(o .:? "delegatedProjectNumber")
<*> (o .:? "phoneNumber" .!= mempty)
<*> (o .:? "localId" .!= mempty)
<*> (o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartyGetAccountInfoRequest
where
toJSON
IdentitytoolkitRelyingPartyGetAccountInfoRequest'{..}
= object
(catMaybes
[("email" .=) <$> _irpgairEmail,
("delegatedProjectNumber" .=) <$>
_irpgairDelegatedProjectNumber,
("phoneNumber" .=) <$> _irpgairPhoneNumber,
("localId" .=) <$> _irpgairLocalId,
("idToken" .=) <$> _irpgairIdToken])
data EmailTemplate =
EmailTemplate'
{ _etSubject :: !(Maybe Text)
, _etBody :: !(Maybe Text)
, _etFormat :: !(Maybe Text)
, _etFromDisplayName :: !(Maybe Text)
, _etFrom :: !(Maybe Text)
, _etReplyTo :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
emailTemplate
:: EmailTemplate
emailTemplate =
EmailTemplate'
{ _etSubject = Nothing
, _etBody = Nothing
, _etFormat = Nothing
, _etFromDisplayName = Nothing
, _etFrom = Nothing
, _etReplyTo = Nothing
}
etSubject :: Lens' EmailTemplate (Maybe Text)
etSubject
= lens _etSubject (\ s a -> s{_etSubject = a})
etBody :: Lens' EmailTemplate (Maybe Text)
etBody = lens _etBody (\ s a -> s{_etBody = a})
etFormat :: Lens' EmailTemplate (Maybe Text)
etFormat = lens _etFormat (\ s a -> s{_etFormat = a})
etFromDisplayName :: Lens' EmailTemplate (Maybe Text)
etFromDisplayName
= lens _etFromDisplayName
(\ s a -> s{_etFromDisplayName = a})
etFrom :: Lens' EmailTemplate (Maybe Text)
etFrom = lens _etFrom (\ s a -> s{_etFrom = a})
etReplyTo :: Lens' EmailTemplate (Maybe Text)
etReplyTo
= lens _etReplyTo (\ s a -> s{_etReplyTo = a})
instance FromJSON EmailTemplate where
parseJSON
= withObject "EmailTemplate"
(\ o ->
EmailTemplate' <$>
(o .:? "subject") <*> (o .:? "body") <*>
(o .:? "format")
<*> (o .:? "fromDisplayName")
<*> (o .:? "from")
<*> (o .:? "replyTo"))
instance ToJSON EmailTemplate where
toJSON EmailTemplate'{..}
= object
(catMaybes
[("subject" .=) <$> _etSubject,
("body" .=) <$> _etBody, ("format" .=) <$> _etFormat,
("fromDisplayName" .=) <$> _etFromDisplayName,
("from" .=) <$> _etFrom,
("replyTo" .=) <$> _etReplyTo])
data IdentitytoolkitRelyingPartyUploadAccountRequest =
IdentitytoolkitRelyingPartyUploadAccountRequest'
{ _irpuarBlockSize :: !(Maybe (Textual Int32))
, _irpuarUsers :: !(Maybe [UserInfo])
, _irpuarMemoryCost :: !(Maybe (Textual Int32))
, _irpuarAllowOverwrite :: !(Maybe Bool)
, _irpuarDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpuarParallelization :: !(Maybe (Textual Int32))
, _irpuarCPUMemCost :: !(Maybe (Textual Int32))
, _irpuarSanityCheck :: !(Maybe Bool)
, _irpuarSaltSeparator :: !(Maybe Bytes)
, _irpuarHashAlgorithm :: !(Maybe Text)
, _irpuarDkLen :: !(Maybe (Textual Int32))
, _irpuarSignerKey :: !(Maybe Bytes)
, _irpuarRounds :: !(Maybe (Textual Int32))
, _irpuarTargetProjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyUploadAccountRequest
:: IdentitytoolkitRelyingPartyUploadAccountRequest
identitytoolkitRelyingPartyUploadAccountRequest =
IdentitytoolkitRelyingPartyUploadAccountRequest'
{ _irpuarBlockSize = Nothing
, _irpuarUsers = Nothing
, _irpuarMemoryCost = Nothing
, _irpuarAllowOverwrite = Nothing
, _irpuarDelegatedProjectNumber = Nothing
, _irpuarParallelization = Nothing
, _irpuarCPUMemCost = Nothing
, _irpuarSanityCheck = Nothing
, _irpuarSaltSeparator = Nothing
, _irpuarHashAlgorithm = Nothing
, _irpuarDkLen = Nothing
, _irpuarSignerKey = Nothing
, _irpuarRounds = Nothing
, _irpuarTargetProjectId = Nothing
}
irpuarBlockSize :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarBlockSize
= lens _irpuarBlockSize
(\ s a -> s{_irpuarBlockSize = a})
. mapping _Coerce
irpuarUsers :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest [UserInfo]
irpuarUsers
= lens _irpuarUsers (\ s a -> s{_irpuarUsers = a}) .
_Default
. _Coerce
irpuarMemoryCost :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarMemoryCost
= lens _irpuarMemoryCost
(\ s a -> s{_irpuarMemoryCost = a})
. mapping _Coerce
irpuarAllowOverwrite :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Bool)
irpuarAllowOverwrite
= lens _irpuarAllowOverwrite
(\ s a -> s{_irpuarAllowOverwrite = a})
irpuarDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int64)
irpuarDelegatedProjectNumber
= lens _irpuarDelegatedProjectNumber
(\ s a -> s{_irpuarDelegatedProjectNumber = a})
. mapping _Coerce
irpuarParallelization :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarParallelization
= lens _irpuarParallelization
(\ s a -> s{_irpuarParallelization = a})
. mapping _Coerce
irpuarCPUMemCost :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarCPUMemCost
= lens _irpuarCPUMemCost
(\ s a -> s{_irpuarCPUMemCost = a})
. mapping _Coerce
irpuarSanityCheck :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Bool)
irpuarSanityCheck
= lens _irpuarSanityCheck
(\ s a -> s{_irpuarSanityCheck = a})
irpuarSaltSeparator :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe ByteString)
irpuarSaltSeparator
= lens _irpuarSaltSeparator
(\ s a -> s{_irpuarSaltSeparator = a})
. mapping _Bytes
irpuarHashAlgorithm :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Text)
irpuarHashAlgorithm
= lens _irpuarHashAlgorithm
(\ s a -> s{_irpuarHashAlgorithm = a})
irpuarDkLen :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarDkLen
= lens _irpuarDkLen (\ s a -> s{_irpuarDkLen = a}) .
mapping _Coerce
irpuarSignerKey :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe ByteString)
irpuarSignerKey
= lens _irpuarSignerKey
(\ s a -> s{_irpuarSignerKey = a})
. mapping _Bytes
irpuarRounds :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
irpuarRounds
= lens _irpuarRounds (\ s a -> s{_irpuarRounds = a})
. mapping _Coerce
irpuarTargetProjectId :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Text)
irpuarTargetProjectId
= lens _irpuarTargetProjectId
(\ s a -> s{_irpuarTargetProjectId = a})
instance FromJSON
IdentitytoolkitRelyingPartyUploadAccountRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyUploadAccountRequest"
(\ o ->
IdentitytoolkitRelyingPartyUploadAccountRequest' <$>
(o .:? "blockSize") <*> (o .:? "users" .!= mempty)
<*> (o .:? "memoryCost")
<*> (o .:? "allowOverwrite")
<*> (o .:? "delegatedProjectNumber")
<*> (o .:? "parallelization")
<*> (o .:? "cpuMemCost")
<*> (o .:? "sanityCheck")
<*> (o .:? "saltSeparator")
<*> (o .:? "hashAlgorithm")
<*> (o .:? "dkLen")
<*> (o .:? "signerKey")
<*> (o .:? "rounds")
<*> (o .:? "targetProjectId"))
instance ToJSON
IdentitytoolkitRelyingPartyUploadAccountRequest
where
toJSON
IdentitytoolkitRelyingPartyUploadAccountRequest'{..}
= object
(catMaybes
[("blockSize" .=) <$> _irpuarBlockSize,
("users" .=) <$> _irpuarUsers,
("memoryCost" .=) <$> _irpuarMemoryCost,
("allowOverwrite" .=) <$> _irpuarAllowOverwrite,
("delegatedProjectNumber" .=) <$>
_irpuarDelegatedProjectNumber,
("parallelization" .=) <$> _irpuarParallelization,
("cpuMemCost" .=) <$> _irpuarCPUMemCost,
("sanityCheck" .=) <$> _irpuarSanityCheck,
("saltSeparator" .=) <$> _irpuarSaltSeparator,
("hashAlgorithm" .=) <$> _irpuarHashAlgorithm,
("dkLen" .=) <$> _irpuarDkLen,
("signerKey" .=) <$> _irpuarSignerKey,
("rounds" .=) <$> _irpuarRounds,
("targetProjectId" .=) <$> _irpuarTargetProjectId])
data IdentitytoolkitRelyingPartyResetPasswordRequest =
IdentitytoolkitRelyingPartyResetPasswordRequest'
{ _irprprEmail :: !(Maybe Text)
, _irprprNewPassword :: !(Maybe Text)
, _irprprOOBCode :: !(Maybe Text)
, _irprprOldPassword :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyResetPasswordRequest
:: IdentitytoolkitRelyingPartyResetPasswordRequest
identitytoolkitRelyingPartyResetPasswordRequest =
IdentitytoolkitRelyingPartyResetPasswordRequest'
{ _irprprEmail = Nothing
, _irprprNewPassword = Nothing
, _irprprOOBCode = Nothing
, _irprprOldPassword = Nothing
}
irprprEmail :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
irprprEmail
= lens _irprprEmail (\ s a -> s{_irprprEmail = a})
irprprNewPassword :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
irprprNewPassword
= lens _irprprNewPassword
(\ s a -> s{_irprprNewPassword = a})
irprprOOBCode :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
irprprOOBCode
= lens _irprprOOBCode
(\ s a -> s{_irprprOOBCode = a})
irprprOldPassword :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
irprprOldPassword
= lens _irprprOldPassword
(\ s a -> s{_irprprOldPassword = a})
instance FromJSON
IdentitytoolkitRelyingPartyResetPasswordRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyResetPasswordRequest"
(\ o ->
IdentitytoolkitRelyingPartyResetPasswordRequest' <$>
(o .:? "email") <*> (o .:? "newPassword") <*>
(o .:? "oobCode")
<*> (o .:? "oldPassword"))
instance ToJSON
IdentitytoolkitRelyingPartyResetPasswordRequest
where
toJSON
IdentitytoolkitRelyingPartyResetPasswordRequest'{..}
= object
(catMaybes
[("email" .=) <$> _irprprEmail,
("newPassword" .=) <$> _irprprNewPassword,
("oobCode" .=) <$> _irprprOOBCode,
("oldPassword" .=) <$> _irprprOldPassword])
data IdentitytoolkitRelyingPartyCreateAuthURIRequest =
IdentitytoolkitRelyingPartyCreateAuthURIRequest'
{ _irpcaurProviderId :: !(Maybe Text)
, _irpcaurClientId :: !(Maybe Text)
, _irpcaurContext :: !(Maybe Text)
, _irpcaurCustomParameter :: !(Maybe IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter)
, _irpcaurTenantProjectNumber :: !(Maybe (Textual Word64))
, _irpcaurIdentifier :: !(Maybe Text)
, _irpcaurOtaApp :: !(Maybe Text)
, _irpcaurOAuthConsumerKey :: !(Maybe Text)
, _irpcaurTenantId :: !(Maybe Text)
, _irpcaurHostedDomain :: !(Maybe Text)
, _irpcaurAppId :: !(Maybe Text)
, _irpcaurContinueURI :: !(Maybe Text)
, _irpcaurAuthFlowType :: !(Maybe Text)
, _irpcaurOAuthScope :: !(Maybe Text)
, _irpcaurSessionId :: !(Maybe Text)
, _irpcaurOpenidRealm :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyCreateAuthURIRequest
:: IdentitytoolkitRelyingPartyCreateAuthURIRequest
identitytoolkitRelyingPartyCreateAuthURIRequest =
IdentitytoolkitRelyingPartyCreateAuthURIRequest'
{ _irpcaurProviderId = Nothing
, _irpcaurClientId = Nothing
, _irpcaurContext = Nothing
, _irpcaurCustomParameter = Nothing
, _irpcaurTenantProjectNumber = Nothing
, _irpcaurIdentifier = Nothing
, _irpcaurOtaApp = Nothing
, _irpcaurOAuthConsumerKey = Nothing
, _irpcaurTenantId = Nothing
, _irpcaurHostedDomain = Nothing
, _irpcaurAppId = Nothing
, _irpcaurContinueURI = Nothing
, _irpcaurAuthFlowType = Nothing
, _irpcaurOAuthScope = Nothing
, _irpcaurSessionId = Nothing
, _irpcaurOpenidRealm = Nothing
}
irpcaurProviderId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurProviderId
= lens _irpcaurProviderId
(\ s a -> s{_irpcaurProviderId = a})
irpcaurClientId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurClientId
= lens _irpcaurClientId
(\ s a -> s{_irpcaurClientId = a})
irpcaurContext :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurContext
= lens _irpcaurContext
(\ s a -> s{_irpcaurContext = a})
irpcaurCustomParameter :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe IdentitytoolkitRelyingPartyCreateAuthURIRequestCustomParameter)
irpcaurCustomParameter
= lens _irpcaurCustomParameter
(\ s a -> s{_irpcaurCustomParameter = a})
irpcaurTenantProjectNumber :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Word64)
irpcaurTenantProjectNumber
= lens _irpcaurTenantProjectNumber
(\ s a -> s{_irpcaurTenantProjectNumber = a})
. mapping _Coerce
irpcaurIdentifier :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurIdentifier
= lens _irpcaurIdentifier
(\ s a -> s{_irpcaurIdentifier = a})
irpcaurOtaApp :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurOtaApp
= lens _irpcaurOtaApp
(\ s a -> s{_irpcaurOtaApp = a})
irpcaurOAuthConsumerKey :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurOAuthConsumerKey
= lens _irpcaurOAuthConsumerKey
(\ s a -> s{_irpcaurOAuthConsumerKey = a})
irpcaurTenantId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurTenantId
= lens _irpcaurTenantId
(\ s a -> s{_irpcaurTenantId = a})
irpcaurHostedDomain :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurHostedDomain
= lens _irpcaurHostedDomain
(\ s a -> s{_irpcaurHostedDomain = a})
irpcaurAppId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurAppId
= lens _irpcaurAppId (\ s a -> s{_irpcaurAppId = a})
irpcaurContinueURI :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurContinueURI
= lens _irpcaurContinueURI
(\ s a -> s{_irpcaurContinueURI = a})
irpcaurAuthFlowType :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurAuthFlowType
= lens _irpcaurAuthFlowType
(\ s a -> s{_irpcaurAuthFlowType = a})
irpcaurOAuthScope :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurOAuthScope
= lens _irpcaurOAuthScope
(\ s a -> s{_irpcaurOAuthScope = a})
irpcaurSessionId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurSessionId
= lens _irpcaurSessionId
(\ s a -> s{_irpcaurSessionId = a})
irpcaurOpenidRealm :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
irpcaurOpenidRealm
= lens _irpcaurOpenidRealm
(\ s a -> s{_irpcaurOpenidRealm = a})
instance FromJSON
IdentitytoolkitRelyingPartyCreateAuthURIRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyCreateAuthURIRequest"
(\ o ->
IdentitytoolkitRelyingPartyCreateAuthURIRequest' <$>
(o .:? "providerId") <*> (o .:? "clientId") <*>
(o .:? "context")
<*> (o .:? "customParameter")
<*> (o .:? "tenantProjectNumber")
<*> (o .:? "identifier")
<*> (o .:? "otaApp")
<*> (o .:? "oauthConsumerKey")
<*> (o .:? "tenantId")
<*> (o .:? "hostedDomain")
<*> (o .:? "appId")
<*> (o .:? "continueUri")
<*> (o .:? "authFlowType")
<*> (o .:? "oauthScope")
<*> (o .:? "sessionId")
<*> (o .:? "openidRealm"))
instance ToJSON
IdentitytoolkitRelyingPartyCreateAuthURIRequest
where
toJSON
IdentitytoolkitRelyingPartyCreateAuthURIRequest'{..}
= object
(catMaybes
[("providerId" .=) <$> _irpcaurProviderId,
("clientId" .=) <$> _irpcaurClientId,
("context" .=) <$> _irpcaurContext,
("customParameter" .=) <$> _irpcaurCustomParameter,
("tenantProjectNumber" .=) <$>
_irpcaurTenantProjectNumber,
("identifier" .=) <$> _irpcaurIdentifier,
("otaApp" .=) <$> _irpcaurOtaApp,
("oauthConsumerKey" .=) <$> _irpcaurOAuthConsumerKey,
("tenantId" .=) <$> _irpcaurTenantId,
("hostedDomain" .=) <$> _irpcaurHostedDomain,
("appId" .=) <$> _irpcaurAppId,
("continueUri" .=) <$> _irpcaurContinueURI,
("authFlowType" .=) <$> _irpcaurAuthFlowType,
("oauthScope" .=) <$> _irpcaurOAuthScope,
("sessionId" .=) <$> _irpcaurSessionId,
("openidRealm" .=) <$> _irpcaurOpenidRealm])
newtype IdentitytoolkitRelyingPartySendVerificationCodeResponse =
IdentitytoolkitRelyingPartySendVerificationCodeResponse'
{ _irpsvcrSessionInfo :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySendVerificationCodeResponse
:: IdentitytoolkitRelyingPartySendVerificationCodeResponse
identitytoolkitRelyingPartySendVerificationCodeResponse =
IdentitytoolkitRelyingPartySendVerificationCodeResponse'
{_irpsvcrSessionInfo = Nothing}
irpsvcrSessionInfo :: Lens' IdentitytoolkitRelyingPartySendVerificationCodeResponse (Maybe Text)
irpsvcrSessionInfo
= lens _irpsvcrSessionInfo
(\ s a -> s{_irpsvcrSessionInfo = a})
instance FromJSON
IdentitytoolkitRelyingPartySendVerificationCodeResponse
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySendVerificationCodeResponse"
(\ o ->
IdentitytoolkitRelyingPartySendVerificationCodeResponse'
<$> (o .:? "sessionInfo"))
instance ToJSON
IdentitytoolkitRelyingPartySendVerificationCodeResponse
where
toJSON
IdentitytoolkitRelyingPartySendVerificationCodeResponse'{..}
= object
(catMaybes
[("sessionInfo" .=) <$> _irpsvcrSessionInfo])
data GetAccountInfoResponse =
GetAccountInfoResponse'
{ _gairUsers :: !(Maybe [UserInfo])
, _gairKind :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
getAccountInfoResponse
:: GetAccountInfoResponse
getAccountInfoResponse =
GetAccountInfoResponse'
{_gairUsers = Nothing, _gairKind = "identitytoolkit#GetAccountInfoResponse"}
gairUsers :: Lens' GetAccountInfoResponse [UserInfo]
gairUsers
= lens _gairUsers (\ s a -> s{_gairUsers = a}) .
_Default
. _Coerce
gairKind :: Lens' GetAccountInfoResponse Text
gairKind = lens _gairKind (\ s a -> s{_gairKind = a})
instance FromJSON GetAccountInfoResponse where
parseJSON
= withObject "GetAccountInfoResponse"
(\ o ->
GetAccountInfoResponse' <$>
(o .:? "users" .!= mempty) <*>
(o .:? "kind" .!=
"identitytoolkit#GetAccountInfoResponse"))
instance ToJSON GetAccountInfoResponse where
toJSON GetAccountInfoResponse'{..}
= object
(catMaybes
[("users" .=) <$> _gairUsers,
Just ("kind" .= _gairKind)])
data IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest =
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest'
{ _iTemporaryProof :: !(Maybe Text)
, _iVerificationProof :: !(Maybe Text)
, _iOperation :: !(Maybe Text)
, _iSessionInfo :: !(Maybe Text)
, _iPhoneNumber :: !(Maybe Text)
, _iCode :: !(Maybe Text)
, _iIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyVerifyPhoneNumberRequest
:: IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
identitytoolkitRelyingPartyVerifyPhoneNumberRequest =
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest'
{ _iTemporaryProof = Nothing
, _iVerificationProof = Nothing
, _iOperation = Nothing
, _iSessionInfo = Nothing
, _iPhoneNumber = Nothing
, _iCode = Nothing
, _iIdToken = Nothing
}
iTemporaryProof :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iTemporaryProof
= lens _iTemporaryProof
(\ s a -> s{_iTemporaryProof = a})
iVerificationProof :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iVerificationProof
= lens _iVerificationProof
(\ s a -> s{_iVerificationProof = a})
iOperation :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iOperation
= lens _iOperation (\ s a -> s{_iOperation = a})
iSessionInfo :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iSessionInfo
= lens _iSessionInfo (\ s a -> s{_iSessionInfo = a})
iPhoneNumber :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iPhoneNumber
= lens _iPhoneNumber (\ s a -> s{_iPhoneNumber = a})
iCode :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iCode = lens _iCode (\ s a -> s{_iCode = a})
iIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest (Maybe Text)
iIdToken = lens _iIdToken (\ s a -> s{_iIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest"
(\ o ->
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest'
<$>
(o .:? "temporaryProof") <*>
(o .:? "verificationProof")
<*> (o .:? "operation")
<*> (o .:? "sessionInfo")
<*> (o .:? "phoneNumber")
<*> (o .:? "code")
<*> (o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest
where
toJSON
IdentitytoolkitRelyingPartyVerifyPhoneNumberRequest'{..}
= object
(catMaybes
[("temporaryProof" .=) <$> _iTemporaryProof,
("verificationProof" .=) <$> _iVerificationProof,
("operation" .=) <$> _iOperation,
("sessionInfo" .=) <$> _iSessionInfo,
("phoneNumber" .=) <$> _iPhoneNumber,
("code" .=) <$> _iCode,
("idToken" .=) <$> _iIdToken])
data IdentitytoolkitRelyingPartyEmailLinkSigninRequest =
IdentitytoolkitRelyingPartyEmailLinkSigninRequest'
{ _irpelsrEmail :: !(Maybe Text)
, _irpelsrOOBCode :: !(Maybe Text)
, _irpelsrIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyEmailLinkSigninRequest
:: IdentitytoolkitRelyingPartyEmailLinkSigninRequest
identitytoolkitRelyingPartyEmailLinkSigninRequest =
IdentitytoolkitRelyingPartyEmailLinkSigninRequest'
{ _irpelsrEmail = Nothing
, _irpelsrOOBCode = Nothing
, _irpelsrIdToken = Nothing
}
irpelsrEmail :: Lens' IdentitytoolkitRelyingPartyEmailLinkSigninRequest (Maybe Text)
irpelsrEmail
= lens _irpelsrEmail (\ s a -> s{_irpelsrEmail = a})
irpelsrOOBCode :: Lens' IdentitytoolkitRelyingPartyEmailLinkSigninRequest (Maybe Text)
irpelsrOOBCode
= lens _irpelsrOOBCode
(\ s a -> s{_irpelsrOOBCode = a})
irpelsrIdToken :: Lens' IdentitytoolkitRelyingPartyEmailLinkSigninRequest (Maybe Text)
irpelsrIdToken
= lens _irpelsrIdToken
(\ s a -> s{_irpelsrIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyEmailLinkSigninRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyEmailLinkSigninRequest"
(\ o ->
IdentitytoolkitRelyingPartyEmailLinkSigninRequest'
<$>
(o .:? "email") <*> (o .:? "oobCode") <*>
(o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartyEmailLinkSigninRequest
where
toJSON
IdentitytoolkitRelyingPartyEmailLinkSigninRequest'{..}
= object
(catMaybes
[("email" .=) <$> _irpelsrEmail,
("oobCode" .=) <$> _irpelsrOOBCode,
("idToken" .=) <$> _irpelsrIdToken])
data IdentitytoolkitRelyingPartyDeleteAccountRequest =
IdentitytoolkitRelyingPartyDeleteAccountRequest'
{ _irpdarDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _irpdarLocalId :: !(Maybe Text)
, _irpdarIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyDeleteAccountRequest
:: IdentitytoolkitRelyingPartyDeleteAccountRequest
identitytoolkitRelyingPartyDeleteAccountRequest =
IdentitytoolkitRelyingPartyDeleteAccountRequest'
{ _irpdarDelegatedProjectNumber = Nothing
, _irpdarLocalId = Nothing
, _irpdarIdToken = Nothing
}
irpdarDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyDeleteAccountRequest (Maybe Int64)
irpdarDelegatedProjectNumber
= lens _irpdarDelegatedProjectNumber
(\ s a -> s{_irpdarDelegatedProjectNumber = a})
. mapping _Coerce
irpdarLocalId :: Lens' IdentitytoolkitRelyingPartyDeleteAccountRequest (Maybe Text)
irpdarLocalId
= lens _irpdarLocalId
(\ s a -> s{_irpdarLocalId = a})
irpdarIdToken :: Lens' IdentitytoolkitRelyingPartyDeleteAccountRequest (Maybe Text)
irpdarIdToken
= lens _irpdarIdToken
(\ s a -> s{_irpdarIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartyDeleteAccountRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyDeleteAccountRequest"
(\ o ->
IdentitytoolkitRelyingPartyDeleteAccountRequest' <$>
(o .:? "delegatedProjectNumber") <*>
(o .:? "localId")
<*> (o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartyDeleteAccountRequest
where
toJSON
IdentitytoolkitRelyingPartyDeleteAccountRequest'{..}
= object
(catMaybes
[("delegatedProjectNumber" .=) <$>
_irpdarDelegatedProjectNumber,
("localId" .=) <$> _irpdarLocalId,
("idToken" .=) <$> _irpdarIdToken])
data GetOOBConfirmationCodeResponse =
GetOOBConfirmationCodeResponse'
{ _goobccrEmail :: !(Maybe Text)
, _goobccrKind :: !Text
, _goobccrOOBCode :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
getOOBConfirmationCodeResponse
:: GetOOBConfirmationCodeResponse
getOOBConfirmationCodeResponse =
GetOOBConfirmationCodeResponse'
{ _goobccrEmail = Nothing
, _goobccrKind = "identitytoolkit#GetOobConfirmationCodeResponse"
, _goobccrOOBCode = Nothing
}
goobccrEmail :: Lens' GetOOBConfirmationCodeResponse (Maybe Text)
goobccrEmail
= lens _goobccrEmail (\ s a -> s{_goobccrEmail = a})
goobccrKind :: Lens' GetOOBConfirmationCodeResponse Text
goobccrKind
= lens _goobccrKind (\ s a -> s{_goobccrKind = a})
goobccrOOBCode :: Lens' GetOOBConfirmationCodeResponse (Maybe Text)
goobccrOOBCode
= lens _goobccrOOBCode
(\ s a -> s{_goobccrOOBCode = a})
instance FromJSON GetOOBConfirmationCodeResponse
where
parseJSON
= withObject "GetOOBConfirmationCodeResponse"
(\ o ->
GetOOBConfirmationCodeResponse' <$>
(o .:? "email") <*>
(o .:? "kind" .!=
"identitytoolkit#GetOobConfirmationCodeResponse")
<*> (o .:? "oobCode"))
instance ToJSON GetOOBConfirmationCodeResponse where
toJSON GetOOBConfirmationCodeResponse'{..}
= object
(catMaybes
[("email" .=) <$> _goobccrEmail,
Just ("kind" .= _goobccrKind),
("oobCode" .=) <$> _goobccrOOBCode])
data IdentitytoolkitRelyingPartyDownloadAccountRequest =
IdentitytoolkitRelyingPartyDownloadAccountRequest'
{ _iNextPageToken :: !(Maybe Text)
, _iDelegatedProjectNumber :: !(Maybe (Textual Int64))
, _iMaxResults :: !(Maybe (Textual Word32))
, _iTargetProjectId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartyDownloadAccountRequest
:: IdentitytoolkitRelyingPartyDownloadAccountRequest
identitytoolkitRelyingPartyDownloadAccountRequest =
IdentitytoolkitRelyingPartyDownloadAccountRequest'
{ _iNextPageToken = Nothing
, _iDelegatedProjectNumber = Nothing
, _iMaxResults = Nothing
, _iTargetProjectId = Nothing
}
iNextPageToken :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Text)
iNextPageToken
= lens _iNextPageToken
(\ s a -> s{_iNextPageToken = a})
iDelegatedProjectNumber :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Int64)
iDelegatedProjectNumber
= lens _iDelegatedProjectNumber
(\ s a -> s{_iDelegatedProjectNumber = a})
. mapping _Coerce
iMaxResults :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Word32)
iMaxResults
= lens _iMaxResults (\ s a -> s{_iMaxResults = a}) .
mapping _Coerce
iTargetProjectId :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Text)
iTargetProjectId
= lens _iTargetProjectId
(\ s a -> s{_iTargetProjectId = a})
instance FromJSON
IdentitytoolkitRelyingPartyDownloadAccountRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartyDownloadAccountRequest"
(\ o ->
IdentitytoolkitRelyingPartyDownloadAccountRequest'
<$>
(o .:? "nextPageToken") <*>
(o .:? "delegatedProjectNumber")
<*> (o .:? "maxResults")
<*> (o .:? "targetProjectId"))
instance ToJSON
IdentitytoolkitRelyingPartyDownloadAccountRequest
where
toJSON
IdentitytoolkitRelyingPartyDownloadAccountRequest'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _iNextPageToken,
("delegatedProjectNumber" .=) <$>
_iDelegatedProjectNumber,
("maxResults" .=) <$> _iMaxResults,
("targetProjectId" .=) <$> _iTargetProjectId])
data VerifyPasswordResponse =
VerifyPasswordResponse'
{ _vprEmail :: !(Maybe Text)
, _vprPhotoURL :: !(Maybe Text)
, _vprOAuthAccessToken :: !(Maybe Text)
, _vprKind :: !Text
, _vprOAuthExpireIn :: !(Maybe (Textual Int32))
, _vprRefreshToken :: !(Maybe Text)
, _vprExpiresIn :: !(Maybe (Textual Int64))
, _vprDisplayName :: !(Maybe Text)
, _vprLocalId :: !(Maybe Text)
, _vprRegistered :: !(Maybe Bool)
, _vprIdToken :: !(Maybe Text)
, _vprOAuthAuthorizationCode :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
verifyPasswordResponse
:: VerifyPasswordResponse
verifyPasswordResponse =
VerifyPasswordResponse'
{ _vprEmail = Nothing
, _vprPhotoURL = Nothing
, _vprOAuthAccessToken = Nothing
, _vprKind = "identitytoolkit#VerifyPasswordResponse"
, _vprOAuthExpireIn = Nothing
, _vprRefreshToken = Nothing
, _vprExpiresIn = Nothing
, _vprDisplayName = Nothing
, _vprLocalId = Nothing
, _vprRegistered = Nothing
, _vprIdToken = Nothing
, _vprOAuthAuthorizationCode = Nothing
}
vprEmail :: Lens' VerifyPasswordResponse (Maybe Text)
vprEmail = lens _vprEmail (\ s a -> s{_vprEmail = a})
vprPhotoURL :: Lens' VerifyPasswordResponse (Maybe Text)
vprPhotoURL
= lens _vprPhotoURL (\ s a -> s{_vprPhotoURL = a})
vprOAuthAccessToken :: Lens' VerifyPasswordResponse (Maybe Text)
vprOAuthAccessToken
= lens _vprOAuthAccessToken
(\ s a -> s{_vprOAuthAccessToken = a})
vprKind :: Lens' VerifyPasswordResponse Text
vprKind = lens _vprKind (\ s a -> s{_vprKind = a})
vprOAuthExpireIn :: Lens' VerifyPasswordResponse (Maybe Int32)
vprOAuthExpireIn
= lens _vprOAuthExpireIn
(\ s a -> s{_vprOAuthExpireIn = a})
. mapping _Coerce
vprRefreshToken :: Lens' VerifyPasswordResponse (Maybe Text)
vprRefreshToken
= lens _vprRefreshToken
(\ s a -> s{_vprRefreshToken = a})
vprExpiresIn :: Lens' VerifyPasswordResponse (Maybe Int64)
vprExpiresIn
= lens _vprExpiresIn (\ s a -> s{_vprExpiresIn = a})
. mapping _Coerce
vprDisplayName :: Lens' VerifyPasswordResponse (Maybe Text)
vprDisplayName
= lens _vprDisplayName
(\ s a -> s{_vprDisplayName = a})
vprLocalId :: Lens' VerifyPasswordResponse (Maybe Text)
vprLocalId
= lens _vprLocalId (\ s a -> s{_vprLocalId = a})
vprRegistered :: Lens' VerifyPasswordResponse (Maybe Bool)
vprRegistered
= lens _vprRegistered
(\ s a -> s{_vprRegistered = a})
vprIdToken :: Lens' VerifyPasswordResponse (Maybe Text)
vprIdToken
= lens _vprIdToken (\ s a -> s{_vprIdToken = a})
vprOAuthAuthorizationCode :: Lens' VerifyPasswordResponse (Maybe Text)
vprOAuthAuthorizationCode
= lens _vprOAuthAuthorizationCode
(\ s a -> s{_vprOAuthAuthorizationCode = a})
instance FromJSON VerifyPasswordResponse where
parseJSON
= withObject "VerifyPasswordResponse"
(\ o ->
VerifyPasswordResponse' <$>
(o .:? "email") <*> (o .:? "photoUrl") <*>
(o .:? "oauthAccessToken")
<*>
(o .:? "kind" .!=
"identitytoolkit#VerifyPasswordResponse")
<*> (o .:? "oauthExpireIn")
<*> (o .:? "refreshToken")
<*> (o .:? "expiresIn")
<*> (o .:? "displayName")
<*> (o .:? "localId")
<*> (o .:? "registered")
<*> (o .:? "idToken")
<*> (o .:? "oauthAuthorizationCode"))
instance ToJSON VerifyPasswordResponse where
toJSON VerifyPasswordResponse'{..}
= object
(catMaybes
[("email" .=) <$> _vprEmail,
("photoUrl" .=) <$> _vprPhotoURL,
("oauthAccessToken" .=) <$> _vprOAuthAccessToken,
Just ("kind" .= _vprKind),
("oauthExpireIn" .=) <$> _vprOAuthExpireIn,
("refreshToken" .=) <$> _vprRefreshToken,
("expiresIn" .=) <$> _vprExpiresIn,
("displayName" .=) <$> _vprDisplayName,
("localId" .=) <$> _vprLocalId,
("registered" .=) <$> _vprRegistered,
("idToken" .=) <$> _vprIdToken,
("oauthAuthorizationCode" .=) <$>
_vprOAuthAuthorizationCode])
data SetAccountInfoResponse =
SetAccountInfoResponse'
{ _sairEmail :: !(Maybe Text)
, _sairPhotoURL :: !(Maybe Text)
, _sairKind :: !Text
, _sairRefreshToken :: !(Maybe Text)
, _sairProviderUserInfo :: !(Maybe [SetAccountInfoResponseProviderUserInfoItem])
, _sairExpiresIn :: !(Maybe (Textual Int64))
, _sairEmailVerified :: !(Maybe Bool)
, _sairDisplayName :: !(Maybe Text)
, _sairPasswordHash :: !(Maybe Bytes)
, _sairLocalId :: !(Maybe Text)
, _sairNewEmail :: !(Maybe Text)
, _sairIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
setAccountInfoResponse
:: SetAccountInfoResponse
setAccountInfoResponse =
SetAccountInfoResponse'
{ _sairEmail = Nothing
, _sairPhotoURL = Nothing
, _sairKind = "identitytoolkit#SetAccountInfoResponse"
, _sairRefreshToken = Nothing
, _sairProviderUserInfo = Nothing
, _sairExpiresIn = Nothing
, _sairEmailVerified = Nothing
, _sairDisplayName = Nothing
, _sairPasswordHash = Nothing
, _sairLocalId = Nothing
, _sairNewEmail = Nothing
, _sairIdToken = Nothing
}
sairEmail :: Lens' SetAccountInfoResponse (Maybe Text)
sairEmail
= lens _sairEmail (\ s a -> s{_sairEmail = a})
sairPhotoURL :: Lens' SetAccountInfoResponse (Maybe Text)
sairPhotoURL
= lens _sairPhotoURL (\ s a -> s{_sairPhotoURL = a})
sairKind :: Lens' SetAccountInfoResponse Text
sairKind = lens _sairKind (\ s a -> s{_sairKind = a})
sairRefreshToken :: Lens' SetAccountInfoResponse (Maybe Text)
sairRefreshToken
= lens _sairRefreshToken
(\ s a -> s{_sairRefreshToken = a})
sairProviderUserInfo :: Lens' SetAccountInfoResponse [SetAccountInfoResponseProviderUserInfoItem]
sairProviderUserInfo
= lens _sairProviderUserInfo
(\ s a -> s{_sairProviderUserInfo = a})
. _Default
. _Coerce
sairExpiresIn :: Lens' SetAccountInfoResponse (Maybe Int64)
sairExpiresIn
= lens _sairExpiresIn
(\ s a -> s{_sairExpiresIn = a})
. mapping _Coerce
sairEmailVerified :: Lens' SetAccountInfoResponse (Maybe Bool)
sairEmailVerified
= lens _sairEmailVerified
(\ s a -> s{_sairEmailVerified = a})
sairDisplayName :: Lens' SetAccountInfoResponse (Maybe Text)
sairDisplayName
= lens _sairDisplayName
(\ s a -> s{_sairDisplayName = a})
sairPasswordHash :: Lens' SetAccountInfoResponse (Maybe ByteString)
sairPasswordHash
= lens _sairPasswordHash
(\ s a -> s{_sairPasswordHash = a})
. mapping _Bytes
sairLocalId :: Lens' SetAccountInfoResponse (Maybe Text)
sairLocalId
= lens _sairLocalId (\ s a -> s{_sairLocalId = a})
sairNewEmail :: Lens' SetAccountInfoResponse (Maybe Text)
sairNewEmail
= lens _sairNewEmail (\ s a -> s{_sairNewEmail = a})
sairIdToken :: Lens' SetAccountInfoResponse (Maybe Text)
sairIdToken
= lens _sairIdToken (\ s a -> s{_sairIdToken = a})
instance FromJSON SetAccountInfoResponse where
parseJSON
= withObject "SetAccountInfoResponse"
(\ o ->
SetAccountInfoResponse' <$>
(o .:? "email") <*> (o .:? "photoUrl") <*>
(o .:? "kind" .!=
"identitytoolkit#SetAccountInfoResponse")
<*> (o .:? "refreshToken")
<*> (o .:? "providerUserInfo" .!= mempty)
<*> (o .:? "expiresIn")
<*> (o .:? "emailVerified")
<*> (o .:? "displayName")
<*> (o .:? "passwordHash")
<*> (o .:? "localId")
<*> (o .:? "newEmail")
<*> (o .:? "idToken"))
instance ToJSON SetAccountInfoResponse where
toJSON SetAccountInfoResponse'{..}
= object
(catMaybes
[("email" .=) <$> _sairEmail,
("photoUrl" .=) <$> _sairPhotoURL,
Just ("kind" .= _sairKind),
("refreshToken" .=) <$> _sairRefreshToken,
("providerUserInfo" .=) <$> _sairProviderUserInfo,
("expiresIn" .=) <$> _sairExpiresIn,
("emailVerified" .=) <$> _sairEmailVerified,
("displayName" .=) <$> _sairDisplayName,
("passwordHash" .=) <$> _sairPasswordHash,
("localId" .=) <$> _sairLocalId,
("newEmail" .=) <$> _sairNewEmail,
("idToken" .=) <$> _sairIdToken])
data IdentitytoolkitRelyingPartySignupNewUserRequest =
IdentitytoolkitRelyingPartySignupNewUserRequest'
{ _irpsnurEmail :: !(Maybe Text)
, _irpsnurInstanceId :: !(Maybe Text)
, _irpsnurPhotoURL :: !(Maybe Text)
, _irpsnurCaptchaChallenge :: !(Maybe Text)
, _irpsnurTenantProjectNumber :: !(Maybe (Textual Word64))
, _irpsnurDisabled :: !(Maybe Bool)
, _irpsnurTenantId :: !(Maybe Text)
, _irpsnurPassword :: !(Maybe Text)
, _irpsnurCaptchaResponse :: !(Maybe Text)
, _irpsnurPhoneNumber :: !(Maybe Text)
, _irpsnurEmailVerified :: !(Maybe Bool)
, _irpsnurDisplayName :: !(Maybe Text)
, _irpsnurLocalId :: !(Maybe Text)
, _irpsnurIdToken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySignupNewUserRequest
:: IdentitytoolkitRelyingPartySignupNewUserRequest
identitytoolkitRelyingPartySignupNewUserRequest =
IdentitytoolkitRelyingPartySignupNewUserRequest'
{ _irpsnurEmail = Nothing
, _irpsnurInstanceId = Nothing
, _irpsnurPhotoURL = Nothing
, _irpsnurCaptchaChallenge = Nothing
, _irpsnurTenantProjectNumber = Nothing
, _irpsnurDisabled = Nothing
, _irpsnurTenantId = Nothing
, _irpsnurPassword = Nothing
, _irpsnurCaptchaResponse = Nothing
, _irpsnurPhoneNumber = Nothing
, _irpsnurEmailVerified = Nothing
, _irpsnurDisplayName = Nothing
, _irpsnurLocalId = Nothing
, _irpsnurIdToken = Nothing
}
irpsnurEmail :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurEmail
= lens _irpsnurEmail (\ s a -> s{_irpsnurEmail = a})
irpsnurInstanceId :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurInstanceId
= lens _irpsnurInstanceId
(\ s a -> s{_irpsnurInstanceId = a})
irpsnurPhotoURL :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurPhotoURL
= lens _irpsnurPhotoURL
(\ s a -> s{_irpsnurPhotoURL = a})
irpsnurCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurCaptchaChallenge
= lens _irpsnurCaptchaChallenge
(\ s a -> s{_irpsnurCaptchaChallenge = a})
irpsnurTenantProjectNumber :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Word64)
irpsnurTenantProjectNumber
= lens _irpsnurTenantProjectNumber
(\ s a -> s{_irpsnurTenantProjectNumber = a})
. mapping _Coerce
irpsnurDisabled :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Bool)
irpsnurDisabled
= lens _irpsnurDisabled
(\ s a -> s{_irpsnurDisabled = a})
irpsnurTenantId :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurTenantId
= lens _irpsnurTenantId
(\ s a -> s{_irpsnurTenantId = a})
irpsnurPassword :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurPassword
= lens _irpsnurPassword
(\ s a -> s{_irpsnurPassword = a})
irpsnurCaptchaResponse :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurCaptchaResponse
= lens _irpsnurCaptchaResponse
(\ s a -> s{_irpsnurCaptchaResponse = a})
irpsnurPhoneNumber :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurPhoneNumber
= lens _irpsnurPhoneNumber
(\ s a -> s{_irpsnurPhoneNumber = a})
irpsnurEmailVerified :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Bool)
irpsnurEmailVerified
= lens _irpsnurEmailVerified
(\ s a -> s{_irpsnurEmailVerified = a})
irpsnurDisplayName :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurDisplayName
= lens _irpsnurDisplayName
(\ s a -> s{_irpsnurDisplayName = a})
irpsnurLocalId :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurLocalId
= lens _irpsnurLocalId
(\ s a -> s{_irpsnurLocalId = a})
irpsnurIdToken :: Lens' IdentitytoolkitRelyingPartySignupNewUserRequest (Maybe Text)
irpsnurIdToken
= lens _irpsnurIdToken
(\ s a -> s{_irpsnurIdToken = a})
instance FromJSON
IdentitytoolkitRelyingPartySignupNewUserRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySignupNewUserRequest"
(\ o ->
IdentitytoolkitRelyingPartySignupNewUserRequest' <$>
(o .:? "email") <*> (o .:? "instanceId") <*>
(o .:? "photoUrl")
<*> (o .:? "captchaChallenge")
<*> (o .:? "tenantProjectNumber")
<*> (o .:? "disabled")
<*> (o .:? "tenantId")
<*> (o .:? "password")
<*> (o .:? "captchaResponse")
<*> (o .:? "phoneNumber")
<*> (o .:? "emailVerified")
<*> (o .:? "displayName")
<*> (o .:? "localId")
<*> (o .:? "idToken"))
instance ToJSON
IdentitytoolkitRelyingPartySignupNewUserRequest
where
toJSON
IdentitytoolkitRelyingPartySignupNewUserRequest'{..}
= object
(catMaybes
[("email" .=) <$> _irpsnurEmail,
("instanceId" .=) <$> _irpsnurInstanceId,
("photoUrl" .=) <$> _irpsnurPhotoURL,
("captchaChallenge" .=) <$> _irpsnurCaptchaChallenge,
("tenantProjectNumber" .=) <$>
_irpsnurTenantProjectNumber,
("disabled" .=) <$> _irpsnurDisabled,
("tenantId" .=) <$> _irpsnurTenantId,
("password" .=) <$> _irpsnurPassword,
("captchaResponse" .=) <$> _irpsnurCaptchaResponse,
("phoneNumber" .=) <$> _irpsnurPhoneNumber,
("emailVerified" .=) <$> _irpsnurEmailVerified,
("displayName" .=) <$> _irpsnurDisplayName,
("localId" .=) <$> _irpsnurLocalId,
("idToken" .=) <$> _irpsnurIdToken])
data VerifyAssertionResponse =
VerifyAssertionResponse'
{ _varProviderId :: !(Maybe Text)
, _varFullName :: !(Maybe Text)
, _varEmail :: !(Maybe Text)
, _varIsNewUser :: !(Maybe Bool)
, _varEmailRecycled :: !(Maybe Bool)
, _varPhotoURL :: !(Maybe Text)
, _varVerifiedProvider :: !(Maybe [Text])
, _varContext :: !(Maybe Text)
, _varNeedConfirmation :: !(Maybe Bool)
, _varOriginalEmail :: !(Maybe Text)
, _varLastName :: !(Maybe Text)
, _varOAuthAccessToken :: !(Maybe Text)
, _varDateOfBirth :: !(Maybe Text)
, _varKind :: !Text
, _varRawUserInfo :: !(Maybe Text)
, _varOAuthExpireIn :: !(Maybe (Textual Int32))
, _varRefreshToken :: !(Maybe Text)
, _varAppInstallationURL :: !(Maybe Text)
, _varAction :: !(Maybe Text)
, _varNeedEmail :: !(Maybe Bool)
, _varFederatedId :: !(Maybe Text)
, _varOAuthIdToken :: !(Maybe Text)
, _varAppScheme :: !(Maybe Text)
, _varExpiresIn :: !(Maybe (Textual Int64))
, _varInputEmail :: !(Maybe Text)
, _varEmailVerified :: !(Maybe Bool)
, _varOAuthTokenSecret :: !(Maybe Text)
, _varLanguage :: !(Maybe Text)
, _varFirstName :: !(Maybe Text)
, _varDisplayName :: !(Maybe Text)
, _varOAuthRequestToken :: !(Maybe Text)
, _varOAuthScope :: !(Maybe Text)
, _varNickName :: !(Maybe Text)
, _varLocalId :: !(Maybe Text)
, _varTimeZone :: !(Maybe Text)
, _varScreenName :: !(Maybe Text)
, _varErrorMessage :: !(Maybe Text)
, _varIdToken :: !(Maybe Text)
, _varOAuthAuthorizationCode :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
verifyAssertionResponse
:: VerifyAssertionResponse
verifyAssertionResponse =
VerifyAssertionResponse'
{ _varProviderId = Nothing
, _varFullName = Nothing
, _varEmail = Nothing
, _varIsNewUser = Nothing
, _varEmailRecycled = Nothing
, _varPhotoURL = Nothing
, _varVerifiedProvider = Nothing
, _varContext = Nothing
, _varNeedConfirmation = Nothing
, _varOriginalEmail = Nothing
, _varLastName = Nothing
, _varOAuthAccessToken = Nothing
, _varDateOfBirth = Nothing
, _varKind = "identitytoolkit#VerifyAssertionResponse"
, _varRawUserInfo = Nothing
, _varOAuthExpireIn = Nothing
, _varRefreshToken = Nothing
, _varAppInstallationURL = Nothing
, _varAction = Nothing
, _varNeedEmail = Nothing
, _varFederatedId = Nothing
, _varOAuthIdToken = Nothing
, _varAppScheme = Nothing
, _varExpiresIn = Nothing
, _varInputEmail = Nothing
, _varEmailVerified = Nothing
, _varOAuthTokenSecret = Nothing
, _varLanguage = Nothing
, _varFirstName = Nothing
, _varDisplayName = Nothing
, _varOAuthRequestToken = Nothing
, _varOAuthScope = Nothing
, _varNickName = Nothing
, _varLocalId = Nothing
, _varTimeZone = Nothing
, _varScreenName = Nothing
, _varErrorMessage = Nothing
, _varIdToken = Nothing
, _varOAuthAuthorizationCode = Nothing
}
varProviderId :: Lens' VerifyAssertionResponse (Maybe Text)
varProviderId
= lens _varProviderId
(\ s a -> s{_varProviderId = a})
varFullName :: Lens' VerifyAssertionResponse (Maybe Text)
varFullName
= lens _varFullName (\ s a -> s{_varFullName = a})
varEmail :: Lens' VerifyAssertionResponse (Maybe Text)
varEmail = lens _varEmail (\ s a -> s{_varEmail = a})
varIsNewUser :: Lens' VerifyAssertionResponse (Maybe Bool)
varIsNewUser
= lens _varIsNewUser (\ s a -> s{_varIsNewUser = a})
varEmailRecycled :: Lens' VerifyAssertionResponse (Maybe Bool)
varEmailRecycled
= lens _varEmailRecycled
(\ s a -> s{_varEmailRecycled = a})
varPhotoURL :: Lens' VerifyAssertionResponse (Maybe Text)
varPhotoURL
= lens _varPhotoURL (\ s a -> s{_varPhotoURL = a})
varVerifiedProvider :: Lens' VerifyAssertionResponse [Text]
varVerifiedProvider
= lens _varVerifiedProvider
(\ s a -> s{_varVerifiedProvider = a})
. _Default
. _Coerce
varContext :: Lens' VerifyAssertionResponse (Maybe Text)
varContext
= lens _varContext (\ s a -> s{_varContext = a})
varNeedConfirmation :: Lens' VerifyAssertionResponse (Maybe Bool)
varNeedConfirmation
= lens _varNeedConfirmation
(\ s a -> s{_varNeedConfirmation = a})
varOriginalEmail :: Lens' VerifyAssertionResponse (Maybe Text)
varOriginalEmail
= lens _varOriginalEmail
(\ s a -> s{_varOriginalEmail = a})
varLastName :: Lens' VerifyAssertionResponse (Maybe Text)
varLastName
= lens _varLastName (\ s a -> s{_varLastName = a})
varOAuthAccessToken :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthAccessToken
= lens _varOAuthAccessToken
(\ s a -> s{_varOAuthAccessToken = a})
varDateOfBirth :: Lens' VerifyAssertionResponse (Maybe Text)
varDateOfBirth
= lens _varDateOfBirth
(\ s a -> s{_varDateOfBirth = a})
varKind :: Lens' VerifyAssertionResponse Text
varKind = lens _varKind (\ s a -> s{_varKind = a})
varRawUserInfo :: Lens' VerifyAssertionResponse (Maybe Text)
varRawUserInfo
= lens _varRawUserInfo
(\ s a -> s{_varRawUserInfo = a})
varOAuthExpireIn :: Lens' VerifyAssertionResponse (Maybe Int32)
varOAuthExpireIn
= lens _varOAuthExpireIn
(\ s a -> s{_varOAuthExpireIn = a})
. mapping _Coerce
varRefreshToken :: Lens' VerifyAssertionResponse (Maybe Text)
varRefreshToken
= lens _varRefreshToken
(\ s a -> s{_varRefreshToken = a})
varAppInstallationURL :: Lens' VerifyAssertionResponse (Maybe Text)
varAppInstallationURL
= lens _varAppInstallationURL
(\ s a -> s{_varAppInstallationURL = a})
varAction :: Lens' VerifyAssertionResponse (Maybe Text)
varAction
= lens _varAction (\ s a -> s{_varAction = a})
varNeedEmail :: Lens' VerifyAssertionResponse (Maybe Bool)
varNeedEmail
= lens _varNeedEmail (\ s a -> s{_varNeedEmail = a})
varFederatedId :: Lens' VerifyAssertionResponse (Maybe Text)
varFederatedId
= lens _varFederatedId
(\ s a -> s{_varFederatedId = a})
varOAuthIdToken :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthIdToken
= lens _varOAuthIdToken
(\ s a -> s{_varOAuthIdToken = a})
varAppScheme :: Lens' VerifyAssertionResponse (Maybe Text)
varAppScheme
= lens _varAppScheme (\ s a -> s{_varAppScheme = a})
varExpiresIn :: Lens' VerifyAssertionResponse (Maybe Int64)
varExpiresIn
= lens _varExpiresIn (\ s a -> s{_varExpiresIn = a})
. mapping _Coerce
varInputEmail :: Lens' VerifyAssertionResponse (Maybe Text)
varInputEmail
= lens _varInputEmail
(\ s a -> s{_varInputEmail = a})
varEmailVerified :: Lens' VerifyAssertionResponse (Maybe Bool)
varEmailVerified
= lens _varEmailVerified
(\ s a -> s{_varEmailVerified = a})
varOAuthTokenSecret :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthTokenSecret
= lens _varOAuthTokenSecret
(\ s a -> s{_varOAuthTokenSecret = a})
varLanguage :: Lens' VerifyAssertionResponse (Maybe Text)
varLanguage
= lens _varLanguage (\ s a -> s{_varLanguage = a})
varFirstName :: Lens' VerifyAssertionResponse (Maybe Text)
varFirstName
= lens _varFirstName (\ s a -> s{_varFirstName = a})
varDisplayName :: Lens' VerifyAssertionResponse (Maybe Text)
varDisplayName
= lens _varDisplayName
(\ s a -> s{_varDisplayName = a})
varOAuthRequestToken :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthRequestToken
= lens _varOAuthRequestToken
(\ s a -> s{_varOAuthRequestToken = a})
varOAuthScope :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthScope
= lens _varOAuthScope
(\ s a -> s{_varOAuthScope = a})
varNickName :: Lens' VerifyAssertionResponse (Maybe Text)
varNickName
= lens _varNickName (\ s a -> s{_varNickName = a})
varLocalId :: Lens' VerifyAssertionResponse (Maybe Text)
varLocalId
= lens _varLocalId (\ s a -> s{_varLocalId = a})
varTimeZone :: Lens' VerifyAssertionResponse (Maybe Text)
varTimeZone
= lens _varTimeZone (\ s a -> s{_varTimeZone = a})
varScreenName :: Lens' VerifyAssertionResponse (Maybe Text)
varScreenName
= lens _varScreenName
(\ s a -> s{_varScreenName = a})
varErrorMessage :: Lens' VerifyAssertionResponse (Maybe Text)
varErrorMessage
= lens _varErrorMessage
(\ s a -> s{_varErrorMessage = a})
varIdToken :: Lens' VerifyAssertionResponse (Maybe Text)
varIdToken
= lens _varIdToken (\ s a -> s{_varIdToken = a})
varOAuthAuthorizationCode :: Lens' VerifyAssertionResponse (Maybe Text)
varOAuthAuthorizationCode
= lens _varOAuthAuthorizationCode
(\ s a -> s{_varOAuthAuthorizationCode = a})
instance FromJSON VerifyAssertionResponse where
parseJSON
= withObject "VerifyAssertionResponse"
(\ o ->
VerifyAssertionResponse' <$>
(o .:? "providerId") <*> (o .:? "fullName") <*>
(o .:? "email")
<*> (o .:? "isNewUser")
<*> (o .:? "emailRecycled")
<*> (o .:? "photoUrl")
<*> (o .:? "verifiedProvider" .!= mempty)
<*> (o .:? "context")
<*> (o .:? "needConfirmation")
<*> (o .:? "originalEmail")
<*> (o .:? "lastName")
<*> (o .:? "oauthAccessToken")
<*> (o .:? "dateOfBirth")
<*>
(o .:? "kind" .!=
"identitytoolkit#VerifyAssertionResponse")
<*> (o .:? "rawUserInfo")
<*> (o .:? "oauthExpireIn")
<*> (o .:? "refreshToken")
<*> (o .:? "appInstallationUrl")
<*> (o .:? "action")
<*> (o .:? "needEmail")
<*> (o .:? "federatedId")
<*> (o .:? "oauthIdToken")
<*> (o .:? "appScheme")
<*> (o .:? "expiresIn")
<*> (o .:? "inputEmail")
<*> (o .:? "emailVerified")
<*> (o .:? "oauthTokenSecret")
<*> (o .:? "language")
<*> (o .:? "firstName")
<*> (o .:? "displayName")
<*> (o .:? "oauthRequestToken")
<*> (o .:? "oauthScope")
<*> (o .:? "nickName")
<*> (o .:? "localId")
<*> (o .:? "timeZone")
<*> (o .:? "screenName")
<*> (o .:? "errorMessage")
<*> (o .:? "idToken")
<*> (o .:? "oauthAuthorizationCode"))
instance ToJSON VerifyAssertionResponse where
toJSON VerifyAssertionResponse'{..}
= object
(catMaybes
[("providerId" .=) <$> _varProviderId,
("fullName" .=) <$> _varFullName,
("email" .=) <$> _varEmail,
("isNewUser" .=) <$> _varIsNewUser,
("emailRecycled" .=) <$> _varEmailRecycled,
("photoUrl" .=) <$> _varPhotoURL,
("verifiedProvider" .=) <$> _varVerifiedProvider,
("context" .=) <$> _varContext,
("needConfirmation" .=) <$> _varNeedConfirmation,
("originalEmail" .=) <$> _varOriginalEmail,
("lastName" .=) <$> _varLastName,
("oauthAccessToken" .=) <$> _varOAuthAccessToken,
("dateOfBirth" .=) <$> _varDateOfBirth,
Just ("kind" .= _varKind),
("rawUserInfo" .=) <$> _varRawUserInfo,
("oauthExpireIn" .=) <$> _varOAuthExpireIn,
("refreshToken" .=) <$> _varRefreshToken,
("appInstallationUrl" .=) <$> _varAppInstallationURL,
("action" .=) <$> _varAction,
("needEmail" .=) <$> _varNeedEmail,
("federatedId" .=) <$> _varFederatedId,
("oauthIdToken" .=) <$> _varOAuthIdToken,
("appScheme" .=) <$> _varAppScheme,
("expiresIn" .=) <$> _varExpiresIn,
("inputEmail" .=) <$> _varInputEmail,
("emailVerified" .=) <$> _varEmailVerified,
("oauthTokenSecret" .=) <$> _varOAuthTokenSecret,
("language" .=) <$> _varLanguage,
("firstName" .=) <$> _varFirstName,
("displayName" .=) <$> _varDisplayName,
("oauthRequestToken" .=) <$> _varOAuthRequestToken,
("oauthScope" .=) <$> _varOAuthScope,
("nickName" .=) <$> _varNickName,
("localId" .=) <$> _varLocalId,
("timeZone" .=) <$> _varTimeZone,
("screenName" .=) <$> _varScreenName,
("errorMessage" .=) <$> _varErrorMessage,
("idToken" .=) <$> _varIdToken,
("oauthAuthorizationCode" .=) <$>
_varOAuthAuthorizationCode])
data IdentitytoolkitRelyingPartySignOutUserRequest =
IdentitytoolkitRelyingPartySignOutUserRequest'
{ _iInstanceId :: !(Maybe Text)
, _iLocalId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
identitytoolkitRelyingPartySignOutUserRequest
:: IdentitytoolkitRelyingPartySignOutUserRequest
identitytoolkitRelyingPartySignOutUserRequest =
IdentitytoolkitRelyingPartySignOutUserRequest'
{_iInstanceId = Nothing, _iLocalId = Nothing}
iInstanceId :: Lens' IdentitytoolkitRelyingPartySignOutUserRequest (Maybe Text)
iInstanceId
= lens _iInstanceId (\ s a -> s{_iInstanceId = a})
iLocalId :: Lens' IdentitytoolkitRelyingPartySignOutUserRequest (Maybe Text)
iLocalId = lens _iLocalId (\ s a -> s{_iLocalId = a})
instance FromJSON
IdentitytoolkitRelyingPartySignOutUserRequest
where
parseJSON
= withObject
"IdentitytoolkitRelyingPartySignOutUserRequest"
(\ o ->
IdentitytoolkitRelyingPartySignOutUserRequest' <$>
(o .:? "instanceId") <*> (o .:? "localId"))
instance ToJSON
IdentitytoolkitRelyingPartySignOutUserRequest
where
toJSON
IdentitytoolkitRelyingPartySignOutUserRequest'{..}
= object
(catMaybes
[("instanceId" .=) <$> _iInstanceId,
("localId" .=) <$> _iLocalId])
data GetRecaptchaParamResponse =
GetRecaptchaParamResponse'
{ _grprRecaptchaSiteKey :: !(Maybe Text)
, _grprKind :: !Text
, _grprRecaptchaStoken :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
getRecaptchaParamResponse
:: GetRecaptchaParamResponse
getRecaptchaParamResponse =
GetRecaptchaParamResponse'
{ _grprRecaptchaSiteKey = Nothing
, _grprKind = "identitytoolkit#GetRecaptchaParamResponse"
, _grprRecaptchaStoken = Nothing
}
grprRecaptchaSiteKey :: Lens' GetRecaptchaParamResponse (Maybe Text)
grprRecaptchaSiteKey
= lens _grprRecaptchaSiteKey
(\ s a -> s{_grprRecaptchaSiteKey = a})
grprKind :: Lens' GetRecaptchaParamResponse Text
grprKind = lens _grprKind (\ s a -> s{_grprKind = a})
grprRecaptchaStoken :: Lens' GetRecaptchaParamResponse (Maybe Text)
grprRecaptchaStoken
= lens _grprRecaptchaStoken
(\ s a -> s{_grprRecaptchaStoken = a})
instance FromJSON GetRecaptchaParamResponse where
parseJSON
= withObject "GetRecaptchaParamResponse"
(\ o ->
GetRecaptchaParamResponse' <$>
(o .:? "recaptchaSiteKey") <*>
(o .:? "kind" .!=
"identitytoolkit#GetRecaptchaParamResponse")
<*> (o .:? "recaptchaStoken"))
instance ToJSON GetRecaptchaParamResponse where
toJSON GetRecaptchaParamResponse'{..}
= object
(catMaybes
[("recaptchaSiteKey" .=) <$> _grprRecaptchaSiteKey,
Just ("kind" .= _grprKind),
("recaptchaStoken" .=) <$> _grprRecaptchaStoken])