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