{-# 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.FirebaseHosting.Types.Product where
import Network.Google.FirebaseHosting.Types.Sum
import Network.Google.Prelude
newtype VersionLabels = VersionLabels'
{ _vlAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
versionLabels
:: HashMap Text Text
-> VersionLabels
versionLabels pVlAddtional_ =
VersionLabels'
{ _vlAddtional = _Coerce # pVlAddtional_
}
vlAddtional :: Lens' VersionLabels (HashMap Text Text)
vlAddtional
= lens _vlAddtional (\ s a -> s{_vlAddtional = a}) .
_Coerce
instance FromJSON VersionLabels where
parseJSON
= withObject "VersionLabels"
(\ o -> VersionLabels' <$> (parseJSONObject o))
instance ToJSON VersionLabels where
toJSON = toJSON . _vlAddtional
data PopulateVersionFilesResponse = PopulateVersionFilesResponse'
{ _pvfrUploadURL :: !(Maybe Text)
, _pvfrUploadRequiredHashes :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
populateVersionFilesResponse
:: PopulateVersionFilesResponse
populateVersionFilesResponse =
PopulateVersionFilesResponse'
{ _pvfrUploadURL = Nothing
, _pvfrUploadRequiredHashes = Nothing
}
pvfrUploadURL :: Lens' PopulateVersionFilesResponse (Maybe Text)
pvfrUploadURL
= lens _pvfrUploadURL
(\ s a -> s{_pvfrUploadURL = a})
pvfrUploadRequiredHashes :: Lens' PopulateVersionFilesResponse [Text]
pvfrUploadRequiredHashes
= lens _pvfrUploadRequiredHashes
(\ s a -> s{_pvfrUploadRequiredHashes = a})
. _Default
. _Coerce
instance FromJSON PopulateVersionFilesResponse where
parseJSON
= withObject "PopulateVersionFilesResponse"
(\ o ->
PopulateVersionFilesResponse' <$>
(o .:? "uploadUrl") <*>
(o .:? "uploadRequiredHashes" .!= mempty))
instance ToJSON PopulateVersionFilesResponse where
toJSON PopulateVersionFilesResponse'{..}
= object
(catMaybes
[("uploadUrl" .=) <$> _pvfrUploadURL,
("uploadRequiredHashes" .=) <$>
_pvfrUploadRequiredHashes])
data CertDNSChallenge = CertDNSChallenge'
{ _cdcToken :: !(Maybe Text)
, _cdcDomainName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
certDNSChallenge
:: CertDNSChallenge
certDNSChallenge =
CertDNSChallenge'
{ _cdcToken = Nothing
, _cdcDomainName = Nothing
}
cdcToken :: Lens' CertDNSChallenge (Maybe Text)
cdcToken = lens _cdcToken (\ s a -> s{_cdcToken = a})
cdcDomainName :: Lens' CertDNSChallenge (Maybe Text)
cdcDomainName
= lens _cdcDomainName
(\ s a -> s{_cdcDomainName = a})
instance FromJSON CertDNSChallenge where
parseJSON
= withObject "CertDNSChallenge"
(\ o ->
CertDNSChallenge' <$>
(o .:? "token") <*> (o .:? "domainName"))
instance ToJSON CertDNSChallenge where
toJSON CertDNSChallenge'{..}
= object
(catMaybes
[("token" .=) <$> _cdcToken,
("domainName" .=) <$> _cdcDomainName])
data Empty =
Empty'
deriving (Eq,Show,Data,Typeable,Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
newtype PopulateVersionFilesRequest = PopulateVersionFilesRequest'
{ _pvfrFiles :: Maybe PopulateVersionFilesRequestFiles
} deriving (Eq,Show,Data,Typeable,Generic)
populateVersionFilesRequest
:: PopulateVersionFilesRequest
populateVersionFilesRequest =
PopulateVersionFilesRequest'
{ _pvfrFiles = Nothing
}
pvfrFiles :: Lens' PopulateVersionFilesRequest (Maybe PopulateVersionFilesRequestFiles)
pvfrFiles
= lens _pvfrFiles (\ s a -> s{_pvfrFiles = a})
instance FromJSON PopulateVersionFilesRequest where
parseJSON
= withObject "PopulateVersionFilesRequest"
(\ o ->
PopulateVersionFilesRequest' <$> (o .:? "files"))
instance ToJSON PopulateVersionFilesRequest where
toJSON PopulateVersionFilesRequest'{..}
= object (catMaybes [("files" .=) <$> _pvfrFiles])
data ServingConfig = ServingConfig'
{ _scCleanURLs :: !(Maybe Bool)
, _scAppAssociation :: !(Maybe ServingConfigAppAssociation)
, _scRewrites :: !(Maybe [Rewrite])
, _scRedirects :: !(Maybe [Redirect])
, _scHeaders :: !(Maybe [Header])
, _scTrailingSlashBehavior :: !(Maybe ServingConfigTrailingSlashBehavior)
} deriving (Eq,Show,Data,Typeable,Generic)
servingConfig
:: ServingConfig
servingConfig =
ServingConfig'
{ _scCleanURLs = Nothing
, _scAppAssociation = Nothing
, _scRewrites = Nothing
, _scRedirects = Nothing
, _scHeaders = Nothing
, _scTrailingSlashBehavior = Nothing
}
scCleanURLs :: Lens' ServingConfig (Maybe Bool)
scCleanURLs
= lens _scCleanURLs (\ s a -> s{_scCleanURLs = a})
scAppAssociation :: Lens' ServingConfig (Maybe ServingConfigAppAssociation)
scAppAssociation
= lens _scAppAssociation
(\ s a -> s{_scAppAssociation = a})
scRewrites :: Lens' ServingConfig [Rewrite]
scRewrites
= lens _scRewrites (\ s a -> s{_scRewrites = a}) .
_Default
. _Coerce
scRedirects :: Lens' ServingConfig [Redirect]
scRedirects
= lens _scRedirects (\ s a -> s{_scRedirects = a}) .
_Default
. _Coerce
scHeaders :: Lens' ServingConfig [Header]
scHeaders
= lens _scHeaders (\ s a -> s{_scHeaders = a}) .
_Default
. _Coerce
scTrailingSlashBehavior :: Lens' ServingConfig (Maybe ServingConfigTrailingSlashBehavior)
scTrailingSlashBehavior
= lens _scTrailingSlashBehavior
(\ s a -> s{_scTrailingSlashBehavior = a})
instance FromJSON ServingConfig where
parseJSON
= withObject "ServingConfig"
(\ o ->
ServingConfig' <$>
(o .:? "cleanUrls") <*> (o .:? "appAssociation") <*>
(o .:? "rewrites" .!= mempty)
<*> (o .:? "redirects" .!= mempty)
<*> (o .:? "headers" .!= mempty)
<*> (o .:? "trailingSlashBehavior"))
instance ToJSON ServingConfig where
toJSON ServingConfig'{..}
= object
(catMaybes
[("cleanUrls" .=) <$> _scCleanURLs,
("appAssociation" .=) <$> _scAppAssociation,
("rewrites" .=) <$> _scRewrites,
("redirects" .=) <$> _scRedirects,
("headers" .=) <$> _scHeaders,
("trailingSlashBehavior" .=) <$>
_scTrailingSlashBehavior])
data Domain = Domain'
{ _dStatus :: !(Maybe DomainStatus)
, _dProvisioning :: !(Maybe DomainProvisioning)
, _dUpdateTime :: !(Maybe DateTime')
, _dDomainName :: !(Maybe Text)
, _dDomainRedirect :: !(Maybe DomainRedirect)
, _dSite :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
domain
:: Domain
domain =
Domain'
{ _dStatus = Nothing
, _dProvisioning = Nothing
, _dUpdateTime = Nothing
, _dDomainName = Nothing
, _dDomainRedirect = Nothing
, _dSite = Nothing
}
dStatus :: Lens' Domain (Maybe DomainStatus)
dStatus = lens _dStatus (\ s a -> s{_dStatus = a})
dProvisioning :: Lens' Domain (Maybe DomainProvisioning)
dProvisioning
= lens _dProvisioning
(\ s a -> s{_dProvisioning = a})
dUpdateTime :: Lens' Domain (Maybe UTCTime)
dUpdateTime
= lens _dUpdateTime (\ s a -> s{_dUpdateTime = a}) .
mapping _DateTime
dDomainName :: Lens' Domain (Maybe Text)
dDomainName
= lens _dDomainName (\ s a -> s{_dDomainName = a})
dDomainRedirect :: Lens' Domain (Maybe DomainRedirect)
dDomainRedirect
= lens _dDomainRedirect
(\ s a -> s{_dDomainRedirect = a})
dSite :: Lens' Domain (Maybe Text)
dSite = lens _dSite (\ s a -> s{_dSite = a})
instance FromJSON Domain where
parseJSON
= withObject "Domain"
(\ o ->
Domain' <$>
(o .:? "status") <*> (o .:? "provisioning") <*>
(o .:? "updateTime")
<*> (o .:? "domainName")
<*> (o .:? "domainRedirect")
<*> (o .:? "site"))
instance ToJSON Domain where
toJSON Domain'{..}
= object
(catMaybes
[("status" .=) <$> _dStatus,
("provisioning" .=) <$> _dProvisioning,
("updateTime" .=) <$> _dUpdateTime,
("domainName" .=) <$> _dDomainName,
("domainRedirect" .=) <$> _dDomainRedirect,
("site" .=) <$> _dSite])
data ListReleasesResponse = ListReleasesResponse'
{ _lrrNextPageToken :: !(Maybe Text)
, _lrrReleases :: !(Maybe [Release])
} deriving (Eq,Show,Data,Typeable,Generic)
listReleasesResponse
:: ListReleasesResponse
listReleasesResponse =
ListReleasesResponse'
{ _lrrNextPageToken = Nothing
, _lrrReleases = Nothing
}
lrrNextPageToken :: Lens' ListReleasesResponse (Maybe Text)
lrrNextPageToken
= lens _lrrNextPageToken
(\ s a -> s{_lrrNextPageToken = a})
lrrReleases :: Lens' ListReleasesResponse [Release]
lrrReleases
= lens _lrrReleases (\ s a -> s{_lrrReleases = a}) .
_Default
. _Coerce
instance FromJSON ListReleasesResponse where
parseJSON
= withObject "ListReleasesResponse"
(\ o ->
ListReleasesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "releases" .!= mempty))
instance ToJSON ListReleasesResponse where
toJSON ListReleasesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lrrNextPageToken,
("releases" .=) <$> _lrrReleases])
data DomainProvisioning = DomainProvisioning'
{ _dpExpectedIPs :: !(Maybe [Text])
, _dpCertChallengeDNS :: !(Maybe CertDNSChallenge)
, _dpDNSFetchTime :: !(Maybe DateTime')
, _dpCertStatus :: !(Maybe DomainProvisioningCertStatus)
, _dpDNSStatus :: !(Maybe DomainProvisioningDNSStatus)
, _dpDiscoveredIPs :: !(Maybe [Text])
, _dpCertChallengeHTTP :: !(Maybe CertHTTPChallenge)
, _dpCertChallengeDiscoveredTxt :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
domainProvisioning
:: DomainProvisioning
domainProvisioning =
DomainProvisioning'
{ _dpExpectedIPs = Nothing
, _dpCertChallengeDNS = Nothing
, _dpDNSFetchTime = Nothing
, _dpCertStatus = Nothing
, _dpDNSStatus = Nothing
, _dpDiscoveredIPs = Nothing
, _dpCertChallengeHTTP = Nothing
, _dpCertChallengeDiscoveredTxt = Nothing
}
dpExpectedIPs :: Lens' DomainProvisioning [Text]
dpExpectedIPs
= lens _dpExpectedIPs
(\ s a -> s{_dpExpectedIPs = a})
. _Default
. _Coerce
dpCertChallengeDNS :: Lens' DomainProvisioning (Maybe CertDNSChallenge)
dpCertChallengeDNS
= lens _dpCertChallengeDNS
(\ s a -> s{_dpCertChallengeDNS = a})
dpDNSFetchTime :: Lens' DomainProvisioning (Maybe UTCTime)
dpDNSFetchTime
= lens _dpDNSFetchTime
(\ s a -> s{_dpDNSFetchTime = a})
. mapping _DateTime
dpCertStatus :: Lens' DomainProvisioning (Maybe DomainProvisioningCertStatus)
dpCertStatus
= lens _dpCertStatus (\ s a -> s{_dpCertStatus = a})
dpDNSStatus :: Lens' DomainProvisioning (Maybe DomainProvisioningDNSStatus)
dpDNSStatus
= lens _dpDNSStatus (\ s a -> s{_dpDNSStatus = a})
dpDiscoveredIPs :: Lens' DomainProvisioning [Text]
dpDiscoveredIPs
= lens _dpDiscoveredIPs
(\ s a -> s{_dpDiscoveredIPs = a})
. _Default
. _Coerce
dpCertChallengeHTTP :: Lens' DomainProvisioning (Maybe CertHTTPChallenge)
dpCertChallengeHTTP
= lens _dpCertChallengeHTTP
(\ s a -> s{_dpCertChallengeHTTP = a})
dpCertChallengeDiscoveredTxt :: Lens' DomainProvisioning [Text]
dpCertChallengeDiscoveredTxt
= lens _dpCertChallengeDiscoveredTxt
(\ s a -> s{_dpCertChallengeDiscoveredTxt = a})
. _Default
. _Coerce
instance FromJSON DomainProvisioning where
parseJSON
= withObject "DomainProvisioning"
(\ o ->
DomainProvisioning' <$>
(o .:? "expectedIps" .!= mempty) <*>
(o .:? "certChallengeDns")
<*> (o .:? "dnsFetchTime")
<*> (o .:? "certStatus")
<*> (o .:? "dnsStatus")
<*> (o .:? "discoveredIps" .!= mempty)
<*> (o .:? "certChallengeHttp")
<*> (o .:? "certChallengeDiscoveredTxt" .!= mempty))
instance ToJSON DomainProvisioning where
toJSON DomainProvisioning'{..}
= object
(catMaybes
[("expectedIps" .=) <$> _dpExpectedIPs,
("certChallengeDns" .=) <$> _dpCertChallengeDNS,
("dnsFetchTime" .=) <$> _dpDNSFetchTime,
("certStatus" .=) <$> _dpCertStatus,
("dnsStatus" .=) <$> _dpDNSStatus,
("discoveredIps" .=) <$> _dpDiscoveredIPs,
("certChallengeHttp" .=) <$> _dpCertChallengeHTTP,
("certChallengeDiscoveredTxt" .=) <$>
_dpCertChallengeDiscoveredTxt])
data Release = Release'
{ _rReleaseTime :: !(Maybe DateTime')
, _rReleaseUser :: !(Maybe ActingUser)
, _rName :: !(Maybe Text)
, _rVersion :: !(Maybe Version)
, _rType :: !(Maybe ReleaseType)
, _rMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
release
:: Release
release =
Release'
{ _rReleaseTime = Nothing
, _rReleaseUser = Nothing
, _rName = Nothing
, _rVersion = Nothing
, _rType = Nothing
, _rMessage = Nothing
}
rReleaseTime :: Lens' Release (Maybe UTCTime)
rReleaseTime
= lens _rReleaseTime (\ s a -> s{_rReleaseTime = a})
. mapping _DateTime
rReleaseUser :: Lens' Release (Maybe ActingUser)
rReleaseUser
= lens _rReleaseUser (\ s a -> s{_rReleaseUser = a})
rName :: Lens' Release (Maybe Text)
rName = lens _rName (\ s a -> s{_rName = a})
rVersion :: Lens' Release (Maybe Version)
rVersion = lens _rVersion (\ s a -> s{_rVersion = a})
rType :: Lens' Release (Maybe ReleaseType)
rType = lens _rType (\ s a -> s{_rType = a})
rMessage :: Lens' Release (Maybe Text)
rMessage = lens _rMessage (\ s a -> s{_rMessage = a})
instance FromJSON Release where
parseJSON
= withObject "Release"
(\ o ->
Release' <$>
(o .:? "releaseTime") <*> (o .:? "releaseUser") <*>
(o .:? "name")
<*> (o .:? "version")
<*> (o .:? "type")
<*> (o .:? "message"))
instance ToJSON Release where
toJSON Release'{..}
= object
(catMaybes
[("releaseTime" .=) <$> _rReleaseTime,
("releaseUser" .=) <$> _rReleaseUser,
("name" .=) <$> _rName, ("version" .=) <$> _rVersion,
("type" .=) <$> _rType,
("message" .=) <$> _rMessage])
data VersionFile = VersionFile'
{ _vfStatus :: !(Maybe VersionFileStatus)
, _vfHash :: !(Maybe Text)
, _vfPath :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
versionFile
:: VersionFile
versionFile =
VersionFile'
{ _vfStatus = Nothing
, _vfHash = Nothing
, _vfPath = Nothing
}
vfStatus :: Lens' VersionFile (Maybe VersionFileStatus)
vfStatus = lens _vfStatus (\ s a -> s{_vfStatus = a})
vfHash :: Lens' VersionFile (Maybe Text)
vfHash = lens _vfHash (\ s a -> s{_vfHash = a})
vfPath :: Lens' VersionFile (Maybe Text)
vfPath = lens _vfPath (\ s a -> s{_vfPath = a})
instance FromJSON VersionFile where
parseJSON
= withObject "VersionFile"
(\ o ->
VersionFile' <$>
(o .:? "status") <*> (o .:? "hash") <*>
(o .:? "path"))
instance ToJSON VersionFile where
toJSON VersionFile'{..}
= object
(catMaybes
[("status" .=) <$> _vfStatus,
("hash" .=) <$> _vfHash, ("path" .=) <$> _vfPath])
data Header = Header'
{ _hHeaders :: !(Maybe HeaderHeaders)
, _hGlob :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
header
:: Header
header =
Header'
{ _hHeaders = Nothing
, _hGlob = Nothing
}
hHeaders :: Lens' Header (Maybe HeaderHeaders)
hHeaders = lens _hHeaders (\ s a -> s{_hHeaders = a})
hGlob :: Lens' Header (Maybe Text)
hGlob = lens _hGlob (\ s a -> s{_hGlob = a})
instance FromJSON Header where
parseJSON
= withObject "Header"
(\ o ->
Header' <$> (o .:? "headers") <*> (o .:? "glob"))
instance ToJSON Header where
toJSON Header'{..}
= object
(catMaybes
[("headers" .=) <$> _hHeaders,
("glob" .=) <$> _hGlob])
data ActingUser = ActingUser'
{ _auEmail :: !(Maybe Text)
, _auImageURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
actingUser
:: ActingUser
actingUser =
ActingUser'
{ _auEmail = Nothing
, _auImageURL = Nothing
}
auEmail :: Lens' ActingUser (Maybe Text)
auEmail = lens _auEmail (\ s a -> s{_auEmail = a})
auImageURL :: Lens' ActingUser (Maybe Text)
auImageURL
= lens _auImageURL (\ s a -> s{_auImageURL = a})
instance FromJSON ActingUser where
parseJSON
= withObject "ActingUser"
(\ o ->
ActingUser' <$>
(o .:? "email") <*> (o .:? "imageUrl"))
instance ToJSON ActingUser where
toJSON ActingUser'{..}
= object
(catMaybes
[("email" .=) <$> _auEmail,
("imageUrl" .=) <$> _auImageURL])
data Version = Version'
{ _vStatus :: !(Maybe VersionStatus)
, _vFinalizeTime :: !(Maybe DateTime')
, _vConfig :: !(Maybe ServingConfig)
, _vFileCount :: !(Maybe (Textual Int64))
, _vFinalizeUser :: !(Maybe ActingUser)
, _vVersionBytes :: !(Maybe (Textual Int64))
, _vDeleteTime :: !(Maybe DateTime')
, _vName :: !(Maybe Text)
, _vLabels :: !(Maybe VersionLabels)
, _vCreateUser :: !(Maybe ActingUser)
, _vDeleteUser :: !(Maybe ActingUser)
, _vCreateTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
version
:: Version
version =
Version'
{ _vStatus = Nothing
, _vFinalizeTime = Nothing
, _vConfig = Nothing
, _vFileCount = Nothing
, _vFinalizeUser = Nothing
, _vVersionBytes = Nothing
, _vDeleteTime = Nothing
, _vName = Nothing
, _vLabels = Nothing
, _vCreateUser = Nothing
, _vDeleteUser = Nothing
, _vCreateTime = Nothing
}
vStatus :: Lens' Version (Maybe VersionStatus)
vStatus = lens _vStatus (\ s a -> s{_vStatus = a})
vFinalizeTime :: Lens' Version (Maybe UTCTime)
vFinalizeTime
= lens _vFinalizeTime
(\ s a -> s{_vFinalizeTime = a})
. mapping _DateTime
vConfig :: Lens' Version (Maybe ServingConfig)
vConfig = lens _vConfig (\ s a -> s{_vConfig = a})
vFileCount :: Lens' Version (Maybe Int64)
vFileCount
= lens _vFileCount (\ s a -> s{_vFileCount = a}) .
mapping _Coerce
vFinalizeUser :: Lens' Version (Maybe ActingUser)
vFinalizeUser
= lens _vFinalizeUser
(\ s a -> s{_vFinalizeUser = a})
vVersionBytes :: Lens' Version (Maybe Int64)
vVersionBytes
= lens _vVersionBytes
(\ s a -> s{_vVersionBytes = a})
. mapping _Coerce
vDeleteTime :: Lens' Version (Maybe UTCTime)
vDeleteTime
= lens _vDeleteTime (\ s a -> s{_vDeleteTime = a}) .
mapping _DateTime
vName :: Lens' Version (Maybe Text)
vName = lens _vName (\ s a -> s{_vName = a})
vLabels :: Lens' Version (Maybe VersionLabels)
vLabels = lens _vLabels (\ s a -> s{_vLabels = a})
vCreateUser :: Lens' Version (Maybe ActingUser)
vCreateUser
= lens _vCreateUser (\ s a -> s{_vCreateUser = a})
vDeleteUser :: Lens' Version (Maybe ActingUser)
vDeleteUser
= lens _vDeleteUser (\ s a -> s{_vDeleteUser = a})
vCreateTime :: Lens' Version (Maybe UTCTime)
vCreateTime
= lens _vCreateTime (\ s a -> s{_vCreateTime = a}) .
mapping _DateTime
instance FromJSON Version where
parseJSON
= withObject "Version"
(\ o ->
Version' <$>
(o .:? "status") <*> (o .:? "finalizeTime") <*>
(o .:? "config")
<*> (o .:? "fileCount")
<*> (o .:? "finalizeUser")
<*> (o .:? "versionBytes")
<*> (o .:? "deleteTime")
<*> (o .:? "name")
<*> (o .:? "labels")
<*> (o .:? "createUser")
<*> (o .:? "deleteUser")
<*> (o .:? "createTime"))
instance ToJSON Version where
toJSON Version'{..}
= object
(catMaybes
[("status" .=) <$> _vStatus,
("finalizeTime" .=) <$> _vFinalizeTime,
("config" .=) <$> _vConfig,
("fileCount" .=) <$> _vFileCount,
("finalizeUser" .=) <$> _vFinalizeUser,
("versionBytes" .=) <$> _vVersionBytes,
("deleteTime" .=) <$> _vDeleteTime,
("name" .=) <$> _vName, ("labels" .=) <$> _vLabels,
("createUser" .=) <$> _vCreateUser,
("deleteUser" .=) <$> _vDeleteUser,
("createTime" .=) <$> _vCreateTime])
data ListDomainsResponse = ListDomainsResponse'
{ _ldrNextPageToken :: !(Maybe Text)
, _ldrDomains :: !(Maybe [Domain])
} deriving (Eq,Show,Data,Typeable,Generic)
listDomainsResponse
:: ListDomainsResponse
listDomainsResponse =
ListDomainsResponse'
{ _ldrNextPageToken = Nothing
, _ldrDomains = Nothing
}
ldrNextPageToken :: Lens' ListDomainsResponse (Maybe Text)
ldrNextPageToken
= lens _ldrNextPageToken
(\ s a -> s{_ldrNextPageToken = a})
ldrDomains :: Lens' ListDomainsResponse [Domain]
ldrDomains
= lens _ldrDomains (\ s a -> s{_ldrDomains = a}) .
_Default
. _Coerce
instance FromJSON ListDomainsResponse where
parseJSON
= withObject "ListDomainsResponse"
(\ o ->
ListDomainsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "domains" .!= mempty))
instance ToJSON ListDomainsResponse where
toJSON ListDomainsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ldrNextPageToken,
("domains" .=) <$> _ldrDomains])
data Redirect = Redirect'
{ _rLocation :: !(Maybe Text)
, _rGlob :: !(Maybe Text)
, _rStatusCode :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
redirect
:: Redirect
redirect =
Redirect'
{ _rLocation = Nothing
, _rGlob = Nothing
, _rStatusCode = Nothing
}
rLocation :: Lens' Redirect (Maybe Text)
rLocation
= lens _rLocation (\ s a -> s{_rLocation = a})
rGlob :: Lens' Redirect (Maybe Text)
rGlob = lens _rGlob (\ s a -> s{_rGlob = a})
rStatusCode :: Lens' Redirect (Maybe Int32)
rStatusCode
= lens _rStatusCode (\ s a -> s{_rStatusCode = a}) .
mapping _Coerce
instance FromJSON Redirect where
parseJSON
= withObject "Redirect"
(\ o ->
Redirect' <$>
(o .:? "location") <*> (o .:? "glob") <*>
(o .:? "statusCode"))
instance ToJSON Redirect where
toJSON Redirect'{..}
= object
(catMaybes
[("location" .=) <$> _rLocation,
("glob" .=) <$> _rGlob,
("statusCode" .=) <$> _rStatusCode])
data DomainRedirect = DomainRedirect'
{ _drDomainName :: !(Maybe Text)
, _drType :: !(Maybe DomainRedirectType)
} deriving (Eq,Show,Data,Typeable,Generic)
domainRedirect
:: DomainRedirect
domainRedirect =
DomainRedirect'
{ _drDomainName = Nothing
, _drType = Nothing
}
drDomainName :: Lens' DomainRedirect (Maybe Text)
drDomainName
= lens _drDomainName (\ s a -> s{_drDomainName = a})
drType :: Lens' DomainRedirect (Maybe DomainRedirectType)
drType = lens _drType (\ s a -> s{_drType = a})
instance FromJSON DomainRedirect where
parseJSON
= withObject "DomainRedirect"
(\ o ->
DomainRedirect' <$>
(o .:? "domainName") <*> (o .:? "type"))
instance ToJSON DomainRedirect where
toJSON DomainRedirect'{..}
= object
(catMaybes
[("domainName" .=) <$> _drDomainName,
("type" .=) <$> _drType])
data Rewrite = Rewrite'
{ _rewFunction :: !(Maybe Text)
, _rewPath :: !(Maybe Text)
, _rewGlob :: !(Maybe Text)
, _rewDynamicLinks :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
rewrite
:: Rewrite
rewrite =
Rewrite'
{ _rewFunction = Nothing
, _rewPath = Nothing
, _rewGlob = Nothing
, _rewDynamicLinks = Nothing
}
rewFunction :: Lens' Rewrite (Maybe Text)
rewFunction
= lens _rewFunction (\ s a -> s{_rewFunction = a})
rewPath :: Lens' Rewrite (Maybe Text)
rewPath = lens _rewPath (\ s a -> s{_rewPath = a})
rewGlob :: Lens' Rewrite (Maybe Text)
rewGlob = lens _rewGlob (\ s a -> s{_rewGlob = a})
rewDynamicLinks :: Lens' Rewrite (Maybe Bool)
rewDynamicLinks
= lens _rewDynamicLinks
(\ s a -> s{_rewDynamicLinks = a})
instance FromJSON Rewrite where
parseJSON
= withObject "Rewrite"
(\ o ->
Rewrite' <$>
(o .:? "function") <*> (o .:? "path") <*>
(o .:? "glob")
<*> (o .:? "dynamicLinks"))
instance ToJSON Rewrite where
toJSON Rewrite'{..}
= object
(catMaybes
[("function" .=) <$> _rewFunction,
("path" .=) <$> _rewPath, ("glob" .=) <$> _rewGlob,
("dynamicLinks" .=) <$> _rewDynamicLinks])
newtype PopulateVersionFilesRequestFiles = PopulateVersionFilesRequestFiles'
{ _pvfrfAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
populateVersionFilesRequestFiles
:: HashMap Text Text
-> PopulateVersionFilesRequestFiles
populateVersionFilesRequestFiles pPvfrfAddtional_ =
PopulateVersionFilesRequestFiles'
{ _pvfrfAddtional = _Coerce # pPvfrfAddtional_
}
pvfrfAddtional :: Lens' PopulateVersionFilesRequestFiles (HashMap Text Text)
pvfrfAddtional
= lens _pvfrfAddtional
(\ s a -> s{_pvfrfAddtional = a})
. _Coerce
instance FromJSON PopulateVersionFilesRequestFiles
where
parseJSON
= withObject "PopulateVersionFilesRequestFiles"
(\ o ->
PopulateVersionFilesRequestFiles' <$>
(parseJSONObject o))
instance ToJSON PopulateVersionFilesRequestFiles
where
toJSON = toJSON . _pvfrfAddtional
newtype HeaderHeaders = HeaderHeaders'
{ _hhAddtional :: HashMap Text Text
} deriving (Eq,Show,Data,Typeable,Generic)
headerHeaders
:: HashMap Text Text
-> HeaderHeaders
headerHeaders pHhAddtional_ =
HeaderHeaders'
{ _hhAddtional = _Coerce # pHhAddtional_
}
hhAddtional :: Lens' HeaderHeaders (HashMap Text Text)
hhAddtional
= lens _hhAddtional (\ s a -> s{_hhAddtional = a}) .
_Coerce
instance FromJSON HeaderHeaders where
parseJSON
= withObject "HeaderHeaders"
(\ o -> HeaderHeaders' <$> (parseJSONObject o))
instance ToJSON HeaderHeaders where
toJSON = toJSON . _hhAddtional
data CertHTTPChallenge = CertHTTPChallenge'
{ _chttpcPath :: !(Maybe Text)
, _chttpcToken :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
certHTTPChallenge
:: CertHTTPChallenge
certHTTPChallenge =
CertHTTPChallenge'
{ _chttpcPath = Nothing
, _chttpcToken = Nothing
}
chttpcPath :: Lens' CertHTTPChallenge (Maybe Text)
chttpcPath
= lens _chttpcPath (\ s a -> s{_chttpcPath = a})
chttpcToken :: Lens' CertHTTPChallenge (Maybe Text)
chttpcToken
= lens _chttpcToken (\ s a -> s{_chttpcToken = a})
instance FromJSON CertHTTPChallenge where
parseJSON
= withObject "CertHTTPChallenge"
(\ o ->
CertHTTPChallenge' <$>
(o .:? "path") <*> (o .:? "token"))
instance ToJSON CertHTTPChallenge where
toJSON CertHTTPChallenge'{..}
= object
(catMaybes
[("path" .=) <$> _chttpcPath,
("token" .=) <$> _chttpcToken])
data ListVersionFilesResponse = ListVersionFilesResponse'
{ _lvfrNextPageToken :: !(Maybe Text)
, _lvfrFiles :: !(Maybe [VersionFile])
} deriving (Eq,Show,Data,Typeable,Generic)
listVersionFilesResponse
:: ListVersionFilesResponse
listVersionFilesResponse =
ListVersionFilesResponse'
{ _lvfrNextPageToken = Nothing
, _lvfrFiles = Nothing
}
lvfrNextPageToken :: Lens' ListVersionFilesResponse (Maybe Text)
lvfrNextPageToken
= lens _lvfrNextPageToken
(\ s a -> s{_lvfrNextPageToken = a})
lvfrFiles :: Lens' ListVersionFilesResponse [VersionFile]
lvfrFiles
= lens _lvfrFiles (\ s a -> s{_lvfrFiles = a}) .
_Default
. _Coerce
instance FromJSON ListVersionFilesResponse where
parseJSON
= withObject "ListVersionFilesResponse"
(\ o ->
ListVersionFilesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "files" .!= mempty))
instance ToJSON ListVersionFilesResponse where
toJSON ListVersionFilesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lvfrNextPageToken,
("files" .=) <$> _lvfrFiles])
newtype SiteConfig = SiteConfig'
{ _scMaxVersions :: Maybe (Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
siteConfig
:: SiteConfig
siteConfig =
SiteConfig'
{ _scMaxVersions = Nothing
}
scMaxVersions :: Lens' SiteConfig (Maybe Int64)
scMaxVersions
= lens _scMaxVersions
(\ s a -> s{_scMaxVersions = a})
. mapping _Coerce
instance FromJSON SiteConfig where
parseJSON
= withObject "SiteConfig"
(\ o -> SiteConfig' <$> (o .:? "maxVersions"))
instance ToJSON SiteConfig where
toJSON SiteConfig'{..}
= object
(catMaybes [("maxVersions" .=) <$> _scMaxVersions])