commit ghc-gogol-deploymentmanager for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-gogol-deploymentmanager for openSUSE:Factory checked in at 2017-08-31 20:53:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-deploymentmanager (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-deploymentmanager.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-deploymentmanager" Thu Aug 31 20:53:00 2017 rev:2 rq:513298 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-deploymentmanager/ghc-gogol-deploymentmanager.changes 2017-05-10 20:40:09.402563522 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-deploymentmanager.new/ghc-gogol-deploymentmanager.changes 2017-08-31 20:53:01.524400389 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:41 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-deploymentmanager-0.1.1.tar.gz New: ---- gogol-deploymentmanager-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-deploymentmanager.spec ++++++ --- /var/tmp/diff_new_pack.0RD6yb/_old 2017-08-31 20:53:02.804220569 +0200 +++ /var/tmp/diff_new_pack.0RD6yb/_new 2017-08-31 20:53:02.808220007 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-deploymentmanager Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Deployment Manager SDK License: MPL-2.0 ++++++ gogol-deploymentmanager-0.1.1.tar.gz -> gogol-deploymentmanager-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/README.md new/gogol-deploymentmanager-0.3.0/README.md --- old/gogol-deploymentmanager-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/README.md 2017-07-12 16:51:30.000000000 +0200 @@ -8,7 +8,7 @@ ## Version -`0.1.1` +`0.3.0` ## Description diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types/Product.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types/Product.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types/Product.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -104,12 +104,13 @@ toJSON ConfigFile'{..} = object (catMaybes [("content" .=) <$> _cfContent]) --- | Enables \"data access\" audit logging for a service and specifies a list --- of members that are log-exempted. +-- | Provides the configuration for non-admin_activity logging for a service. +-- Controls exemptions and specific log sub-types. -- -- /See:/ 'auditConfig' smart constructor. data AuditConfig = AuditConfig' { _acService :: !(Maybe Text) + , _acAuditLogConfigs :: !(Maybe [AuditLogConfig]) , _acExemptedMembers :: !(Maybe [Text]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -119,22 +120,33 @@ -- -- * 'acService' -- +-- * 'acAuditLogConfigs' +-- -- * 'acExemptedMembers' auditConfig :: AuditConfig auditConfig = AuditConfig' { _acService = Nothing + , _acAuditLogConfigs = Nothing , _acExemptedMembers = Nothing } --- | Specifies a service that will be enabled for \"data access\" audit --- logging. For example, \`resourcemanager\`, \`storage\`, \`compute\`. --- \`allServices\` is a special value that covers all services. +-- | Specifies a service that will be enabled for audit logging. For example, +-- \`resourcemanager\`, \`storage\`, \`compute\`. \`allServices\` is a +-- special value that covers all services. acService :: Lens' AuditConfig (Maybe Text) acService = lens _acService (\ s a -> s{_acService = a}) +-- | The configuration for each type of logging +acAuditLogConfigs :: Lens' AuditConfig [AuditLogConfig] +acAuditLogConfigs + = lens _acAuditLogConfigs + (\ s a -> s{_acAuditLogConfigs = a}) + . _Default + . _Coerce + -- | Specifies the identities that are exempted from \"data access\" audit -- logging for the \`service\` specified above. Follows the same format of -- Binding.members. @@ -151,13 +163,15 @@ (\ o -> AuditConfig' <$> (o .:? "service") <*> - (o .:? "exemptedMembers" .!= mempty)) + (o .:? "auditLogConfigs" .!= mempty) + <*> (o .:? "exemptedMembers" .!= mempty)) instance ToJSON AuditConfig where toJSON AuditConfig'{..} = object (catMaybes [("service" .=) <$> _acService, + ("auditLogConfigs" .=) <$> _acAuditLogConfigs, ("exemptedMembers" .=) <$> _acExemptedMembers]) -- | A response containing a partial list of operations and a page token used @@ -601,9 +615,9 @@ oDescription = lens _oDescription (\ s a -> s{_oDescription = a}) --- | [Output Only] The URL of the resource that the operation modifies. If --- creating a persistent disk snapshot, this points to the persistent disk --- that the snapshot was created from. +-- | [Output Only] The URL of the resource that the operation modifies. For +-- operations related to creating a snapshot, this points to the persistent +-- disk that the snapshot was created from. oTargetLink :: Lens' Operation (Maybe Text) oTargetLink = lens _oTargetLink (\ s a -> s{_oTargetLink = a}) @@ -1305,7 +1319,7 @@ -- -- /See:/ 'deploymentsCancelPreviewRequest' smart constructor. newtype DeploymentsCancelPreviewRequest = DeploymentsCancelPreviewRequest' - { _dcprFingerprint :: Maybe Base64 + { _dcprFingerprint :: Maybe Bytes } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DeploymentsCancelPreviewRequest' with the minimum fields required to make a request. @@ -1333,7 +1347,7 @@ dcprFingerprint = lens _dcprFingerprint (\ s a -> s{_dcprFingerprint = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON DeploymentsCancelPreviewRequest where @@ -1720,7 +1734,7 @@ -- /See:/ 'policy' smart constructor. data Policy = Policy' { _pAuditConfigs :: !(Maybe [AuditConfig]) - , _pEtag :: !(Maybe Base64) + , _pEtag :: !(Maybe Bytes) , _pRules :: !(Maybe [Rule]) , _pVersion :: !(Maybe (Textual Int32)) , _pBindings :: !(Maybe [Binding]) @@ -1778,7 +1792,7 @@ pEtag :: Lens' Policy (Maybe ByteString) pEtag = lens _pEtag (\ s a -> s{_pEtag = a}) . - mapping _Base64 + mapping _Bytes -- | If more than one rule is specified, the rules are applied in the -- following manner: - All matching LOG rules are always applied. - If any @@ -2019,7 +2033,7 @@ -- -- /See:/ 'deploymentsStopRequest' smart constructor. newtype DeploymentsStopRequest = DeploymentsStopRequest' - { _dsrFingerprint :: Maybe Base64 + { _dsrFingerprint :: Maybe Bytes } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DeploymentsStopRequest' with the minimum fields required to make a request. @@ -2047,7 +2061,7 @@ dsrFingerprint = lens _dsrFingerprint (\ s a -> s{_dsrFingerprint = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON DeploymentsStopRequest where parseJSON @@ -2111,6 +2125,58 @@ [("value" .=) <$> _rwidiValue, ("key" .=) <$> _rwidiKey]) +-- | Provides the configuration for a sub-type of logging. +-- +-- /See:/ 'auditLogConfig' smart constructor. +data AuditLogConfig = AuditLogConfig' + { _alcLogType :: !(Maybe Text) + , _alcExemptedMembers :: !(Maybe [Text]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'alcLogType' +-- +-- * 'alcExemptedMembers' +auditLogConfig + :: AuditLogConfig +auditLogConfig = + AuditLogConfig' + { _alcLogType = Nothing + , _alcExemptedMembers = Nothing + } + +-- | The log type that this config enables. +alcLogType :: Lens' AuditLogConfig (Maybe Text) +alcLogType + = lens _alcLogType (\ s a -> s{_alcLogType = a}) + +-- | Specifies the identities that are exempted from this type of logging +-- Follows the same format of Binding.members. +alcExemptedMembers :: Lens' AuditLogConfig [Text] +alcExemptedMembers + = lens _alcExemptedMembers + (\ s a -> s{_alcExemptedMembers = a}) + . _Default + . _Coerce + +instance FromJSON AuditLogConfig where + parseJSON + = withObject "AuditLogConfig" + (\ o -> + AuditLogConfig' <$> + (o .:? "logType") <*> + (o .:? "exemptedMembers" .!= mempty)) + +instance ToJSON AuditLogConfig where + toJSON AuditLogConfig'{..} + = object + (catMaybes + [("logType" .=) <$> _alcLogType, + ("exemptedMembers" .=) <$> _alcExemptedMembers]) + -- | [Output Only] If errors are generated during update of the resource, -- this field will be populated. -- @@ -2593,7 +2659,7 @@ data Deployment = Deployment' { _dInsertTime :: !(Maybe Text) , _dOperation :: !(Maybe Operation) - , _dFingerprint :: !(Maybe Base64) + , _dFingerprint :: !(Maybe Bytes) , _dSelfLink :: !(Maybe Text) , _dName :: !(Maybe Text) , _dManifest :: !(Maybe Text) @@ -2669,7 +2735,7 @@ dFingerprint :: Lens' Deployment (Maybe ByteString) dFingerprint = lens _dFingerprint (\ s a -> s{_dFingerprint = a}) - . mapping _Base64 + . mapping _Bytes -- | [Output Only] Self link for the deployment. dSelfLink :: Lens' Deployment (Maybe Text) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types/Sum.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types/Sum.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types/Sum.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types/Sum.hs 2017-07-12 16:51:30.000000000 +0200 @@ -46,26 +46,53 @@ toJSON = toJSONText -- | Sets the policy to use for deleting resources. -data DeploymentsUpdateDeletePolicy +data DeploymentsDeleteDeletePolicy = Abandon -- ^ @ABANDON@ | Delete' -- ^ @DELETE@ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) -instance Hashable DeploymentsUpdateDeletePolicy +instance Hashable DeploymentsDeleteDeletePolicy -instance FromHttpApiData DeploymentsUpdateDeletePolicy where +instance FromHttpApiData DeploymentsDeleteDeletePolicy where parseQueryParam = \case "ABANDON" -> Right Abandon "DELETE" -> Right Delete' - x -> Left ("Unable to parse DeploymentsUpdateDeletePolicy from: " <> x) + x -> Left ("Unable to parse DeploymentsDeleteDeletePolicy from: " <> x) -instance ToHttpApiData DeploymentsUpdateDeletePolicy where +instance ToHttpApiData DeploymentsDeleteDeletePolicy where toQueryParam = \case Abandon -> "ABANDON" Delete' -> "DELETE" +instance FromJSON DeploymentsDeleteDeletePolicy where + parseJSON = parseJSONText "DeploymentsDeleteDeletePolicy" + +instance ToJSON DeploymentsDeleteDeletePolicy where + toJSON = toJSONText + +-- | Sets the policy to use for deleting resources. +data DeploymentsUpdateDeletePolicy + = DUDPAbandon + -- ^ @ABANDON@ + | DUDPDelete' + -- ^ @DELETE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DeploymentsUpdateDeletePolicy + +instance FromHttpApiData DeploymentsUpdateDeletePolicy where + parseQueryParam = \case + "ABANDON" -> Right DUDPAbandon + "DELETE" -> Right DUDPDelete' + x -> Left ("Unable to parse DeploymentsUpdateDeletePolicy from: " <> x) + +instance ToHttpApiData DeploymentsUpdateDeletePolicy where + toQueryParam = \case + DUDPAbandon -> "ABANDON" + DUDPDelete' -> "DELETE" + instance FromJSON DeploymentsUpdateDeletePolicy where parseJSON = parseJSONText "DeploymentsUpdateDeletePolicy" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager/Types.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -40,6 +40,7 @@ , AuditConfig , auditConfig , acService + , acAuditLogConfigs , acExemptedMembers -- * DeploymentsUpdateCreatePolicy @@ -57,6 +58,9 @@ , ruwidiValue , ruwidiKey + -- * DeploymentsDeleteDeletePolicy + , DeploymentsDeleteDeletePolicy (..) + -- * TypesListResponse , TypesListResponse , typesListResponse @@ -263,6 +267,12 @@ , rwidiValue , rwidiKey + -- * AuditLogConfig + , AuditLogConfig + , auditLogConfig + , alcLogType + , alcExemptedMembers + -- * ResourceUpdateError , ResourceUpdateError , resourceUpdateError diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/DeploymentManager.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/DeploymentManager.hs 2017-07-12 16:51:30.000000000 +0200 @@ -104,6 +104,7 @@ , AuditConfig , auditConfig , acService + , acAuditLogConfigs , acExemptedMembers -- ** DeploymentsUpdateCreatePolicy @@ -121,6 +122,9 @@ , ruwidiValue , ruwidiKey + -- ** DeploymentsDeleteDeletePolicy + , DeploymentsDeleteDeletePolicy (..) + -- ** TypesListResponse , TypesListResponse , typesListResponse @@ -327,6 +331,12 @@ , rwidiValue , rwidiKey + -- ** AuditLogConfig + , AuditLogConfig + , auditLogConfig + , alcLogType + , alcExemptedMembers + -- ** ResourceUpdateError , ResourceUpdateError , resourceUpdateError diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs 2017-07-12 16:51:30.000000000 +0200 @@ -34,6 +34,7 @@ -- * Request Lenses , ddProject + , ddDeletePolicy , ddDeployment ) where @@ -50,14 +51,18 @@ "global" :> "deployments" :> Capture "deployment" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] Operation + QueryParam "deletePolicy" + DeploymentsDeleteDeletePolicy + :> + QueryParam "alt" AltJSON :> Delete '[JSON] Operation -- | Deletes a deployment and all of the resources in the deployment. -- -- /See:/ 'deploymentsDelete' smart constructor. data DeploymentsDelete = DeploymentsDelete' - { _ddProject :: !Text - , _ddDeployment :: !Text + { _ddProject :: !Text + , _ddDeletePolicy :: !DeploymentsDeleteDeletePolicy + , _ddDeployment :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'DeploymentsDelete' with the minimum fields required to make a request. @@ -66,6 +71,8 @@ -- -- * 'ddProject' -- +-- * 'ddDeletePolicy' +-- -- * 'ddDeployment' deploymentsDelete :: Text -- ^ 'ddProject' @@ -74,6 +81,7 @@ deploymentsDelete pDdProject_ pDdDeployment_ = DeploymentsDelete' { _ddProject = pDdProject_ + , _ddDeletePolicy = Delete' , _ddDeployment = pDdDeployment_ } @@ -82,6 +90,12 @@ ddProject = lens _ddProject (\ s a -> s{_ddProject = a}) +-- | Sets the policy to use for deleting resources. +ddDeletePolicy :: Lens' DeploymentsDelete DeploymentsDeleteDeletePolicy +ddDeletePolicy + = lens _ddDeletePolicy + (\ s a -> s{_ddDeletePolicy = a}) + -- | The name of the deployment for this request. ddDeployment :: Lens' DeploymentsDelete Text ddDeployment @@ -93,7 +107,8 @@ '["https://www.googleapis.com/auth/cloud-platform", "https://www.googleapis.com/auth/ndev.cloudman"] requestClient DeploymentsDelete'{..} - = go _ddProject _ddDeployment (Just AltJSON) + = go _ddProject _ddDeployment (Just _ddDeletePolicy) + (Just AltJSON) deploymentManagerService where go = buildClient diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , DeploymentsList -- * Request Lenses + , dlOrderBy , dlProject , dlFilter , dlPageToken @@ -51,17 +52,19 @@ Capture "project" Text :> "global" :> "deployments" :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] DeploymentsListResponse + QueryParam "orderBy" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] DeploymentsListResponse -- | Lists all deployments for a given project. -- -- /See:/ 'deploymentsList' smart constructor. data DeploymentsList = DeploymentsList' - { _dlProject :: !Text + { _dlOrderBy :: !(Maybe Text) + , _dlProject :: !Text , _dlFilter :: !(Maybe Text) , _dlPageToken :: !(Maybe Text) , _dlMaxResults :: !(Textual Word32) @@ -71,6 +74,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'dlOrderBy' +-- -- * 'dlProject' -- -- * 'dlFilter' @@ -83,12 +88,25 @@ -> DeploymentsList deploymentsList pDlProject_ = DeploymentsList' - { _dlProject = pDlProject_ + { _dlOrderBy = Nothing + , _dlProject = pDlProject_ , _dlFilter = Nothing , _dlPageToken = Nothing , _dlMaxResults = 500 } +-- | Sorts list results by a certain order. By default, results are returned +-- in alphanumerical order based on the resource name. You can also sort +-- results in descending order based on the creation timestamp using +-- orderBy=\"creationTimestamp desc\". This sorts results based on the +-- creationTimestamp field in reverse chronological order (newest result +-- first). Use this to sort resources like operations so that the newest +-- operation is returned first. Currently, only sorting by name or +-- creationTimestamp desc is supported. +dlOrderBy :: Lens' DeploymentsList (Maybe Text) +dlOrderBy + = lens _dlOrderBy (\ s a -> s{_dlOrderBy = a}) + -- | The project ID for this request. dlProject :: Lens' DeploymentsList Text dlProject @@ -140,7 +158,7 @@ "https://www.googleapis.com/auth/ndev.cloudman", "https://www.googleapis.com/auth/ndev.cloudman.readonly"] requestClient DeploymentsList'{..} - = go _dlProject _dlFilter _dlPageToken + = go _dlProject _dlOrderBy _dlFilter _dlPageToken (Just _dlMaxResults) (Just AltJSON) deploymentManagerService diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs 2017-07-12 16:51:30.000000000 +0200 @@ -103,7 +103,7 @@ { _duCreatePolicy = CreateOrAcquire , _duProject = pDuProject_ , _duPayload = pDuPayload_ - , _duDeletePolicy = Delete' + , _duDeletePolicy = DUDPDelete' , _duPreview = False , _duDeployment = pDuDeployment_ } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , ManifestsList -- * Request Lenses + , mlOrderBy , mlProject , mlFilter , mlPageToken @@ -54,17 +55,19 @@ "deployments" :> Capture "deployment" Text :> "manifests" :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] ManifestsListResponse + QueryParam "orderBy" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] ManifestsListResponse -- | Lists all manifests for a given deployment. -- -- /See:/ 'manifestsList' smart constructor. data ManifestsList = ManifestsList' - { _mlProject :: !Text + { _mlOrderBy :: !(Maybe Text) + , _mlProject :: !Text , _mlFilter :: !(Maybe Text) , _mlPageToken :: !(Maybe Text) , _mlMaxResults :: !(Textual Word32) @@ -75,6 +78,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'mlOrderBy' +-- -- * 'mlProject' -- -- * 'mlFilter' @@ -90,13 +95,26 @@ -> ManifestsList manifestsList pMlProject_ pMlDeployment_ = ManifestsList' - { _mlProject = pMlProject_ + { _mlOrderBy = Nothing + , _mlProject = pMlProject_ , _mlFilter = Nothing , _mlPageToken = Nothing , _mlMaxResults = 500 , _mlDeployment = pMlDeployment_ } +-- | Sorts list results by a certain order. By default, results are returned +-- in alphanumerical order based on the resource name. You can also sort +-- results in descending order based on the creation timestamp using +-- orderBy=\"creationTimestamp desc\". This sorts results based on the +-- creationTimestamp field in reverse chronological order (newest result +-- first). Use this to sort resources like operations so that the newest +-- operation is returned first. Currently, only sorting by name or +-- creationTimestamp desc is supported. +mlOrderBy :: Lens' ManifestsList (Maybe Text) +mlOrderBy + = lens _mlOrderBy (\ s a -> s{_mlOrderBy = a}) + -- | The project ID for this request. mlProject :: Lens' ManifestsList Text mlProject @@ -153,7 +171,8 @@ "https://www.googleapis.com/auth/ndev.cloudman", "https://www.googleapis.com/auth/ndev.cloudman.readonly"] requestClient ManifestsList'{..} - = go _mlProject _mlDeployment _mlFilter _mlPageToken + = go _mlProject _mlDeployment _mlOrderBy _mlFilter + _mlPageToken (Just _mlMaxResults) (Just AltJSON) deploymentManagerService diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Operations/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , OperationsList -- * Request Lenses + , olOrderBy , olProject , olFilter , olPageToken @@ -51,17 +52,19 @@ Capture "project" Text :> "global" :> "operations" :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] OperationsListResponse + QueryParam "orderBy" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] OperationsListResponse -- | Lists all operations for a project. -- -- /See:/ 'operationsList' smart constructor. data OperationsList = OperationsList' - { _olProject :: !Text + { _olOrderBy :: !(Maybe Text) + , _olProject :: !Text , _olFilter :: !(Maybe Text) , _olPageToken :: !(Maybe Text) , _olMaxResults :: !(Textual Word32) @@ -71,6 +74,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'olOrderBy' +-- -- * 'olProject' -- -- * 'olFilter' @@ -83,12 +88,25 @@ -> OperationsList operationsList pOlProject_ = OperationsList' - { _olProject = pOlProject_ + { _olOrderBy = Nothing + , _olProject = pOlProject_ , _olFilter = Nothing , _olPageToken = Nothing , _olMaxResults = 500 } +-- | Sorts list results by a certain order. By default, results are returned +-- in alphanumerical order based on the resource name. You can also sort +-- results in descending order based on the creation timestamp using +-- orderBy=\"creationTimestamp desc\". This sorts results based on the +-- creationTimestamp field in reverse chronological order (newest result +-- first). Use this to sort resources like operations so that the newest +-- operation is returned first. Currently, only sorting by name or +-- creationTimestamp desc is supported. +olOrderBy :: Lens' OperationsList (Maybe Text) +olOrderBy + = lens _olOrderBy (\ s a -> s{_olOrderBy = a}) + -- | The project ID for this request. olProject :: Lens' OperationsList Text olProject @@ -140,7 +158,7 @@ "https://www.googleapis.com/auth/ndev.cloudman", "https://www.googleapis.com/auth/ndev.cloudman.readonly"] requestClient OperationsList'{..} - = go _olProject _olFilter _olPageToken + = go _olProject _olOrderBy _olFilter _olPageToken (Just _olMaxResults) (Just AltJSON) deploymentManagerService diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Resources/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , ResourcesList -- * Request Lenses + , rlOrderBy , rlProject , rlFilter , rlPageToken @@ -54,17 +55,19 @@ "deployments" :> Capture "deployment" Text :> "resources" :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] ResourcesListResponse + QueryParam "orderBy" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] ResourcesListResponse -- | Lists all resources in a given deployment. -- -- /See:/ 'resourcesList' smart constructor. data ResourcesList = ResourcesList' - { _rlProject :: !Text + { _rlOrderBy :: !(Maybe Text) + , _rlProject :: !Text , _rlFilter :: !(Maybe Text) , _rlPageToken :: !(Maybe Text) , _rlMaxResults :: !(Textual Word32) @@ -75,6 +78,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'rlOrderBy' +-- -- * 'rlProject' -- -- * 'rlFilter' @@ -90,13 +95,26 @@ -> ResourcesList resourcesList pRlProject_ pRlDeployment_ = ResourcesList' - { _rlProject = pRlProject_ + { _rlOrderBy = Nothing + , _rlProject = pRlProject_ , _rlFilter = Nothing , _rlPageToken = Nothing , _rlMaxResults = 500 , _rlDeployment = pRlDeployment_ } +-- | Sorts list results by a certain order. By default, results are returned +-- in alphanumerical order based on the resource name. You can also sort +-- results in descending order based on the creation timestamp using +-- orderBy=\"creationTimestamp desc\". This sorts results based on the +-- creationTimestamp field in reverse chronological order (newest result +-- first). Use this to sort resources like operations so that the newest +-- operation is returned first. Currently, only sorting by name or +-- creationTimestamp desc is supported. +rlOrderBy :: Lens' ResourcesList (Maybe Text) +rlOrderBy + = lens _rlOrderBy (\ s a -> s{_rlOrderBy = a}) + -- | The project ID for this request. rlProject :: Lens' ResourcesList Text rlProject @@ -153,7 +171,8 @@ "https://www.googleapis.com/auth/ndev.cloudman", "https://www.googleapis.com/auth/ndev.cloudman.readonly"] requestClient ResourcesList'{..} - = go _rlProject _rlDeployment _rlFilter _rlPageToken + = go _rlProject _rlDeployment _rlOrderBy _rlFilter + _rlPageToken (Just _rlMaxResults) (Just AltJSON) deploymentManagerService diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Types/List.hs new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Types/List.hs --- old/gogol-deploymentmanager-0.1.1/gen/Network/Google/Resource/DeploymentManager/Types/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gen/Network/Google/Resource/DeploymentManager/Types/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , TypesList -- * Request Lenses + , tlOrderBy , tlProject , tlFilter , tlPageToken @@ -51,17 +52,19 @@ Capture "project" Text :> "global" :> "types" :> - QueryParam "filter" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] TypesListResponse + QueryParam "orderBy" Text :> + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] TypesListResponse -- | Lists all resource types for Deployment Manager. -- -- /See:/ 'typesList' smart constructor. data TypesList = TypesList' - { _tlProject :: !Text + { _tlOrderBy :: !(Maybe Text) + , _tlProject :: !Text , _tlFilter :: !(Maybe Text) , _tlPageToken :: !(Maybe Text) , _tlMaxResults :: !(Textual Word32) @@ -71,6 +74,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'tlOrderBy' +-- -- * 'tlProject' -- -- * 'tlFilter' @@ -83,12 +88,25 @@ -> TypesList typesList pTlProject_ = TypesList' - { _tlProject = pTlProject_ + { _tlOrderBy = Nothing + , _tlProject = pTlProject_ , _tlFilter = Nothing , _tlPageToken = Nothing , _tlMaxResults = 500 } +-- | Sorts list results by a certain order. By default, results are returned +-- in alphanumerical order based on the resource name. You can also sort +-- results in descending order based on the creation timestamp using +-- orderBy=\"creationTimestamp desc\". This sorts results based on the +-- creationTimestamp field in reverse chronological order (newest result +-- first). Use this to sort resources like operations so that the newest +-- operation is returned first. Currently, only sorting by name or +-- creationTimestamp desc is supported. +tlOrderBy :: Lens' TypesList (Maybe Text) +tlOrderBy + = lens _tlOrderBy (\ s a -> s{_tlOrderBy = a}) + -- | The project ID for this request. tlProject :: Lens' TypesList Text tlProject @@ -140,7 +158,7 @@ "https://www.googleapis.com/auth/ndev.cloudman", "https://www.googleapis.com/auth/ndev.cloudman.readonly"] requestClient TypesList'{..} - = go _tlProject _tlFilter _tlPageToken + = go _tlProject _tlOrderBy _tlFilter _tlPageToken (Just _tlMaxResults) (Just AltJSON) deploymentManagerService diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-deploymentmanager-0.1.1/gogol-deploymentmanager.cabal new/gogol-deploymentmanager-0.3.0/gogol-deploymentmanager.cabal --- old/gogol-deploymentmanager-0.1.1/gogol-deploymentmanager.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-deploymentmanager-0.3.0/gogol-deploymentmanager.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-deploymentmanager -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Deployment Manager SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -60,5 +60,5 @@ , Network.Google.DeploymentManager.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5
participants (1)
-
root@hilbert.suse.de