gogol-firebasehosting 0.4.0 → 0.5.0

raw patch · 20 files changed

+353/−176 lines, 20 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/FirebaseHosting.hs +10/−3
• gen/Network/Google/FirebaseHosting/Types.hs +11/−4
• gen/Network/Google/FirebaseHosting/Types/Product.hs +226/−119
• gen/Network/Google/FirebaseHosting/Types/Sum.hs +2/−2
• gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Create.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Delete.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Get.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/List.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Update.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/GetConfig.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/Create.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/List.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/UpdateConfig.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Create.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Delete.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Files/List.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Patch.hs +7/−3
• gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/PopulateFiles.hs +7/−3
• gogol-firebasehosting.cabal +5/−5

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -13,9 +13,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- The Firebase Hosting REST API enables programmatic custom deployment for--- releasing versions of your Firebase hosted content and configuration--- files.+-- The Firebase Hosting REST API enables programmatic and customizable+-- deployments to your Firebase-hosted sites. Use this REST API to deploy+-- new or updated hosting configurations and content files. -- -- /See:/ <https://firebase.google.com/docs/hosting/ Firebase Hosting API Reference> module Network.Google.FirebaseHosting@@ -218,6 +218,12 @@     , rGlob     , rStatusCode +    -- ** CloudRunRewrite+    , CloudRunRewrite+    , cloudRunRewrite+    , crrServiceId+    , crrRegion+     -- ** DomainRedirect     , DomainRedirect     , domainRedirect@@ -229,6 +235,7 @@     , rewrite     , rewFunction     , rewPath+    , rewRun     , rewGlob     , rewDynamicLinks 

@@ -165,6 +165,12 @@     , rGlob     , rStatusCode +    -- * CloudRunRewrite+    , CloudRunRewrite+    , cloudRunRewrite+    , crrServiceId+    , crrRegion+     -- * DomainRedirect     , DomainRedirect     , domainRedirect@@ -176,6 +182,7 @@     , rewrite     , rewFunction     , rewPath+    , rewRun     , rewGlob     , rewDynamicLinks @@ -232,16 +239,16 @@  -- | View and administer all your Firebase data and settings firebaseScope :: Proxy '["https://www.googleapis.com/auth/firebase"]-firebaseScope = Proxy;+firebaseScope = Proxy  -- | View your data across Google Cloud Platform services cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"]-cloudPlatformReadOnlyScope = Proxy;+cloudPlatformReadOnlyScope = Proxy  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy  -- | View all your Firebase data and settings firebaseReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/firebase.readonly"]-firebaseReadOnlyScope = Proxy;+firebaseReadOnlyScope = Proxy

@@ -23,10 +23,13 @@ -- | The labels used for extra metadata and\/or filtering. -- -- /See:/ 'versionLabels' smart constructor.-newtype VersionLabels = VersionLabels'+newtype VersionLabels =+  VersionLabels'     { _vlAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VersionLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -36,10 +39,9 @@     :: HashMap Text Text -- ^ 'vlAddtional'     -> VersionLabels versionLabels pVlAddtional_ =-    VersionLabels'-    { _vlAddtional = _Coerce # pVlAddtional_-    }+  VersionLabels' {_vlAddtional = _Coerce # pVlAddtional_} + vlAddtional :: Lens' VersionLabels (HashMap Text Text) vlAddtional   = lens _vlAddtional (\ s a -> s{_vlAddtional = a}) .@@ -55,11 +57,14 @@  -- -- /See:/ 'populateVersionFilesResponse' smart constructor.-data PopulateVersionFilesResponse = PopulateVersionFilesResponse'+data PopulateVersionFilesResponse =+  PopulateVersionFilesResponse'     { _pvfrUploadURL            :: !(Maybe Text)     , _pvfrUploadRequiredHashes :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PopulateVersionFilesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +75,10 @@ populateVersionFilesResponse     :: PopulateVersionFilesResponse populateVersionFilesResponse =-    PopulateVersionFilesResponse'-    { _pvfrUploadURL = Nothing-    , _pvfrUploadRequiredHashes = Nothing-    }+  PopulateVersionFilesResponse'+    {_pvfrUploadURL = Nothing, _pvfrUploadRequiredHashes = Nothing} + -- | The URL to which the files should be uploaded, in the format: -- \"https:\/\/upload-firebasehosting.googleapis.com\/upload\/sites\/site-name\/versions\/versionID\/files\". -- Perform a multipart \`POST\` of the Gzipped file contents to the URL@@ -112,11 +116,14 @@ -- | Represents a DNS certificate challenge. -- -- /See:/ 'certDNSChallenge' smart constructor.-data CertDNSChallenge = CertDNSChallenge'+data CertDNSChallenge =+  CertDNSChallenge'     { _cdcToken      :: !(Maybe Text)     , _cdcDomainName :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CertDNSChallenge' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +134,9 @@ certDNSChallenge     :: CertDNSChallenge certDNSChallenge =-    CertDNSChallenge'-    { _cdcToken = Nothing-    , _cdcDomainName = Nothing-    }+  CertDNSChallenge' {_cdcToken = Nothing, _cdcDomainName = Nothing} + -- | The value that must be present as a TXT record on the domain name to -- satisfy the challenge. cdcToken :: Lens' CertDNSChallenge (Maybe Text)@@ -165,15 +170,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty'-    deriving (Eq,Show,Data,Typeable,Generic)+  Empty'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty     :: Empty empty = Empty' + instance FromJSON Empty where         parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -182,10 +189,13 @@  -- -- /See:/ 'populateVersionFilesRequest' smart constructor.-newtype PopulateVersionFilesRequest = PopulateVersionFilesRequest'+newtype PopulateVersionFilesRequest =+  PopulateVersionFilesRequest'     { _pvfrFiles :: Maybe PopulateVersionFilesRequestFiles-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PopulateVersionFilesRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -194,10 +204,9 @@ populateVersionFilesRequest     :: PopulateVersionFilesRequest populateVersionFilesRequest =-    PopulateVersionFilesRequest'-    { _pvfrFiles = Nothing-    }+  PopulateVersionFilesRequest' {_pvfrFiles = Nothing} + -- | A set of file paths to the hashes corresponding to assets that should be -- added to the version. Note that a file path to an empty hash will remove -- the path from the version. Calculate a hash by Gzipping the file then@@ -222,15 +231,18 @@ -- order](\/docs\/hosting\/full-config#hosting_priority_order). -- -- /See:/ 'servingConfig' smart constructor.-data ServingConfig = ServingConfig'+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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServingConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -249,7 +261,7 @@ servingConfig     :: ServingConfig servingConfig =-    ServingConfig'+  ServingConfig'     { _scCleanURLs = Nothing     , _scAppAssociation = Nothing     , _scRewrites = Nothing@@ -258,6 +270,7 @@     , _scTrailingSlashBehavior = Nothing     } + -- | Defines whether to drop the file extension from uploaded files. scCleanURLs :: Lens' ServingConfig (Maybe Bool) scCleanURLs@@ -325,15 +338,18 @@ -- | The intended behavior and status information of a domain. -- -- /See:/ 'domain' smart constructor.-data Domain = Domain'+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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Domain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -352,7 +368,7 @@ domain     :: Domain domain =-    Domain'+  Domain'     { _dStatus = Nothing     , _dProvisioning = Nothing     , _dUpdateTime = Nothing@@ -361,6 +377,7 @@     , _dSite = Nothing     } + -- | Output only. Additional status of the domain association. dStatus :: Lens' Domain (Maybe DomainStatus) dStatus = lens _dStatus (\ s a -> s{_dStatus = a})@@ -417,11 +434,14 @@  -- -- /See:/ 'listReleasesResponse' smart constructor.-data ListReleasesResponse = ListReleasesResponse'+data ListReleasesResponse =+  ListReleasesResponse'     { _lrrNextPageToken :: !(Maybe Text)     , _lrrReleases      :: !(Maybe [Release])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListReleasesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -432,11 +452,9 @@ listReleasesResponse     :: ListReleasesResponse listReleasesResponse =-    ListReleasesResponse'-    { _lrrNextPageToken = Nothing-    , _lrrReleases = Nothing-    }+  ListReleasesResponse' {_lrrNextPageToken = Nothing, _lrrReleases = Nothing} + -- | If there are additional releases remaining beyond the ones in this -- response, then supply this token in the next -- [\`list\`](..\/sites.versions.files\/list) call to continue with the@@ -472,7 +490,8 @@ -- | The current certificate provisioning status information for a domain. -- -- /See:/ 'domainProvisioning' smart constructor.-data DomainProvisioning = DomainProvisioning'+data DomainProvisioning =+  DomainProvisioning'     { _dpExpectedIPs                :: !(Maybe [Text])     , _dpCertChallengeDNS           :: !(Maybe CertDNSChallenge)     , _dpDNSFetchTime               :: !(Maybe DateTime')@@ -481,8 +500,10 @@     , _dpDiscoveredIPs              :: !(Maybe [Text])     , _dpCertChallengeHTTP          :: !(Maybe CertHTTPChallenge)     , _dpCertChallengeDiscoveredTxt :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainProvisioning' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -505,7 +526,7 @@ domainProvisioning     :: DomainProvisioning domainProvisioning =-    DomainProvisioning'+  DomainProvisioning'     { _dpExpectedIPs = Nothing     , _dpCertChallengeDNS = Nothing     , _dpDNSFetchTime = Nothing@@ -516,6 +537,7 @@     , _dpCertChallengeDiscoveredTxt = Nothing     } + -- | The list of IPs to which the domain is expected to resolve. dpExpectedIPs :: Lens' DomainProvisioning [Text] dpExpectedIPs@@ -603,15 +625,18 @@ -- files](sites.versions) that is set to be public at a particular time. -- -- /See:/ 'release' smart constructor.-data Release = Release'+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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Release' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -630,7 +655,7 @@ release     :: Release release =-    Release'+  Release'     { _rReleaseTime = Nothing     , _rReleaseUser = Nothing     , _rName = Nothing@@ -639,6 +664,7 @@     , _rMessage = Nothing     } + -- | Output only. The time at which the version is set to be public. rReleaseTime :: Lens' Release (Maybe UTCTime) rReleaseTime@@ -696,12 +722,15 @@ -- | A static content file that is part of a version. -- -- /See:/ 'versionFile' smart constructor.-data VersionFile = VersionFile'+data VersionFile =+  VersionFile'     { _vfStatus :: !(Maybe VersionFileStatus)     , _vfHash   :: !(Maybe Text)     , _vfPath   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'VersionFile' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -714,12 +743,9 @@ versionFile     :: VersionFile versionFile =-    VersionFile'-    { _vfStatus = Nothing-    , _vfHash = Nothing-    , _vfPath = Nothing-    }+  VersionFile' {_vfStatus = Nothing, _vfHash = Nothing, _vfPath = Nothing} + -- | Output only. The current status of a particular file in the specified -- version. -- The value will be either \`pending upload\` or \`uploaded\`.@@ -754,11 +780,14 @@ -- pattern. -- -- /See:/ 'header' smart constructor.-data Header = Header'+data Header =+  Header'     { _hHeaders :: !(Maybe HeaderHeaders)     , _hGlob    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Header' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -768,12 +797,9 @@ -- * 'hGlob' header     :: Header-header =-    Header'-    { _hHeaders = Nothing-    , _hGlob = Nothing-    }+header = Header' {_hHeaders = Nothing, _hGlob = Nothing} + -- | Required. The additional headers to add to the response. hHeaders :: Lens' Header (Maybe HeaderHeaders) hHeaders = lens _hHeaders (\ s a -> s{_hHeaders = a})@@ -801,11 +827,14 @@ -- creating a release or finalizing a version. -- -- /See:/ 'actingUser' smart constructor.-data ActingUser = ActingUser'+data ActingUser =+  ActingUser'     { _auEmail    :: !(Maybe Text)     , _auImageURL :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ActingUser' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -815,12 +844,9 @@ -- * 'auImageURL' actingUser     :: ActingUser-actingUser =-    ActingUser'-    { _auEmail = Nothing-    , _auImageURL = Nothing-    }+actingUser = ActingUser' {_auEmail = Nothing, _auImageURL = Nothing} + -- | The email address of the user when the user performed the action. auEmail :: Lens' ActingUser (Maybe Text) auEmail = lens _auEmail (\ s a -> s{_auEmail = a})@@ -849,7 +875,8 @@ -- files](sites.versions.files) that determine how a site is displayed. -- -- /See:/ 'version' smart constructor.-data Version = Version'+data Version =+  Version'     { _vStatus       :: !(Maybe VersionStatus)     , _vFinalizeTime :: !(Maybe DateTime')     , _vConfig       :: !(Maybe ServingConfig)@@ -862,8 +889,10 @@     , _vCreateUser   :: !(Maybe ActingUser)     , _vDeleteUser   :: !(Maybe ActingUser)     , _vCreateTime   :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Version' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -894,7 +923,7 @@ version     :: Version version =-    Version'+  Version'     { _vStatus = Nothing     , _vFinalizeTime = Nothing     , _vConfig = Nothing@@ -909,6 +938,7 @@     , _vCreateTime = Nothing     } + -- | The deploy status of a version. -- For a successful deploy, call the -- [\`CreateVersion\`](sites.versions\/create) endpoint to make a new@@ -1025,11 +1055,14 @@  -- -- /See:/ 'listDomainsResponse' smart constructor.-data ListDomainsResponse = ListDomainsResponse'+data ListDomainsResponse =+  ListDomainsResponse'     { _ldrNextPageToken :: !(Maybe Text)     , _ldrDomains       :: !(Maybe [Domain])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomainsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1040,11 +1073,9 @@ listDomainsResponse     :: ListDomainsResponse listDomainsResponse =-    ListDomainsResponse'-    { _ldrNextPageToken = Nothing-    , _ldrDomains = Nothing-    }+  ListDomainsResponse' {_ldrNextPageToken = Nothing, _ldrDomains = Nothing} + -- | The pagination token, if more results exist. ldrNextPageToken :: Lens' ListDomainsResponse (Maybe Text) ldrNextPageToken@@ -1078,12 +1109,15 @@ -- request URL path. -- -- /See:/ 'redirect' smart constructor.-data Redirect = Redirect'+data Redirect =+  Redirect'     { _rLocation   :: !(Maybe Text)     , _rGlob       :: !(Maybe Text)     , _rStatusCode :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Redirect' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1096,12 +1130,9 @@ redirect     :: Redirect redirect =-    Redirect'-    { _rLocation = Nothing-    , _rGlob = Nothing-    , _rStatusCode = Nothing-    }+  Redirect' {_rLocation = Nothing, _rGlob = Nothing, _rStatusCode = Nothing} + -- | Required. The value to put in the HTTP location header of the response. -- The location can contain capture group values from the pattern using a -- \`:\` prefix to identify the segment and an optional \`*\` to capture@@ -1140,16 +1171,73 @@                   ("glob" .=) <$> _rGlob,                   ("statusCode" .=) <$> _rStatusCode]) +-- | A configured rewrite that directs requests to a Cloud Run service. If+-- the Cloud Run service does not exist when setting or updating your+-- Firebase Hosting configuration, then the request fails. Any errors from+-- the Cloud Run service are passed to the end user (for example, if you+-- delete a service, any requests directed to that service receive a+-- \`404\` error).+--+-- /See:/ 'cloudRunRewrite' smart constructor.+data CloudRunRewrite =+  CloudRunRewrite'+    { _crrServiceId :: !(Maybe Text)+    , _crrRegion    :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CloudRunRewrite' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crrServiceId'+--+-- * 'crrRegion'+cloudRunRewrite+    :: CloudRunRewrite+cloudRunRewrite =+  CloudRunRewrite' {_crrServiceId = Nothing, _crrRegion = Nothing}+++-- | Required. User-defined ID of the Cloud Run service.+crrServiceId :: Lens' CloudRunRewrite (Maybe Text)+crrServiceId+  = lens _crrServiceId (\ s a -> s{_crrServiceId = a})++-- | Optional. User-provided region where the Cloud Run service is hosted.+-- Defaults to \`us-central1\` if not supplied.+crrRegion :: Lens' CloudRunRewrite (Maybe Text)+crrRegion+  = lens _crrRegion (\ s a -> s{_crrRegion = a})++instance FromJSON CloudRunRewrite where+        parseJSON+          = withObject "CloudRunRewrite"+              (\ o ->+                 CloudRunRewrite' <$>+                   (o .:? "serviceId") <*> (o .:? "region"))++instance ToJSON CloudRunRewrite where+        toJSON CloudRunRewrite'{..}+          = object+              (catMaybes+                 [("serviceId" .=) <$> _crrServiceId,+                  ("region" .=) <$> _crrRegion])+ -- | Defines the behavior of a domain-level redirect. Domain redirects -- preserve the path of the redirect but replace the requested domain with -- the one specified in the redirect configuration. -- -- /See:/ 'domainRedirect' smart constructor.-data DomainRedirect = DomainRedirect'+data DomainRedirect =+  DomainRedirect'     { _drDomainName :: !(Maybe Text)     , _drType       :: !(Maybe DomainRedirectType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainRedirect' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1159,12 +1247,9 @@ -- * 'drType' domainRedirect     :: DomainRedirect-domainRedirect =-    DomainRedirect'-    { _drDomainName = Nothing-    , _drType = Nothing-    }+domainRedirect = DomainRedirect' {_drDomainName = Nothing, _drType = Nothing} + -- | Required. The domain name to redirect to. drDomainName :: Lens' DomainRedirect (Maybe Text) drDomainName@@ -1194,13 +1279,17 @@ -- in the configuration. -- -- /See:/ 'rewrite' smart constructor.-data Rewrite = Rewrite'+data Rewrite =+  Rewrite'     { _rewFunction     :: !(Maybe Text)     , _rewPath         :: !(Maybe Text)+    , _rewRun          :: !(Maybe CloudRunRewrite)     , _rewGlob         :: !(Maybe Text)     , _rewDynamicLinks :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Rewrite' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1209,19 +1298,23 @@ -- -- * 'rewPath' --+-- * 'rewRun'+-- -- * 'rewGlob' -- -- * 'rewDynamicLinks' rewrite     :: Rewrite rewrite =-    Rewrite'+  Rewrite'     { _rewFunction = Nothing     , _rewPath = Nothing+    , _rewRun = Nothing     , _rewGlob = Nothing     , _rewDynamicLinks = Nothing     } + -- | The function to proxy requests to. Must match the exported function name -- exactly. rewFunction :: Lens' Rewrite (Maybe Text)@@ -1232,6 +1325,10 @@ rewPath :: Lens' Rewrite (Maybe Text) rewPath = lens _rewPath (\ s a -> s{_rewPath = a}) +-- | The request will be forwarded to Cloud Run.+rewRun :: Lens' Rewrite (Maybe CloudRunRewrite)+rewRun = lens _rewRun (\ s a -> s{_rewRun = a})+ -- | Required. The user-supplied [glob -- pattern](\/docs\/hosting\/full-config#glob_pattern_matching) to match -- against the request URL path.@@ -1250,7 +1347,8 @@               (\ o ->                  Rewrite' <$>                    (o .:? "function") <*> (o .:? "path") <*>-                     (o .:? "glob")+                     (o .:? "run")+                     <*> (o .:? "glob")                      <*> (o .:? "dynamicLinks"))  instance ToJSON Rewrite where@@ -1258,7 +1356,8 @@           = object               (catMaybes                  [("function" .=) <$> _rewFunction,-                  ("path" .=) <$> _rewPath, ("glob" .=) <$> _rewGlob,+                  ("path" .=) <$> _rewPath, ("run" .=) <$> _rewRun,+                  ("glob" .=) <$> _rewGlob,                   ("dynamicLinks" .=) <$> _rewDynamicLinks])  -- | A set of file paths to the hashes corresponding to assets that should be@@ -1267,10 +1366,13 @@ -- taking the SHA256 hash of the newly compressed file. -- -- /See:/ 'populateVersionFilesRequestFiles' smart constructor.-newtype PopulateVersionFilesRequestFiles = PopulateVersionFilesRequestFiles'+newtype PopulateVersionFilesRequestFiles =+  PopulateVersionFilesRequestFiles'     { _pvfrfAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PopulateVersionFilesRequestFiles' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1280,10 +1382,10 @@     :: HashMap Text Text -- ^ 'pvfrfAddtional'     -> PopulateVersionFilesRequestFiles populateVersionFilesRequestFiles pPvfrfAddtional_ =-    PopulateVersionFilesRequestFiles'-    { _pvfrfAddtional = _Coerce # pPvfrfAddtional_-    }+  PopulateVersionFilesRequestFiles'+    {_pvfrfAddtional = _Coerce # pPvfrfAddtional_} + pvfrfAddtional :: Lens' PopulateVersionFilesRequestFiles (HashMap Text Text) pvfrfAddtional   = lens _pvfrfAddtional@@ -1305,10 +1407,13 @@ -- | Required. The additional headers to add to the response. -- -- /See:/ 'headerHeaders' smart constructor.-newtype HeaderHeaders = HeaderHeaders'+newtype HeaderHeaders =+  HeaderHeaders'     { _hhAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'HeaderHeaders' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1318,10 +1423,9 @@     :: HashMap Text Text -- ^ 'hhAddtional'     -> HeaderHeaders headerHeaders pHhAddtional_ =-    HeaderHeaders'-    { _hhAddtional = _Coerce # pHhAddtional_-    }+  HeaderHeaders' {_hhAddtional = _Coerce # pHhAddtional_} + hhAddtional :: Lens' HeaderHeaders (HashMap Text Text) hhAddtional   = lens _hhAddtional (\ s a -> s{_hhAddtional = a}) .@@ -1338,11 +1442,14 @@ -- | Represents an HTTP certificate challenge. -- -- /See:/ 'certHTTPChallenge' smart constructor.-data CertHTTPChallenge = CertHTTPChallenge'+data CertHTTPChallenge =+  CertHTTPChallenge'     { _chttpcPath  :: !(Maybe Text)     , _chttpcToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CertHTTPChallenge' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1353,11 +1460,9 @@ certHTTPChallenge     :: CertHTTPChallenge certHTTPChallenge =-    CertHTTPChallenge'-    { _chttpcPath = Nothing-    , _chttpcToken = Nothing-    }+  CertHTTPChallenge' {_chttpcPath = Nothing, _chttpcToken = Nothing} + -- | The URL path on which to serve the specified token to satisfy the -- certificate challenge. chttpcPath :: Lens' CertHTTPChallenge (Maybe Text)@@ -1386,11 +1491,14 @@  -- -- /See:/ 'listVersionFilesResponse' smart constructor.-data ListVersionFilesResponse = ListVersionFilesResponse'+data ListVersionFilesResponse =+  ListVersionFilesResponse'     { _lvfrNextPageToken :: !(Maybe Text)     , _lvfrFiles         :: !(Maybe [VersionFile])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVersionFilesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1401,11 +1509,9 @@ listVersionFilesResponse     :: ListVersionFilesResponse listVersionFilesResponse =-    ListVersionFilesResponse'-    { _lvfrNextPageToken = Nothing-    , _lvfrFiles = Nothing-    }+  ListVersionFilesResponse' {_lvfrNextPageToken = Nothing, _lvfrFiles = Nothing} + -- | The pagination token, if more results exist. lvfrNextPageToken :: Lens' ListVersionFilesResponse (Maybe Text) lvfrNextPageToken@@ -1438,10 +1544,13 @@ -- controls Firebase Hosting serving behavior -- -- /See:/ 'siteConfig' smart constructor.-newtype SiteConfig = SiteConfig'+newtype SiteConfig =+  SiteConfig'     { _scMaxVersions :: Maybe (Textual Int64)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SiteConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1449,10 +1558,8 @@ -- * 'scMaxVersions' siteConfig     :: SiteConfig-siteConfig =-    SiteConfig'-    { _scMaxVersions = Nothing-    }+siteConfig = SiteConfig' {_scMaxVersions = Nothing}+  -- | The number of FINALIZED versions that will be held for a site before -- automatic deletion. When a new version is deployed, content for versions

@@ -210,8 +210,8 @@       -- automatically deleted.     | Expired       -- ^ @EXPIRED@-      -- The version has fallen out of the site-configured retention window and-      -- its associated files in GCS have been\/been scheduled for deletion.+      -- The version is outside the site-configured limit for the number of+      -- retained versions, so the version\'s content is scheduled for deletion.       deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable VersionStatus

@@ -62,7 +62,8 @@ -- | Creates a domain mapping on the specified site. -- -- /See:/ 'sitesDomainsCreate' smart constructor.-data SitesDomainsCreate = SitesDomainsCreate'+data SitesDomainsCreate =+  SitesDomainsCreate'     { _sdcParent         :: !Text     , _sdcXgafv          :: !(Maybe Xgafv)     , _sdcUploadProtocol :: !(Maybe Text)@@ -70,8 +71,10 @@     , _sdcUploadType     :: !(Maybe Text)     , _sdcPayload        :: !Domain     , _sdcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesDomainsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,7 +97,7 @@     -> Domain -- ^ 'sdcPayload'     -> SitesDomainsCreate sitesDomainsCreate pSdcParent_ pSdcPayload_ =-    SitesDomainsCreate'+  SitesDomainsCreate'     { _sdcParent = pSdcParent_     , _sdcXgafv = Nothing     , _sdcUploadProtocol = Nothing@@ -103,6 +106,7 @@     , _sdcPayload = pSdcPayload_     , _sdcCallback = Nothing     }+  -- | Required. The parent to create the domain association for, in the -- format: 'sites\/site-name'

@@ -59,15 +59,18 @@ -- | Deletes the existing domain mapping on the specified site. -- -- /See:/ 'sitesDomainsDelete' smart constructor.-data SitesDomainsDelete = SitesDomainsDelete'+data SitesDomainsDelete =+  SitesDomainsDelete'     { _sddXgafv          :: !(Maybe Xgafv)     , _sddUploadProtocol :: !(Maybe Text)     , _sddAccessToken    :: !(Maybe Text)     , _sddUploadType     :: !(Maybe Text)     , _sddName           :: !Text     , _sddCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesDomainsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'sddName'     -> SitesDomainsDelete sitesDomainsDelete pSddName_ =-    SitesDomainsDelete'+  SitesDomainsDelete'     { _sddXgafv = Nothing     , _sddUploadProtocol = Nothing     , _sddAccessToken = Nothing@@ -95,6 +98,7 @@     , _sddName = pSddName_     , _sddCallback = Nothing     }+  -- | V1 error format. sddXgafv :: Lens' SitesDomainsDelete (Maybe Xgafv)

@@ -59,15 +59,18 @@ -- | Gets a domain mapping on the specified site. -- -- /See:/ 'sitesDomainsGet' smart constructor.-data SitesDomainsGet = SitesDomainsGet'+data SitesDomainsGet =+  SitesDomainsGet'     { _sdgXgafv          :: !(Maybe Xgafv)     , _sdgUploadProtocol :: !(Maybe Text)     , _sdgAccessToken    :: !(Maybe Text)     , _sdgUploadType     :: !(Maybe Text)     , _sdgName           :: !Text     , _sdgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesDomainsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'sdgName'     -> SitesDomainsGet sitesDomainsGet pSdgName_ =-    SitesDomainsGet'+  SitesDomainsGet'     { _sdgXgafv = Nothing     , _sdgUploadProtocol = Nothing     , _sdgAccessToken = Nothing@@ -95,6 +98,7 @@     , _sdgName = pSdgName_     , _sdgCallback = Nothing     }+  -- | V1 error format. sdgXgafv :: Lens' SitesDomainsGet (Maybe Xgafv)

@@ -65,7 +65,8 @@ -- | Lists the domains for the specified site. -- -- /See:/ 'sitesDomainsList' smart constructor.-data SitesDomainsList = SitesDomainsList'+data SitesDomainsList =+  SitesDomainsList'     { _sdlParent         :: !Text     , _sdlXgafv          :: !(Maybe Xgafv)     , _sdlUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _sdlPageToken      :: !(Maybe Text)     , _sdlPageSize       :: !(Maybe (Textual Int32))     , _sdlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesDomainsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     :: Text -- ^ 'sdlParent'     -> SitesDomainsList sitesDomainsList pSdlParent_ =-    SitesDomainsList'+  SitesDomainsList'     { _sdlParent = pSdlParent_     , _sdlXgafv = Nothing     , _sdlUploadProtocol = Nothing@@ -109,6 +112,7 @@     , _sdlPageSize = Nothing     , _sdlCallback = Nothing     }+  -- | Required. The parent for which to list domains, in the format: -- 'sites\/site-name'

@@ -63,7 +63,8 @@ -- not exist. -- -- /See:/ 'sitesDomainsUpdate' smart constructor.-data SitesDomainsUpdate = SitesDomainsUpdate'+data SitesDomainsUpdate =+  SitesDomainsUpdate'     { _sduXgafv          :: !(Maybe Xgafv)     , _sduUploadProtocol :: !(Maybe Text)     , _sduAccessToken    :: !(Maybe Text)@@ -71,8 +72,10 @@     , _sduPayload        :: !Domain     , _sduName           :: !Text     , _sduCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesDomainsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,7 +98,7 @@     -> Text -- ^ 'sduName'     -> SitesDomainsUpdate sitesDomainsUpdate pSduPayload_ pSduName_ =-    SitesDomainsUpdate'+  SitesDomainsUpdate'     { _sduXgafv = Nothing     , _sduUploadProtocol = Nothing     , _sduAccessToken = Nothing@@ -104,6 +107,7 @@     , _sduName = pSduName_     , _sduCallback = Nothing     }+  -- | V1 error format. sduXgafv :: Lens' SitesDomainsUpdate (Maybe Xgafv)

@@ -59,15 +59,18 @@ -- | Gets the Hosting metadata for a specific site. -- -- /See:/ 'sitesGetConfig' smart constructor.-data SitesGetConfig = SitesGetConfig'+data SitesGetConfig =+  SitesGetConfig'     { _sgcXgafv          :: !(Maybe Xgafv)     , _sgcUploadProtocol :: !(Maybe Text)     , _sgcAccessToken    :: !(Maybe Text)     , _sgcUploadType     :: !(Maybe Text)     , _sgcName           :: !Text     , _sgcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesGetConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'sgcName'     -> SitesGetConfig sitesGetConfig pSgcName_ =-    SitesGetConfig'+  SitesGetConfig'     { _sgcXgafv = Nothing     , _sgcUploadProtocol = Nothing     , _sgcAccessToken = Nothing@@ -95,6 +98,7 @@     , _sgcName = pSgcName_     , _sgcCallback = Nothing     }+  -- | V1 error format. sgcXgafv :: Lens' SitesGetConfig (Maybe Xgafv)

@@ -66,7 +66,8 @@ -- actively display on the site. -- -- /See:/ 'sitesReleasesCreate' smart constructor.-data SitesReleasesCreate = SitesReleasesCreate'+data SitesReleasesCreate =+  SitesReleasesCreate'     { _srcParent         :: !Text     , _srcXgafv          :: !(Maybe Xgafv)     , _srcUploadProtocol :: !(Maybe Text)@@ -75,8 +76,10 @@     , _srcUploadType     :: !(Maybe Text)     , _srcPayload        :: !Release     , _srcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesReleasesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     -> Release -- ^ 'srcPayload'     -> SitesReleasesCreate sitesReleasesCreate pSrcParent_ pSrcPayload_ =-    SitesReleasesCreate'+  SitesReleasesCreate'     { _srcParent = pSrcParent_     , _srcXgafv = Nothing     , _srcUploadProtocol = Nothing@@ -111,6 +114,7 @@     , _srcPayload = pSrcPayload_     , _srcCallback = Nothing     }+  -- | The site that the release belongs to, in the format: 'sites\/site-name' srcParent :: Lens' SitesReleasesCreate Text

@@ -65,7 +65,8 @@ -- | Lists the releases that have been created on the specified site. -- -- /See:/ 'sitesReleasesList' smart constructor.-data SitesReleasesList = SitesReleasesList'+data SitesReleasesList =+  SitesReleasesList'     { _srlParent         :: !Text     , _srlXgafv          :: !(Maybe Xgafv)     , _srlUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _srlPageToken      :: !(Maybe Text)     , _srlPageSize       :: !(Maybe (Textual Int32))     , _srlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesReleasesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     :: Text -- ^ 'srlParent'     -> SitesReleasesList sitesReleasesList pSrlParent_ =-    SitesReleasesList'+  SitesReleasesList'     { _srlParent = pSrlParent_     , _srlXgafv = Nothing     , _srlUploadProtocol = Nothing@@ -109,6 +112,7 @@     , _srlPageSize = Nothing     , _srlCallback = Nothing     }+  -- | Required. The parent for which to list files, in the format: -- 'sites\/site-name'

@@ -64,7 +64,8 @@ -- | Sets the Hosting metadata for a specific site. -- -- /See:/ 'sitesUpdateConfig' smart constructor.-data SitesUpdateConfig = SitesUpdateConfig'+data SitesUpdateConfig =+  SitesUpdateConfig'     { _sucXgafv          :: !(Maybe Xgafv)     , _sucUploadProtocol :: !(Maybe Text)     , _sucUpdateMask     :: !(Maybe GFieldMask)@@ -73,8 +74,10 @@     , _sucPayload        :: !SiteConfig     , _sucName           :: !Text     , _sucCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesUpdateConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     -> Text -- ^ 'sucName'     -> SitesUpdateConfig sitesUpdateConfig pSucPayload_ pSucName_ =-    SitesUpdateConfig'+  SitesUpdateConfig'     { _sucXgafv = Nothing     , _sucUploadProtocol = Nothing     , _sucUpdateMask = Nothing@@ -109,6 +112,7 @@     , _sucName = pSucName_     , _sucCallback = Nothing     }+  -- | V1 error format. sucXgafv :: Lens' SitesUpdateConfig (Maybe Xgafv)

@@ -66,7 +66,8 @@ -- | Creates a new version for a site. -- -- /See:/ 'sitesVersionsCreate' smart constructor.-data SitesVersionsCreate = SitesVersionsCreate'+data SitesVersionsCreate =+  SitesVersionsCreate'     { _svcSizeBytes      :: !(Maybe (Textual Int64))     , _svcParent         :: !Text     , _svcXgafv          :: !(Maybe Xgafv)@@ -76,8 +77,10 @@     , _svcUploadType     :: !(Maybe Text)     , _svcPayload        :: !Version     , _svcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesVersionsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     -> Version -- ^ 'svcPayload'     -> SitesVersionsCreate sitesVersionsCreate pSvcParent_ pSvcPayload_ =-    SitesVersionsCreate'+  SitesVersionsCreate'     { _svcSizeBytes = Nothing     , _svcParent = pSvcParent_     , _svcXgafv = Nothing@@ -115,6 +118,7 @@     , _svcPayload = pSvcPayload_     , _svcCallback = Nothing     }+  -- | The self-reported size of the version. This value is used for a -- pre-emptive quota check for legacy version uploads.

@@ -59,15 +59,18 @@ -- | Deletes the specified version. -- -- /See:/ 'sitesVersionsDelete' smart constructor.-data SitesVersionsDelete = SitesVersionsDelete'+data SitesVersionsDelete =+  SitesVersionsDelete'     { _svdXgafv          :: !(Maybe Xgafv)     , _svdUploadProtocol :: !(Maybe Text)     , _svdAccessToken    :: !(Maybe Text)     , _svdUploadType     :: !(Maybe Text)     , _svdName           :: !Text     , _svdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesVersionsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'svdName'     -> SitesVersionsDelete sitesVersionsDelete pSvdName_ =-    SitesVersionsDelete'+  SitesVersionsDelete'     { _svdXgafv = Nothing     , _svdUploadProtocol = Nothing     , _svdAccessToken = Nothing@@ -95,6 +98,7 @@     , _svdName = pSvdName_     , _svdCallback = Nothing     }+  -- | V1 error format. svdXgafv :: Lens' SitesVersionsDelete (Maybe Xgafv)

@@ -67,7 +67,8 @@ -- | Lists the remaining files to be uploaded for the specified version. -- -- /See:/ 'sitesVersionsFilesList' smart constructor.-data SitesVersionsFilesList = SitesVersionsFilesList'+data SitesVersionsFilesList =+  SitesVersionsFilesList'     { _svflParent         :: !Text     , _svflStatus         :: !(Maybe Text)     , _svflXgafv          :: !(Maybe Xgafv)@@ -77,8 +78,10 @@     , _svflPageToken      :: !(Maybe Text)     , _svflPageSize       :: !(Maybe (Textual Int32))     , _svflCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesVersionsFilesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     :: Text -- ^ 'svflParent'     -> SitesVersionsFilesList sitesVersionsFilesList pSvflParent_ =-    SitesVersionsFilesList'+  SitesVersionsFilesList'     { _svflParent = pSvflParent_     , _svflStatus = Nothing     , _svflXgafv = Nothing@@ -115,6 +118,7 @@     , _svflPageSize = Nothing     , _svflCallback = Nothing     }+  -- | Required. The parent to list files for, in the format: -- 'sites\/site-name\/versions\/versionID'

@@ -73,7 +73,8 @@ -- version to \`DELETED\`. -- -- /See:/ 'sitesVersionsPatch' smart constructor.-data SitesVersionsPatch = SitesVersionsPatch'+data SitesVersionsPatch =+  SitesVersionsPatch'     { _svpXgafv          :: !(Maybe Xgafv)     , _svpUploadProtocol :: !(Maybe Text)     , _svpUpdateMask     :: !(Maybe GFieldMask)@@ -82,8 +83,10 @@     , _svpPayload        :: !Version     , _svpName           :: !Text     , _svpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesVersionsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -108,7 +111,7 @@     -> Text -- ^ 'svpName'     -> SitesVersionsPatch sitesVersionsPatch pSvpPayload_ pSvpName_ =-    SitesVersionsPatch'+  SitesVersionsPatch'     { _svpXgafv = Nothing     , _svpUploadProtocol = Nothing     , _svpUpdateMask = Nothing@@ -118,6 +121,7 @@     , _svpName = pSvpName_     , _svpCallback = Nothing     }+  -- | V1 error format. svpXgafv :: Lens' SitesVersionsPatch (Maybe Xgafv)

@@ -62,7 +62,8 @@ -- | Adds content files to a version. -- -- /See:/ 'sitesVersionsPopulateFiles' smart constructor.-data SitesVersionsPopulateFiles = SitesVersionsPopulateFiles'+data SitesVersionsPopulateFiles =+  SitesVersionsPopulateFiles'     { _svpfParent         :: !Text     , _svpfXgafv          :: !(Maybe Xgafv)     , _svpfUploadProtocol :: !(Maybe Text)@@ -70,8 +71,10 @@     , _svpfUploadType     :: !(Maybe Text)     , _svpfPayload        :: !PopulateVersionFilesRequest     , _svpfCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SitesVersionsPopulateFiles' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,7 +97,7 @@     -> PopulateVersionFilesRequest -- ^ 'svpfPayload'     -> SitesVersionsPopulateFiles sitesVersionsPopulateFiles pSvpfParent_ pSvpfPayload_ =-    SitesVersionsPopulateFiles'+  SitesVersionsPopulateFiles'     { _svpfParent = pSvpfParent_     , _svpfXgafv = Nothing     , _svpfUploadProtocol = Nothing@@ -103,6 +106,7 @@     , _svpfPayload = pSvpfPayload_     , _svpfCallback = Nothing     }+  -- | Required. The version to add files to, in the format: -- 'sites\/site-name\/versions\/versionID'

@@ -1,5 +1,5 @@ name:                  gogol-firebasehosting-version:               0.4.0+version:               0.5.0 synopsis:              Google Firebase Hosting SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -14,9 +14,9 @@ extra-source-files:    README.md src/.gitkeep  description:-    The Firebase Hosting REST API enables programmatic custom deployment for-    releasing versions of your Firebase hosted content and configuration-    files.+    The Firebase Hosting REST API enables programmatic and customizable+    deployments to your Firebase-hosted sites. Use this REST API to deploy+    new or updated hosting configurations and content files.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -57,5 +57,5 @@         , Network.Google.FirebaseHosting.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5