diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/FirebaseHosting.hs b/gen/Network/Google/FirebaseHosting.hs --- a/gen/Network/Google/FirebaseHosting.hs +++ b/gen/Network/Google/FirebaseHosting.hs @@ -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:/ 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 diff --git a/gen/Network/Google/FirebaseHosting/Types.hs b/gen/Network/Google/FirebaseHosting/Types.hs --- a/gen/Network/Google/FirebaseHosting/Types.hs +++ b/gen/Network/Google/FirebaseHosting/Types.hs @@ -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 diff --git a/gen/Network/Google/FirebaseHosting/Types/Product.hs b/gen/Network/Google/FirebaseHosting/Types/Product.hs --- a/gen/Network/Google/FirebaseHosting/Types/Product.hs +++ b/gen/Network/Google/FirebaseHosting/Types/Product.hs @@ -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 diff --git a/gen/Network/Google/FirebaseHosting/Types/Sum.hs b/gen/Network/Google/FirebaseHosting/Types/Sum.hs --- a/gen/Network/Google/FirebaseHosting/Types/Sum.hs +++ b/gen/Network/Google/FirebaseHosting/Types/Sum.hs @@ -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 diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Create.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Create.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Create.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Create.hs @@ -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' diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Delete.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Delete.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Delete.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Delete.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Get.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Get.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Get.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Get.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/List.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/List.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/List.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/List.hs @@ -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' diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Update.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Update.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Update.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Domains/Update.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/GetConfig.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/GetConfig.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/GetConfig.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/GetConfig.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/Create.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/Create.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/Create.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/Create.hs @@ -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 diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/List.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/List.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/List.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Releases/List.hs @@ -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' diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/UpdateConfig.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/UpdateConfig.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/UpdateConfig.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/UpdateConfig.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Create.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Create.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Create.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Create.hs @@ -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. diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Delete.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Delete.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Delete.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Delete.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Files/List.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Files/List.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Files/List.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Files/List.hs @@ -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' diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Patch.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Patch.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Patch.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/Patch.hs @@ -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) diff --git a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/PopulateFiles.hs b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/PopulateFiles.hs --- a/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/PopulateFiles.hs +++ b/gen/Network/Google/Resource/FirebaseHosting/Sites/Versions/PopulateFiles.hs @@ -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' diff --git a/gogol-firebasehosting.cabal b/gogol-firebasehosting.cabal --- a/gogol-firebasehosting.cabal +++ b/gogol-firebasehosting.cabal @@ -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