gogol-deploymentmanager 0.1.1 → 0.2.0

raw patch · 13 files changed

+290/−70 lines, 13 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/DeploymentManager.hs +10/−0
• gen/Network/Google/DeploymentManager/Types.hs +10/−0
• gen/Network/Google/DeploymentManager/Types/Product.hs +83/−17
• gen/Network/Google/DeploymentManager/Types/Sum.hs +32/−5
• gen/Network/Google/Resource/DeploymentManager/Deployments/Delete.hs +19/−4
• gen/Network/Google/Resource/DeploymentManager/Deployments/List.hs +26/−8
• gen/Network/Google/Resource/DeploymentManager/Deployments/Update.hs +1/−1
• gen/Network/Google/Resource/DeploymentManager/Manifests/List.hs +27/−8
• gen/Network/Google/Resource/DeploymentManager/Operations/List.hs +26/−8
• gen/Network/Google/Resource/DeploymentManager/Resources/List.hs +27/−8
• gen/Network/Google/Resource/DeploymentManager/Types/List.hs +26/−8
• gogol-deploymentmanager.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.1.1`+`0.2.0`   ## Description

@@ -104,6 +104,7 @@     , AuditConfig     , auditConfig     , acService+    , acAuditLogConfigs     , acExemptedMembers      -- ** DeploymentsUpdateCreatePolicy@@ -121,6 +122,9 @@     , ruwidiValue     , ruwidiKey +    -- ** DeploymentsDeleteDeletePolicy+    , DeploymentsDeleteDeletePolicy (..)+     -- ** TypesListResponse     , TypesListResponse     , typesListResponse@@ -326,6 +330,12 @@     , resourceWarningsItemDataItem     , rwidiValue     , rwidiKey++    -- ** AuditLogConfig+    , AuditLogConfig+    , auditLogConfig+    , alcLogType+    , alcExemptedMembers      -- ** ResourceUpdateError     , ResourceUpdateError

@@ -40,6 +40,7 @@     , AuditConfig     , auditConfig     , acService+    , acAuditLogConfigs     , acExemptedMembers      -- * DeploymentsUpdateCreatePolicy@@ -57,6 +58,9 @@     , ruwidiValue     , ruwidiKey +    -- * DeploymentsDeleteDeletePolicy+    , DeploymentsDeleteDeletePolicy (..)+     -- * TypesListResponse     , TypesListResponse     , typesListResponse@@ -262,6 +266,12 @@     , resourceWarningsItemDataItem     , rwidiValue     , rwidiKey++    -- * AuditLogConfig+    , AuditLogConfig+    , auditLogConfig+    , alcLogType+    , alcExemptedMembers      -- * ResourceUpdateError     , ResourceUpdateError

@@ -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)

@@ -46,25 +46,52 @@     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"

@@ -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

@@ -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

@@ -103,7 +103,7 @@     { _duCreatePolicy = CreateOrAcquire     , _duProject = pDuProject_     , _duPayload = pDuPayload_-    , _duDeletePolicy = Delete'+    , _duDeletePolicy = DUDPDelete'     , _duPreview = False     , _duDeployment = pDuDeployment_     }

@@ -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

@@ -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

@@ -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

@@ -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

@@ -1,5 +1,5 @@ name:                  gogol-deploymentmanager-version:               0.1.1+version:               0.2.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.2.0.*         , base       >= 4.7 && < 5