August 2017 - openSUSE Commits - openSUSE Mailing Lists

commit ghc-gogol-deploymentmanager for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

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(a)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

1 0

commit ghc-gogol-debugger for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-debugger for openSUSE:Factory checked in at 2017-08-31 20:52:57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-debugger (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-debugger.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-debugger" Thu Aug 31 20:52:57 2017 rev:2 rq:513297 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-debugger/ghc-gogol-debugger.changes 2017-05-10 20:40:05.283144753 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-debugger.new/ghc-gogol-debugger.changes 2017-08-31 20:52:57.428975813 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:02:48 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-debugger-0.1.1.tar.gz New: ---- gogol-debugger-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-debugger.spec ++++++ --- /var/tmp/diff_new_pack.UZRR4j/_old 2017-08-31 20:52:58.420836452 +0200 +++ /var/tmp/diff_new_pack.UZRR4j/_new 2017-08-31 20:52:58.428835329 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-debugger Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Stackdriver Debugger SDK License: MPL-2.0 ++++++ gogol-debugger-0.1.1.tar.gz -> gogol-debugger-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/README.md new/gogol-debugger-0.3.0/README.md --- old/gogol-debugger-0.1.1/README.md 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/README.md 2017-07-12 16:45:05.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-debugger-0.1.1/gen/Network/Google/Debugger/Types/Product.hs new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types/Product.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Debugger/Types/Product.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types/Product.hs 2017-07-12 16:45:05.000000000 +0200 @@ -481,10 +481,10 @@ -- /See:/ 'breakpoint' smart constructor. data Breakpoint = Breakpoint' { _bStatus :: !(Maybe StatusMessage) - , _bLogLevel :: !(Maybe Text) + , _bLogLevel :: !(Maybe BreakpointLogLevel) , _bLocation :: !(Maybe SourceLocation) - , _bAction :: !(Maybe Text) - , _bFinalTime :: !(Maybe Text) + , _bAction :: !(Maybe BreakpointAction) + , _bFinalTime :: !(Maybe DateTime') , _bExpressions :: !(Maybe [Text]) , _bLogMessageFormat :: !(Maybe Text) , _bId :: !(Maybe Text) @@ -494,7 +494,7 @@ , _bStackFrames :: !(Maybe [StackFrame]) , _bCondition :: !(Maybe Text) , _bEvaluatedExpressions :: !(Maybe [Variable]) - , _bCreateTime :: !(Maybe Text) + , _bCreateTime :: !(Maybe DateTime') , _bIsFinalState :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) @@ -567,7 +567,7 @@ bStatus = lens _bStatus (\ s a -> s{_bStatus = a}) -- | Indicates the severity of the log. Only relevant when action is \`LOG\`. -bLogLevel :: Lens' Breakpoint (Maybe Text) +bLogLevel :: Lens' Breakpoint (Maybe BreakpointLogLevel) bLogLevel = lens _bLogLevel (\ s a -> s{_bLogLevel = a}) @@ -578,14 +578,15 @@ -- | Action that the agent should perform when the code at the breakpoint -- location is hit. -bAction :: Lens' Breakpoint (Maybe Text) +bAction :: Lens' Breakpoint (Maybe BreakpointAction) bAction = lens _bAction (\ s a -> s{_bAction = a}) -- | Time this breakpoint was finalized as seen by the server in seconds -- resolution. -bFinalTime :: Lens' Breakpoint (Maybe Text) +bFinalTime :: Lens' Breakpoint (Maybe UTCTime) bFinalTime - = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) + = lens _bFinalTime (\ s a -> s{_bFinalTime = a}) . + mapping _DateTime -- | List of read-only expressions to evaluate at the breakpoint location. -- The expressions are composed using expressions in the programming @@ -669,9 +670,10 @@ . _Coerce -- | Time this breakpoint was created by the server in seconds resolution. -bCreateTime :: Lens' Breakpoint (Maybe Text) +bCreateTime :: Lens' Breakpoint (Maybe UTCTime) bCreateTime - = lens _bCreateTime (\ s a -> s{_bCreateTime = a}) + = lens _bCreateTime (\ s a -> s{_bCreateTime = a}) . + mapping _DateTime -- | When true, indicates that this is a final result and the breakpoint -- state will not change from here on. @@ -807,7 +809,7 @@ -- Captured variable name: \"p\", type: \"T*\", value: \"0x00400400\" -- status { is_error: true, description { format: \"unavailable\" } } } The -- status should describe the reason for the missing value, such as \`\`, --- \`\`, \` \`. Note that a null pointer should not have members. 5) An +-- \`\`, \`\`. Note that a null pointer should not have members. 5) An -- unnamed value: int* p = new int(7); { \/\/ Captured variable name: -- \"p\", value: \"0x00500500\", type: \"int*\", members { value: \"7\", -- type: \"int\" } } 6) An unnamed pointer where the pointee was not @@ -968,8 +970,10 @@ = lens _lbrNextWaitToken (\ s a -> s{_lbrNextWaitToken = a}) --- | List of all breakpoints with complete state. The fields \`id\` and --- \`location\` are guaranteed to be set on each breakpoint. +-- | List of breakpoints matching the request. The fields \`id\` and +-- \`location\` are guaranteed to be set on each breakpoint. The fields: +-- \`stack_frames\`, \`evaluated_expressions\` and \`variable_table\` are +-- cleared on each breakpoint regardless of it\'s status. lbrBreakpoints :: Lens' ListBreakpointsResponse [Breakpoint] lbrBreakpoints = lens _lbrBreakpoints @@ -1078,7 +1082,7 @@ -- -- /See:/ 'statusMessage' smart constructor. data StatusMessage = StatusMessage' - { _smRefersTo :: !(Maybe Text) + { _smRefersTo :: !(Maybe StatusMessageRefersTo) , _smIsError :: !(Maybe Bool) , _smDescription :: !(Maybe FormatMessage) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1102,7 +1106,7 @@ } -- | Reference to which the message applies. -smRefersTo :: Lens' StatusMessage (Maybe Text) +smRefersTo :: Lens' StatusMessage (Maybe StatusMessageRefersTo) smRefersTo = lens _smRefersTo (\ s a -> s{_smRefersTo = a}) @@ -1783,7 +1787,7 @@ -- -- /See:/ 'aliasContext' smart constructor. data AliasContext = AliasContext' - { _acKind :: !(Maybe Text) + { _acKind :: !(Maybe AliasContextKind) , _acName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1803,7 +1807,7 @@ } -- | The alias kind. -acKind :: Lens' AliasContext (Maybe Text) +acKind :: Lens' AliasContext (Maybe AliasContextKind) acKind = lens _acKind (\ s a -> s{_acKind = a}) -- | The alias name. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Debugger/Types/Sum.hs new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types/Sum.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Debugger/Types/Sum.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types/Sum.hs 2017-07-12 16:45:05.000000000 +0200 @@ -17,3 +17,193 @@ module Network.Google.Debugger.Types.Sum where import Network.Google.Prelude + +-- | Reference to which the message applies. +data StatusMessageRefersTo + = Unspecified + -- ^ @UNSPECIFIED@ + -- Status doesn\'t refer to any particular input. + | BreakpointSourceLocation + -- ^ @BREAKPOINT_SOURCE_LOCATION@ + -- Status applies to the breakpoint and is related to its location. + | BreakpointCondition + -- ^ @BREAKPOINT_CONDITION@ + -- Status applies to the breakpoint and is related to its condition. + | BreakpointExpression + -- ^ @BREAKPOINT_EXPRESSION@ + -- Status applies to the breakpoint and is related to its expressions. + | BreakpointAge + -- ^ @BREAKPOINT_AGE@ + -- Status applies to the breakpoint and is related to its age. + | VariableName + -- ^ @VARIABLE_NAME@ + -- Status applies to the entire variable. + | VariableValue + -- ^ @VARIABLE_VALUE@ + -- Status applies to variable value (variable name is valid). + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable StatusMessageRefersTo + +instance FromHttpApiData StatusMessageRefersTo where + parseQueryParam = \case + "UNSPECIFIED" -> Right Unspecified + "BREAKPOINT_SOURCE_LOCATION" -> Right BreakpointSourceLocation + "BREAKPOINT_CONDITION" -> Right BreakpointCondition + "BREAKPOINT_EXPRESSION" -> Right BreakpointExpression + "BREAKPOINT_AGE" -> Right BreakpointAge + "VARIABLE_NAME" -> Right VariableName + "VARIABLE_VALUE" -> Right VariableValue + x -> Left ("Unable to parse StatusMessageRefersTo from: " <> x) + +instance ToHttpApiData StatusMessageRefersTo where + toQueryParam = \case + Unspecified -> "UNSPECIFIED" + BreakpointSourceLocation -> "BREAKPOINT_SOURCE_LOCATION" + BreakpointCondition -> "BREAKPOINT_CONDITION" + BreakpointExpression -> "BREAKPOINT_EXPRESSION" + BreakpointAge -> "BREAKPOINT_AGE" + VariableName -> "VARIABLE_NAME" + VariableValue -> "VARIABLE_VALUE" + +instance FromJSON StatusMessageRefersTo where + parseJSON = parseJSONText "StatusMessageRefersTo" + +instance ToJSON StatusMessageRefersTo where + toJSON = toJSONText + +-- | Indicates the severity of the log. Only relevant when action is \`LOG\`. +data BreakpointLogLevel + = Info + -- ^ @INFO@ + -- Information log message. + | Warning + -- ^ @WARNING@ + -- Warning log message. + | Error' + -- ^ @ERROR@ + -- Error log message. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable BreakpointLogLevel + +instance FromHttpApiData BreakpointLogLevel where + parseQueryParam = \case + "INFO" -> Right Info + "WARNING" -> Right Warning + "ERROR" -> Right Error' + x -> Left ("Unable to parse BreakpointLogLevel from: " <> x) + +instance ToHttpApiData BreakpointLogLevel where + toQueryParam = \case + Info -> "INFO" + Warning -> "WARNING" + Error' -> "ERROR" + +instance FromJSON BreakpointLogLevel where + parseJSON = parseJSONText "BreakpointLogLevel" + +instance ToJSON BreakpointLogLevel where + toJSON = toJSONText + +-- | V1 error format. +data Xgafv + = X1 + -- ^ @1@ + -- v1 error format + | X2 + -- ^ @2@ + -- v2 error format + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable Xgafv + +instance FromHttpApiData Xgafv where + parseQueryParam = \case + "1" -> Right X1 + "2" -> Right X2 + x -> Left ("Unable to parse Xgafv from: " <> x) + +instance ToHttpApiData Xgafv where + toQueryParam = \case + X1 -> "1" + X2 -> "2" + +instance FromJSON Xgafv where + parseJSON = parseJSONText "Xgafv" + +instance ToJSON Xgafv where + toJSON = toJSONText + +-- | Action that the agent should perform when the code at the breakpoint +-- location is hit. +data BreakpointAction + = Capture + -- ^ @CAPTURE@ + -- Capture stack frame and variables and update the breakpoint. The data is + -- only captured once. After that the breakpoint is set in a final state. + | Log + -- ^ @LOG@ + -- Log each breakpoint hit. The breakpoint remains active until deleted or + -- expired. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable BreakpointAction + +instance FromHttpApiData BreakpointAction where + parseQueryParam = \case + "CAPTURE" -> Right Capture + "LOG" -> Right Log + x -> Left ("Unable to parse BreakpointAction from: " <> x) + +instance ToHttpApiData BreakpointAction where + toQueryParam = \case + Capture -> "CAPTURE" + Log -> "LOG" + +instance FromJSON BreakpointAction where + parseJSON = parseJSONText "BreakpointAction" + +instance ToJSON BreakpointAction where + toJSON = toJSONText + +-- | The alias kind. +data AliasContextKind + = Any + -- ^ @ANY@ + -- Do not use. + | Fixed + -- ^ @FIXED@ + -- Git tag + | Movable + -- ^ @MOVABLE@ + -- Git branch + | Other + -- ^ @OTHER@ + -- OTHER is used to specify non-standard aliases, those not of the kinds + -- above. For example, if a Git repo has a ref named \"refs\/foo\/bar\", it + -- is considered to be of kind OTHER. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AliasContextKind + +instance FromHttpApiData AliasContextKind where + parseQueryParam = \case + "ANY" -> Right Any + "FIXED" -> Right Fixed + "MOVABLE" -> Right Movable + "OTHER" -> Right Other + x -> Left ("Unable to parse AliasContextKind from: " <> x) + +instance ToHttpApiData AliasContextKind where + toQueryParam = \case + Any -> "ANY" + Fixed -> "FIXED" + Movable -> "MOVABLE" + Other -> "OTHER" + +instance FromJSON AliasContextKind where + parseJSON = parseJSONText "AliasContextKind" + +instance ToJSON AliasContextKind where + toJSON = toJSONText diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Debugger/Types.hs new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Debugger/Types.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Debugger/Types.hs 2017-07-12 16:45:05.000000000 +0200 @@ -127,6 +127,12 @@ , lbrNextWaitToken , lbrBreakpoints + -- * StatusMessageRefersTo + , StatusMessageRefersTo (..) + + -- * BreakpointLogLevel + , BreakpointLogLevel (..) + -- * ListDebuggeesResponse , ListDebuggeesResponse , listDebuggeesResponse @@ -144,6 +150,12 @@ , smIsError , smDescription + -- * Xgafv + , Xgafv (..) + + -- * BreakpointAction + , BreakpointAction (..) + -- * ListActiveBreakpointsResponse , ListActiveBreakpointsResponse , listActiveBreakpointsResponse @@ -222,6 +234,9 @@ , acKind , acName + -- * AliasContextKind + , AliasContextKind (..) + -- * CloudWorkspaceId , CloudWorkspaceId , cloudWorkspaceId diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Debugger.hs new/gogol-debugger-0.3.0/gen/Network/Google/Debugger.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Debugger.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Debugger.hs 2017-07-12 16:45:05.000000000 +0200 @@ -161,6 +161,12 @@ , lbrNextWaitToken , lbrBreakpoints + -- ** StatusMessageRefersTo + , StatusMessageRefersTo (..) + + -- ** BreakpointLogLevel + , BreakpointLogLevel (..) + -- ** ListDebuggeesResponse , ListDebuggeesResponse , listDebuggeesResponse @@ -178,6 +184,12 @@ , smIsError , smDescription + -- ** Xgafv + , Xgafv (..) + + -- ** BreakpointAction + , BreakpointAction (..) + -- ** ListActiveBreakpointsResponse , ListActiveBreakpointsResponse , listActiveBreakpointsResponse @@ -256,6 +268,9 @@ , acKind , acName + -- ** AliasContextKind + , AliasContextKind (..) + -- ** CloudWorkspaceId , CloudWorkspaceId , cloudWorkspaceId diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/List.hs 2017-07-12 16:45:05.000000000 +0200 @@ -65,7 +65,7 @@ "debuggees" :> Capture "debuggeeId" Text :> "breakpoints" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -90,7 +90,7 @@ -- -- /See:/ 'controllerDebuggeesBreakpointsList' smart constructor. data ControllerDebuggeesBreakpointsList = ControllerDebuggeesBreakpointsList' - { _cdblXgafv :: !(Maybe Text) + { _cdblXgafv :: !(Maybe Xgafv) , _cdblUploadProtocol :: !(Maybe Text) , _cdblPp :: !Bool , _cdblAccessToken :: !(Maybe Text) @@ -143,7 +143,7 @@ } -- | V1 error format. -cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Text) +cdblXgafv :: Lens' ControllerDebuggeesBreakpointsList (Maybe Xgafv) cdblXgafv = lens _cdblXgafv (\ s a -> s{_cdblXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Breakpoints/Update.hs 2017-07-12 16:45:05.000000000 +0200 @@ -63,7 +63,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "id" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -84,7 +84,7 @@ -- -- /See:/ 'controllerDebuggeesBreakpointsUpdate' smart constructor. data ControllerDebuggeesBreakpointsUpdate = ControllerDebuggeesBreakpointsUpdate' - { _cdbuXgafv :: !(Maybe Text) + { _cdbuXgafv :: !(Maybe Xgafv) , _cdbuUploadProtocol :: !(Maybe Text) , _cdbuPp :: !Bool , _cdbuAccessToken :: !(Maybe Text) @@ -139,7 +139,7 @@ } -- | V1 error format. -cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Text) +cdbuXgafv :: Lens' ControllerDebuggeesBreakpointsUpdate (Maybe Xgafv) cdbuXgafv = lens _cdbuXgafv (\ s a -> s{_cdbuXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Controller/Debuggees/Register.hs 2017-07-12 16:45:05.000000000 +0200 @@ -60,7 +60,7 @@ "controller" :> "debuggees" :> "register" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -82,7 +82,7 @@ -- -- /See:/ 'controllerDebuggeesRegister' smart constructor. data ControllerDebuggeesRegister = ControllerDebuggeesRegister' - { _cdrXgafv :: !(Maybe Text) + { _cdrXgafv :: !(Maybe Xgafv) , _cdrUploadProtocol :: !(Maybe Text) , _cdrPp :: !Bool , _cdrAccessToken :: !(Maybe Text) @@ -127,7 +127,7 @@ } -- | V1 error format. -cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Text) +cdrXgafv :: Lens' ControllerDebuggeesRegister (Maybe Xgafv) cdrXgafv = lens _cdrXgafv (\ s a -> s{_cdrXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Delete.hs 2017-07-12 16:45:05.000000000 +0200 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "breakpointId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsDelete' smart constructor. data DebuggerDebuggeesBreakpointsDelete = DebuggerDebuggeesBreakpointsDelete' - { _ddbdXgafv :: !(Maybe Text) + { _ddbdXgafv :: !(Maybe Xgafv) , _ddbdUploadProtocol :: !(Maybe Text) , _ddbdPp :: !Bool , _ddbdAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Text) +ddbdXgafv :: Lens' DebuggerDebuggeesBreakpointsDelete (Maybe Xgafv) ddbdXgafv = lens _ddbdXgafv (\ s a -> s{_ddbdXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Get.hs 2017-07-12 16:45:05.000000000 +0200 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> Capture "breakpointId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsGet' smart constructor. data DebuggerDebuggeesBreakpointsGet = DebuggerDebuggeesBreakpointsGet' - { _ddbgXgafv :: !(Maybe Text) + { _ddbgXgafv :: !(Maybe Xgafv) , _ddbgUploadProtocol :: !(Maybe Text) , _ddbgPp :: !Bool , _ddbgAccessToken :: !(Maybe Text) @@ -126,7 +126,7 @@ } -- | V1 error format. -ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Text) +ddbgXgafv :: Lens' DebuggerDebuggeesBreakpointsGet (Maybe Xgafv) ddbgXgafv = lens _ddbgXgafv (\ s a -> s{_ddbgXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/List.hs 2017-07-12 16:45:05.000000000 +0200 @@ -60,7 +60,7 @@ "debuggees" :> Capture "debuggeeId" Text :> "breakpoints" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> @@ -80,7 +80,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsList' smart constructor. data DebuggerDebuggeesBreakpointsList = DebuggerDebuggeesBreakpointsList' - { _ddblXgafv :: !(Maybe Text) + { _ddblXgafv :: !(Maybe Xgafv) , _ddblIncludeInactive :: !(Maybe Bool) , _ddblUploadProtocol :: !(Maybe Text) , _ddblPp :: !Bool @@ -149,7 +149,7 @@ } -- | V1 error format. -ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Text) +ddblXgafv :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Xgafv) ddblXgafv = lens _ddblXgafv (\ s a -> s{_ddblXgafv = a}) @@ -188,8 +188,8 @@ = lens _ddblUploadType (\ s a -> s{_ddblUploadType = a}) --- | When set to \`true\`, the response breakpoints are stripped of the --- results fields: \`stack_frames\`, \`evaluated_expressions\` and +-- | This field is deprecated. The following fields are always stripped out +-- of the result: \`stack_frames\`, \`evaluated_expressions\` and -- \`variable_table\`. ddblStripResults :: Lens' DebuggerDebuggeesBreakpointsList (Maybe Bool) ddblStripResults diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/Breakpoints/Set.hs 2017-07-12 16:45:05.000000000 +0200 @@ -57,7 +57,7 @@ Capture "debuggeeId" Text :> "breakpoints" :> "set" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -73,7 +73,7 @@ -- -- /See:/ 'debuggerDebuggeesBreakpointsSet' smart constructor. data DebuggerDebuggeesBreakpointsSet = DebuggerDebuggeesBreakpointsSet' - { _ddbsXgafv :: !(Maybe Text) + { _ddbsXgafv :: !(Maybe Xgafv) , _ddbsUploadProtocol :: !(Maybe Text) , _ddbsPp :: !Bool , _ddbsAccessToken :: !(Maybe Text) @@ -127,7 +127,7 @@ } -- | V1 error format. -ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Text) +ddbsXgafv :: Lens' DebuggerDebuggeesBreakpointsSet (Maybe Xgafv) ddbsXgafv = lens _ddbsXgafv (\ s a -> s{_ddbsXgafv = a}) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs --- old/gogol-debugger-0.1.1/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gen/Network/Google/Resource/CloudDebugger/Debugger/Debuggees/List.hs 2017-07-12 16:45:05.000000000 +0200 @@ -54,7 +54,7 @@ "v2" :> "debugger" :> "debuggees" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "includeInactive" Bool :> QueryParam "upload_protocol" Text :> QueryParam "project" Text :> @@ -71,7 +71,7 @@ -- -- /See:/ 'debuggerDebuggeesList' smart constructor. data DebuggerDebuggeesList = DebuggerDebuggeesList' - { _ddlXgafv :: !(Maybe Text) + { _ddlXgafv :: !(Maybe Xgafv) , _ddlIncludeInactive :: !(Maybe Bool) , _ddlUploadProtocol :: !(Maybe Text) , _ddlProject :: !(Maybe Text) @@ -123,7 +123,7 @@ } -- | V1 error format. -ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Text) +ddlXgafv :: Lens' DebuggerDebuggeesList (Maybe Xgafv) ddlXgafv = lens _ddlXgafv (\ s a -> s{_ddlXgafv = a}) -- | When set to \`true\`, the result includes all debuggees. Otherwise, the diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-debugger-0.1.1/gogol-debugger.cabal new/gogol-debugger-0.3.0/gogol-debugger.cabal --- old/gogol-debugger-0.1.1/gogol-debugger.cabal 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-debugger-0.3.0/gogol-debugger.cabal 2017-07-12 16:45:05.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-debugger -version: 0.1.1 +version: 0.3.0 synopsis: Google Stackdriver Debugger SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -50,5 +50,5 @@ , Network.Google.Debugger.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-datastore for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-datastore for openSUSE:Factory checked in at 2017-08-31 20:52:51 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-datastore (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-datastore.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-datastore" Thu Aug 31 20:52:51 2017 rev:2 rq:513296 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-datastore/ghc-gogol-datastore.changes 2017-05-10 20:40:01.875625537 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-datastore.new/ghc-gogol-datastore.changes 2017-08-31 20:52:55.237283755 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:49 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-datastore-0.1.1.tar.gz New: ---- gogol-datastore-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-datastore.spec ++++++ --- /var/tmp/diff_new_pack.0o6Hzg/_old 2017-08-31 20:52:57.197008405 +0200 +++ /var/tmp/diff_new_pack.0o6Hzg/_new 2017-08-31 20:52:57.197008405 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-datastore Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Datastore SDK License: MPL-2.0 ++++++ gogol-datastore-0.1.1.tar.gz -> gogol-datastore-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-datastore-0.1.1/README.md new/gogol-datastore-0.3.0/README.md --- old/gogol-datastore-0.1.1/README.md 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-datastore-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-datastore-0.1.1/gen/Network/Google/Datastore/Types/Product.hs new/gogol-datastore-0.3.0/gen/Network/Google/Datastore/Types/Product.hs --- old/gogol-datastore-0.1.1/gen/Network/Google/Datastore/Types/Product.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-datastore-0.3.0/gen/Network/Google/Datastore/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -44,7 +44,9 @@ -- NormalizeLatLng(-180.0, 10.0) assert (0.0, -170.0) == -- NormalizeLatLng(180.0, 10.0) assert (-90.0, 10.0) == -- NormalizeLatLng(270.0, 10.0) assert (90.0, 10.0) == --- NormalizeLatLng(-270.0, 10.0) +-- NormalizeLatLng(-270.0, 10.0) The code in +-- logs\/storage\/validator\/logs_validator_traits.cc treats this type as +-- if it were annotated as ST_LOCATION. -- -- /See:/ 'latLng' smart constructor. data LatLng = LatLng' @@ -97,7 +99,7 @@ -- -- /See:/ 'rollbackRequest' smart constructor. newtype RollbackRequest = RollbackRequest' - { _rrTransaction :: Maybe Base64 + { _rrTransaction :: Maybe Bytes } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'RollbackRequest' with the minimum fields required to make a request. @@ -118,7 +120,7 @@ rrTransaction = lens _rrTransaction (\ s a -> s{_rrTransaction = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON RollbackRequest where parseJSON @@ -193,12 +195,12 @@ -- /See:/ 'queryResultBatch' smart constructor. data QueryResultBatch = QueryResultBatch' { _qrbSkippedResults :: !(Maybe (Textual Int32)) - , _qrbSkippedCursor :: !(Maybe Base64) + , _qrbSkippedCursor :: !(Maybe Bytes) , _qrbEntityResultType :: !(Maybe QueryResultBatchEntityResultType) , _qrbSnapshotVersion :: !(Maybe (Textual Int64)) , _qrbEntityResults :: !(Maybe [EntityResult]) , _qrbMoreResults :: !(Maybe QueryResultBatchMoreResults) - , _qrbEndCursor :: !(Maybe Base64) + , _qrbEndCursor :: !(Maybe Bytes) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'QueryResultBatch' with the minimum fields required to make a request. @@ -244,7 +246,7 @@ qrbSkippedCursor = lens _qrbSkippedCursor (\ s a -> s{_qrbSkippedCursor = a}) - . mapping _Base64 + . mapping _Bytes -- | The result type for every entity in \`entity_results\`. qrbEntityResultType :: Lens' QueryResultBatch (Maybe QueryResultBatchEntityResultType) @@ -258,7 +260,8 @@ -- \`end_cursor\` (not the query\'s \`end_cursor\`). In a single -- transaction, subsequent query result batches for the same query can have -- a greater snapshot version number. Each batch\'s snapshot version is --- valid for all preceding batches. +-- valid for all preceding batches. The value will be zero for eventually +-- consistent queries. qrbSnapshotVersion :: Lens' QueryResultBatch (Maybe Int64) qrbSnapshotVersion = lens _qrbSnapshotVersion @@ -283,7 +286,7 @@ qrbEndCursor :: Lens' QueryResultBatch (Maybe ByteString) qrbEndCursor = lens _qrbEndCursor (\ s a -> s{_qrbEndCursor = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON QueryResultBatch where parseJSON @@ -525,7 +528,7 @@ -- -- /See:/ 'beginTransactionResponse' smart constructor. newtype BeginTransactionResponse = BeginTransactionResponse' - { _btrTransaction :: Maybe Base64 + { _btrTransaction :: Maybe Bytes } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'BeginTransactionResponse' with the minimum fields required to make a request. @@ -545,7 +548,7 @@ btrTransaction = lens _btrTransaction (\ s a -> s{_btrTransaction = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON BeginTransactionResponse where parseJSON @@ -807,7 +810,7 @@ , _vMeaning :: !(Maybe (Textual Int32)) , _vArrayValue :: !(Maybe ArrayValue) , _vNullValue :: !(Maybe ValueNullValue) - , _vBlobValue :: !(Maybe Base64) + , _vBlobValue :: !(Maybe Bytes) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Value' with the minimum fields required to make a request. @@ -941,7 +944,7 @@ vBlobValue :: Lens' Value (Maybe ByteString) vBlobValue = lens _vBlobValue (\ s a -> s{_vBlobValue = a}) . - mapping _Base64 + mapping _Bytes instance FromJSON Value where parseJSON @@ -1306,11 +1309,11 @@ -- -- /See:/ 'query' smart constructor. data Query = Query' - { _qStartCursor :: !(Maybe Base64) + { _qStartCursor :: !(Maybe Bytes) , _qOffSet :: !(Maybe (Textual Int32)) , _qKind :: !(Maybe [KindExpression]) , _qDistinctOn :: !(Maybe [PropertyReference]) - , _qEndCursor :: !(Maybe Base64) + , _qEndCursor :: !(Maybe Bytes) , _qLimit :: !(Maybe (Textual Int32)) , _qProjection :: !(Maybe [Projection]) , _qFilter :: !(Maybe Filter) @@ -1359,7 +1362,7 @@ qStartCursor :: Lens' Query (Maybe ByteString) qStartCursor = lens _qStartCursor (\ s a -> s{_qStartCursor = a}) - . mapping _Base64 + . mapping _Bytes -- | The number of results to skip. Applies before limit, but after all other -- constraints. Optional. Must be >= 0 if specified. @@ -1390,7 +1393,7 @@ qEndCursor :: Lens' Query (Maybe ByteString) qEndCursor = lens _qEndCursor (\ s a -> s{_qEndCursor = a}) . - mapping _Base64 + mapping _Bytes -- | The maximum number of results to return. Applies after all other -- constraints. Optional. Unspecified is interpreted as no limit. Must be @@ -1485,7 +1488,7 @@ -- -- /See:/ 'entityResult' smart constructor. data EntityResult = EntityResult' - { _erCursor :: !(Maybe Base64) + { _erCursor :: !(Maybe Bytes) , _erVersion :: !(Maybe (Textual Int64)) , _erEntity :: !(Maybe Entity) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1513,7 +1516,7 @@ erCursor :: Lens' EntityResult (Maybe ByteString) erCursor = lens _erCursor (\ s a -> s{_erCursor = a}) . - mapping _Base64 + mapping _Bytes -- | The version of the entity, a strictly positive number that monotonically -- increases with changes to the entity. This field is set for \`FULL\` @@ -1637,7 +1640,7 @@ -- /See:/ 'readOptions' smart constructor. data ReadOptions = ReadOptions' { _roReadConsistency :: !(Maybe ReadOptionsReadConsistency) - , _roTransaction :: !(Maybe Base64) + , _roTransaction :: !(Maybe Bytes) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ReadOptions' with the minimum fields required to make a request. @@ -1668,7 +1671,7 @@ roTransaction = lens _roTransaction (\ s a -> s{_roTransaction = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON ReadOptions where parseJSON @@ -1794,7 +1797,7 @@ data CommitRequest = CommitRequest' { _crMutations :: !(Maybe [Mutation]) , _crMode :: !(Maybe CommitRequestMode) - , _crTransaction :: !(Maybe Base64) + , _crTransaction :: !(Maybe Bytes) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'CommitRequest' with the minimum fields required to make a request. @@ -1839,7 +1842,7 @@ crTransaction = lens _crTransaction (\ s a -> s{_crTransaction = a}) - . mapping _Base64 + . mapping _Bytes instance FromJSON CommitRequest where parseJSON @@ -2093,7 +2096,7 @@ -- -- /See:/ 'gqlQueryParameter' smart constructor. data GqlQueryParameter = GqlQueryParameter' - { _gqpCursor :: !(Maybe Base64) + { _gqpCursor :: !(Maybe Bytes) , _gqpValue :: !(Maybe Value) } deriving (Eq,Show,Data,Typeable,Generic) @@ -2116,7 +2119,7 @@ gqpCursor :: Lens' GqlQueryParameter (Maybe ByteString) gqpCursor = lens _gqpCursor (\ s a -> s{_gqpCursor = a}) . - mapping _Base64 + mapping _Bytes -- | A value parameter. gqpValue :: Lens' GqlQueryParameter (Maybe Value) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-datastore-0.1.1/gogol-datastore.cabal new/gogol-datastore-0.3.0/gogol-datastore.cabal --- old/gogol-datastore-0.1.1/gogol-datastore.cabal 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-datastore-0.3.0/gogol-datastore.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-datastore -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Datastore SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -48,5 +48,5 @@ , Network.Google.Datastore.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-dataproc for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-dataproc for openSUSE:Factory checked in at 2017-08-31 20:52:49 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-dataproc (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-dataproc.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-dataproc" Thu Aug 31 20:52:49 2017 rev:2 rq:513295 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-dataproc/ghc-gogol-dataproc.changes 2017-05-10 20:39:59.439969197 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-dataproc.new/ghc-gogol-dataproc.changes 2017-08-31 20:52:50.669925488 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:27 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-dataproc-0.1.1.tar.gz New: ---- gogol-dataproc-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-dataproc.spec ++++++ --- /var/tmp/diff_new_pack.CaeWFv/_old 2017-08-31 20:52:51.465813662 +0200 +++ /var/tmp/diff_new_pack.CaeWFv/_new 2017-08-31 20:52:51.469813101 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-dataproc Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Dataproc SDK License: MPL-2.0 @@ -31,7 +31,7 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build %description -Manages Hadoop-based clusters and jobs on Google Cloud Platform. +An API for managing Hadoop-based clusters and jobs on Google Cloud Platform. /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! ++++++ gogol-dataproc-0.1.1.tar.gz -> gogol-dataproc-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/README.md new/gogol-dataproc-0.3.0/README.md --- old/gogol-dataproc-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/README.md 2017-07-12 16:51:29.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-dataproc-0.1.1/gen/Network/Google/Dataproc/Types/Product.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc/Types/Product.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Dataproc/Types/Product.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc/Types/Product.hs 2017-07-12 16:51:29.000000000 +0200 @@ -43,7 +43,7 @@ , _jrProjectId = Nothing } --- | [Required] The job ID, which must be unique within the project. The job +-- | [Optional] The job ID, which must be unique within the project. The job -- ID is generated by the server upon job submission or provided by the -- user as a means to perform retries without creating duplicate jobs. The -- ID must contain only letters (a-z, A-Z), numbers (0-9), underscores (_), @@ -191,7 +191,7 @@ { _osAddtional = _Coerce # pOsAddtional_ } --- | Properties of the object. Contains field \'ype with type URL. +-- | Properties of the object. Contains field \'type with type URL. osAddtional :: Lens' OperationSchema (HashMap Text JSONValue) osAddtional = lens _osAddtional (\ s a -> s{_osAddtional = a}) . @@ -262,8 +262,9 @@ { _dcrOutputURI = Nothing } --- | [Output-only] The Google Cloud Storage URI of the diagnostic output. --- This is a plain text file with a summary of collected diagnostics. +-- | [Output-only] The Google Cloud Storage URI of the diagnostic output. The +-- output report is a plain text file with a summary of collected +-- diagnostics. dcrOutputURI :: Lens' DiagnoseClusterResults (Maybe Text) dcrOutputURI = lens _dcrOutputURI (\ s a -> s{_dcrOutputURI = a}) @@ -279,8 +280,8 @@ = object (catMaybes [("outputUri" .=) <$> _dcrOutputURI]) --- | The config settings for Google Compute Engine resources in an instance --- group, such as a master or worker group. +-- | [Optional] The config settings for Google Compute Engine resources in an +-- instance group, such as a master or worker group. -- -- /See:/ 'instanceGroupConfig' smart constructor. data InstanceGroupConfig = InstanceGroupConfig' @@ -323,21 +324,22 @@ , _igcMachineTypeURI = Nothing } --- | The number of VM instances in the instance group. For master instance --- groups, must be set to 1. +-- | [Required] The number of VM instances in the instance group. For master +-- instance groups, must be set to 1. igcNumInstances :: Lens' InstanceGroupConfig (Maybe Int32) igcNumInstances = lens _igcNumInstances (\ s a -> s{_igcNumInstances = a}) . mapping _Coerce --- | Disk option config settings. +-- | [Optional] Disk option config settings. igcDiskConfig :: Lens' InstanceGroupConfig (Maybe DiskConfig) igcDiskConfig = lens _igcDiskConfig (\ s a -> s{_igcDiskConfig = a}) --- | Specifies that this instance group contains Preemptible Instances. +-- | [Optional] Specifies that this instance group contains preemptible +-- instances. igcIsPreemptible :: Lens' InstanceGroupConfig (Maybe Bool) igcIsPreemptible = lens _igcIsPreemptible @@ -349,9 +351,10 @@ igcImageURI = lens _igcImageURI (\ s a -> s{_igcImageURI = a}) --- | The list of instance names. Cloud Dataproc derives the names from --- \`cluster_name\`, \`num_instances\`, and the instance group if not set --- by user (recommended practice is to let Cloud Dataproc derive the name). +-- | [Optional] The list of instance names. Cloud Dataproc derives the names +-- from \`cluster_name\`, \`num_instances\`, and the instance group if not +-- set by user (recommended practice is to let Cloud Dataproc derive the +-- name). igcInstanceNames :: Lens' InstanceGroupConfig [Text] igcInstanceNames = lens _igcInstanceNames @@ -367,8 +370,8 @@ = lens _igcManagedGroupConfig (\ s a -> s{_igcManagedGroupConfig = a}) --- | The Google Compute Engine machine type used for cluster instances. --- Example: +-- | [Required] The Google Compute Engine machine type used for cluster +-- instances. Example: -- \`https:\/\/www.googleapis.com\/compute\/v1\/projects\/[project_id]\/zones\/us-east1-a\/machineTypes\/n1-standard-2\`. igcMachineTypeURI :: Lens' InstanceGroupConfig (Maybe Text) igcMachineTypeURI @@ -399,7 +402,8 @@ ("managedGroupConfig" .=) <$> _igcManagedGroupConfig, ("machineTypeUri" .=) <$> _igcMachineTypeURI]) --- | A Cloud Dataproc job for running Spark applications on YARN. +-- | A Cloud Dataproc job for running [Apache +-- Spark](http:\/\/spark.apache.org\/) applications on YARN. -- -- /See:/ 'sparkJob' smart constructor. data SparkJob = SparkJob' @@ -598,7 +602,8 @@ } -- | [Optional] Number of attached SSDs, from 0 to 4 (default is 0). If SSDs --- are not attached, the boot disk is used to store runtime logs and HDFS +-- are not attached, the boot disk is used to store runtime logs and +-- [HDFS](https:\/\/hadoop.apache.org\/docs\/r1.2.1\/hdfs_user_guide.html) -- data. If one or more SSDs are attached, this runtime bulk data is spread -- across them, and the boot disk contains only basic config and installed -- binaries. @@ -629,6 +634,43 @@ [("numLocalSsds" .=) <$> _dcNumLocalSsds, ("bootDiskSizeGb" .=) <$> _dcBootDiskSizeGb]) +-- | [Output-only] labels associated with the operation +-- +-- /See:/ 'clusterOperationMetadataLabels' smart constructor. +newtype ClusterOperationMetadataLabels = ClusterOperationMetadataLabels' + { _comlAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClusterOperationMetadataLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'comlAddtional' +clusterOperationMetadataLabels + :: HashMap Text Text -- ^ 'comlAddtional' + -> ClusterOperationMetadataLabels +clusterOperationMetadataLabels pComlAddtional_ = + ClusterOperationMetadataLabels' + { _comlAddtional = _Coerce # pComlAddtional_ + } + +comlAddtional :: Lens' ClusterOperationMetadataLabels (HashMap Text Text) +comlAddtional + = lens _comlAddtional + (\ s a -> s{_comlAddtional = a}) + . _Coerce + +instance FromJSON ClusterOperationMetadataLabels + where + parseJSON + = withObject "ClusterOperationMetadataLabels" + (\ o -> + ClusterOperationMetadataLabels' <$> + (parseJSONObject o)) + +instance ToJSON ClusterOperationMetadataLabels where + toJSON = toJSON . _comlAddtional + -- | The response message for Operations.ListOperations. -- -- /See:/ 'listOperationsResponse' smart constructor. @@ -723,9 +765,11 @@ -- /See:/ 'cluster' smart constructor. data Cluster = Cluster' { _cStatus :: !(Maybe ClusterStatus) + , _cMetrics :: !(Maybe ClusterMetrics) , _cClusterUuid :: !(Maybe Text) , _cConfig :: !(Maybe ClusterConfig) , _cClusterName :: !(Maybe Text) + , _cLabels :: !(Maybe ClusterLabels) , _cProjectId :: !(Maybe Text) , _cStatusHistory :: !(Maybe [ClusterStatus]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -736,12 +780,16 @@ -- -- * 'cStatus' -- +-- * 'cMetrics' +-- -- * 'cClusterUuid' -- -- * 'cConfig' -- -- * 'cClusterName' -- +-- * 'cLabels' +-- -- * 'cProjectId' -- -- * 'cStatusHistory' @@ -750,9 +798,11 @@ cluster = Cluster' { _cStatus = Nothing + , _cMetrics = Nothing , _cClusterUuid = Nothing , _cConfig = Nothing , _cClusterName = Nothing + , _cLabels = Nothing , _cProjectId = Nothing , _cStatusHistory = Nothing } @@ -761,6 +811,12 @@ cStatus :: Lens' Cluster (Maybe ClusterStatus) cStatus = lens _cStatus (\ s a -> s{_cStatus = a}) +-- | Contains cluster daemon metrics such as HDFS and YARN stats. **Beta +-- Feature**: This report is available for testing purposes only. It may be +-- changed before final release. +cMetrics :: Lens' Cluster (Maybe ClusterMetrics) +cMetrics = lens _cMetrics (\ s a -> s{_cMetrics = a}) + -- | [Output-only] A cluster UUID (Unique Universal Identifier). Cloud -- Dataproc generates this value when it creates the cluster. cClusterUuid :: Lens' Cluster (Maybe Text) @@ -778,6 +834,15 @@ cClusterName = lens _cClusterName (\ s a -> s{_cClusterName = a}) +-- | [Optional] The labels to associate with this cluster. Label **keys** +-- must contain 1 to 63 characters, and must conform to [RFC +-- 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). Label **values** may be +-- empty, but, if present, must contain 1 to 63 characters, and must +-- conform to [RFC 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). No more +-- than 32 labels can be associated with a cluster. +cLabels :: Lens' Cluster (Maybe ClusterLabels) +cLabels = lens _cLabels (\ s a -> s{_cLabels = a}) + -- | [Required] The Google Cloud Platform project ID that the cluster belongs -- to. cProjectId :: Lens' Cluster (Maybe Text) @@ -797,9 +862,11 @@ = withObject "Cluster" (\ o -> Cluster' <$> - (o .:? "status") <*> (o .:? "clusterUuid") <*> - (o .:? "config") + (o .:? "status") <*> (o .:? "metrics") <*> + (o .:? "clusterUuid") + <*> (o .:? "config") <*> (o .:? "clusterName") + <*> (o .:? "labels") <*> (o .:? "projectId") <*> (o .:? "statusHistory" .!= mempty)) @@ -808,12 +875,52 @@ = object (catMaybes [("status" .=) <$> _cStatus, + ("metrics" .=) <$> _cMetrics, ("clusterUuid" .=) <$> _cClusterUuid, ("config" .=) <$> _cConfig, ("clusterName" .=) <$> _cClusterName, + ("labels" .=) <$> _cLabels, ("projectId" .=) <$> _cProjectId, ("statusHistory" .=) <$> _cStatusHistory]) +-- | [Optional] The labels to associate with this job. Label **keys** must +-- contain 1 to 63 characters, and must conform to [RFC +-- 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). Label **values** may be +-- empty, but, if present, must contain 1 to 63 characters, and must +-- conform to [RFC 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). No more +-- than 32 labels can be associated with a job. +-- +-- /See:/ 'jobLabels' smart constructor. +newtype JobLabels = JobLabels' + { _jlAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'JobLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'jlAddtional' +jobLabels + :: HashMap Text Text -- ^ 'jlAddtional' + -> JobLabels +jobLabels pJlAddtional_ = + JobLabels' + { _jlAddtional = _Coerce # pJlAddtional_ + } + +jlAddtional :: Lens' JobLabels (HashMap Text Text) +jlAddtional + = lens _jlAddtional (\ s a -> s{_jlAddtional = a}) . + _Coerce + +instance FromJSON JobLabels where + parseJSON + = withObject "JobLabels" + (\ o -> JobLabels' <$> (parseJSONObject o)) + +instance ToJSON JobLabels where + toJSON = toJSON . _jlAddtional + -- | A request to submit a job. -- -- /See:/ 'submitJobRequest' smart constructor. @@ -846,6 +953,57 @@ toJSON SubmitJobRequest'{..} = object (catMaybes [("job" .=) <$> _sjrJob]) +-- | Contains cluster daemon metrics, such as HDFS and YARN stats. **Beta +-- Feature**: This report is available for testing purposes only. It may be +-- changed before final release. +-- +-- /See:/ 'clusterMetrics' smart constructor. +data ClusterMetrics = ClusterMetrics' + { _cmYarnMetrics :: !(Maybe ClusterMetricsYarnMetrics) + , _cmHdfsMetrics :: !(Maybe ClusterMetricsHdfsMetrics) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClusterMetrics' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cmYarnMetrics' +-- +-- * 'cmHdfsMetrics' +clusterMetrics + :: ClusterMetrics +clusterMetrics = + ClusterMetrics' + { _cmYarnMetrics = Nothing + , _cmHdfsMetrics = Nothing + } + +-- | The YARN metrics. +cmYarnMetrics :: Lens' ClusterMetrics (Maybe ClusterMetricsYarnMetrics) +cmYarnMetrics + = lens _cmYarnMetrics + (\ s a -> s{_cmYarnMetrics = a}) + +-- | The HDFS metrics. +cmHdfsMetrics :: Lens' ClusterMetrics (Maybe ClusterMetricsHdfsMetrics) +cmHdfsMetrics + = lens _cmHdfsMetrics + (\ s a -> s{_cmHdfsMetrics = a}) + +instance FromJSON ClusterMetrics where + parseJSON + = withObject "ClusterMetrics" + (\ o -> + ClusterMetrics' <$> + (o .:? "yarnMetrics") <*> (o .:? "hdfsMetrics")) + +instance ToJSON ClusterMetrics where + toJSON ClusterMetrics'{..} + = object + (catMaybes + [("yarnMetrics" .=) <$> _cmYarnMetrics, + ("hdfsMetrics" .=) <$> _cmHdfsMetrics]) + -- | This resource represents a long-running operation that is the result of -- a network API call. -- @@ -888,7 +1046,7 @@ oDone :: Lens' Operation (Maybe Bool) oDone = lens _oDone (\ s a -> s{_oDone = a}) --- | The error result of the operation in case of failure. +-- | The error result of the operation in case of failure or cancellation. oError :: Lens' Operation (Maybe Status) oError = lens _oError (\ s a -> s{_oError = a}) @@ -960,7 +1118,8 @@ instance ToJSON Empty where toJSON = const emptyObject --- | A Cloud Dataproc job for running Hive queries on YARN. +-- | A Cloud Dataproc job for running [Apache +-- Hive](https:\/\/hive.apache.org\/) queries on YARN. -- -- /See:/ 'hiveJob' smart constructor. data HiveJob = HiveJob' @@ -1193,8 +1352,8 @@ -- | [Optional] Commands to execute on each node after config is completed. -- By default, executables are run on master and all worker nodes. You can -- test a node\'s role metadata to run an executable on a master or worker --- node, as shown below: --- ROLE=$(\/usr\/share\/google\/get_metadata_value attributes\/role) if [[ \"${ROLE}\" +-- node, as shown below using \`curl\` (you can also use \`wget\`): +-- ROLE=$(curl -H Metadata-Flavor:Google http:\/\/metadata\/computeMetadata\/v1\/instance\/attributes\/dataproc-role) if [[ \"${ROLE}\" -- == \'Master\' ]]; then ... master specific actions ... else ... worker -- specific actions ... fi ccInitializationActions :: Lens' ClusterConfig [NodeInitializationAction] @@ -1336,23 +1495,23 @@ , _cosDetails = Nothing } --- | A message containing the operation state. +-- | [Output-only] A message containing the operation state. cosState :: Lens' ClusterOperationStatus (Maybe Text) cosState = lens _cosState (\ s a -> s{_cosState = a}) --- | A message containing the detailed operation state. +-- | [Output-only] A message containing the detailed operation state. cosInnerState :: Lens' ClusterOperationStatus (Maybe Text) cosInnerState = lens _cosInnerState (\ s a -> s{_cosInnerState = a}) --- | The time this state was entered. +-- | [Output-only] The time this state was entered. cosStateStartTime :: Lens' ClusterOperationStatus (Maybe Text) cosStateStartTime = lens _cosStateStartTime (\ s a -> s{_cosStateStartTime = a}) --- | A message containing any operation metadata details. +-- | [Output-only]A message containing any operation metadata details. cosDetails :: Lens' ClusterOperationStatus (Maybe Text) cosDetails = lens _cosDetails (\ s a -> s{_cosDetails = a}) @@ -1394,7 +1553,7 @@ { _sdiAddtional = _Coerce # pSdiAddtional_ } --- | Properties of the object. Contains field \'ype with type URL. +-- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional = lens _sdiAddtional (\ s a -> s{_sdiAddtional = a}) @@ -1499,6 +1658,41 @@ [("executionTimeout" .=) <$> _niaExecutionTimeout, ("executableFile" .=) <$> _niaExecutableFile]) +-- | The YARN metrics. +-- +-- /See:/ 'clusterMetricsYarnMetrics' smart constructor. +newtype ClusterMetricsYarnMetrics = ClusterMetricsYarnMetrics' + { _cmymAddtional :: HashMap Text (Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClusterMetricsYarnMetrics' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cmymAddtional' +clusterMetricsYarnMetrics + :: HashMap Text Int64 -- ^ 'cmymAddtional' + -> ClusterMetricsYarnMetrics +clusterMetricsYarnMetrics pCmymAddtional_ = + ClusterMetricsYarnMetrics' + { _cmymAddtional = _Coerce # pCmymAddtional_ + } + +cmymAddtional :: Lens' ClusterMetricsYarnMetrics (HashMap Text Int64) +cmymAddtional + = lens _cmymAddtional + (\ s a -> s{_cmymAddtional = a}) + . _Coerce + +instance FromJSON ClusterMetricsYarnMetrics where + parseJSON + = withObject "ClusterMetricsYarnMetrics" + (\ o -> + ClusterMetricsYarnMetrics' <$> (parseJSONObject o)) + +instance ToJSON ClusterMetricsYarnMetrics where + toJSON = toJSON . _cmymAddtional + -- | Cloud Dataproc job config. -- -- /See:/ 'jobPlacement' smart constructor. @@ -1555,6 +1749,7 @@ -- /See:/ 'gceClusterConfig' smart constructor. data GceClusterConfig = GceClusterConfig' { _gccSubnetworkURI :: !(Maybe Text) + , _gccInternalIPOnly :: !(Maybe Bool) , _gccNetworkURI :: !(Maybe Text) , _gccZoneURI :: !(Maybe Text) , _gccMetadata :: !(Maybe GceClusterConfigMetadata) @@ -1568,6 +1763,8 @@ -- -- * 'gccSubnetworkURI' -- +-- * 'gccInternalIPOnly' +-- -- * 'gccNetworkURI' -- -- * 'gccZoneURI' @@ -1582,6 +1779,7 @@ gceClusterConfig = GceClusterConfig' { _gccSubnetworkURI = Nothing + , _gccInternalIPOnly = Nothing , _gccNetworkURI = Nothing , _gccZoneURI = Nothing , _gccMetadata = Nothing @@ -1589,7 +1787,7 @@ , _gccTags = Nothing } --- | The Google Compute Engine subnetwork to be used for machine +-- | [Optional] The Google Compute Engine subnetwork to be used for machine -- communications. Cannot be specified with network_uri. Example: -- \`https:\/\/www.googleapis.com\/compute\/v1\/projects\/[project_id]\/regions\/us-east1\/sub0\`. gccSubnetworkURI :: Lens' GceClusterConfig (Maybe Text) @@ -1597,12 +1795,23 @@ = lens _gccSubnetworkURI (\ s a -> s{_gccSubnetworkURI = a}) --- | The Google Compute Engine network to be used for machine communications. --- Cannot be specified with subnetwork_uri. If neither network_uri nor --- subnetwork_uri is specified, the \"default\" network of the project is --- used, if it exists. Cannot be a \"Custom Subnet Network\" (see --- https:\/\/cloud.google.com\/compute\/docs\/subnetworks for more --- information). Example: +-- | [Optional] If true, all instances in the cluster will only have internal +-- IP addresses. By default, clusters are not restricted to internal IP +-- addresses, and will have ephemeral external IP addresses assigned to +-- each instance. This \`internal_ip_only\` restriction can only be enabled +-- for subnetwork enabled networks, and all off-cluster dependencies must +-- be configured to be accessible without external IP addresses. +gccInternalIPOnly :: Lens' GceClusterConfig (Maybe Bool) +gccInternalIPOnly + = lens _gccInternalIPOnly + (\ s a -> s{_gccInternalIPOnly = a}) + +-- | [Optional] The Google Compute Engine network to be used for machine +-- communications. Cannot be specified with subnetwork_uri. If neither +-- \`network_uri\` nor \`subnetwork_uri\` is specified, the \"default\" +-- network of the project is used, if it exists. Cannot be a \"Custom +-- Subnet Network\" (see [Using Subnetworks](\/compute\/docs\/subnetworks) +-- for more information). Example: -- \`https:\/\/www.googleapis.com\/compute\/v1\/projects\/[project_id]\/regions\/global\/default\`. gccNetworkURI :: Lens' GceClusterConfig (Maybe Text) gccNetworkURI @@ -1616,17 +1825,20 @@ gccZoneURI = lens _gccZoneURI (\ s a -> s{_gccZoneURI = a}) --- | The Google Compute Engine metadata entries to add to all instances. +-- | The Google Compute Engine metadata entries to add to all instances (see +-- [Project and instance +-- metadata](https:\/\/cloud.google.com\/compute\/docs\/storing-retrieving-metadata#project_and_instance_metadata)). gccMetadata :: Lens' GceClusterConfig (Maybe GceClusterConfigMetadata) gccMetadata = lens _gccMetadata (\ s a -> s{_gccMetadata = a}) --- | The URIs of service account scopes to be included in Google Compute --- Engine instances. The following base set of scopes is always included: * +-- | [Optional] The URIs of service account scopes to be included in Google +-- Compute Engine instances. The following base set of scopes is always +-- included: * -- https:\/\/www.googleapis.com\/auth\/cloud.useraccounts.readonly * -- https:\/\/www.googleapis.com\/auth\/devstorage.read_write * -- https:\/\/www.googleapis.com\/auth\/logging.write If no scopes are --- specfied, the following defaults are also provided: * +-- specified, the following defaults are also provided: * -- https:\/\/www.googleapis.com\/auth\/bigquery * -- https:\/\/www.googleapis.com\/auth\/bigtable.admin.table * -- https:\/\/www.googleapis.com\/auth\/bigtable.data * @@ -1638,7 +1850,8 @@ . _Default . _Coerce --- | The Google Compute Engine tags to add to all instances. +-- | The Google Compute Engine tags to add to all instances (see [Tagging +-- instances](\/compute\/docs\/label-or-tag-resources#tags)). gccTags :: Lens' GceClusterConfig [Text] gccTags = lens _gccTags (\ s a -> s{_gccTags = a}) . _Default @@ -1649,8 +1862,9 @@ = withObject "GceClusterConfig" (\ o -> GceClusterConfig' <$> - (o .:? "subnetworkUri") <*> (o .:? "networkUri") <*> - (o .:? "zoneUri") + (o .:? "subnetworkUri") <*> (o .:? "internalIpOnly") + <*> (o .:? "networkUri") + <*> (o .:? "zoneUri") <*> (o .:? "metadata") <*> (o .:? "serviceAccountScopes" .!= mempty) <*> (o .:? "tags" .!= mempty)) @@ -1660,6 +1874,7 @@ = object (catMaybes [("subnetworkUri" .=) <$> _gccSubnetworkURI, + ("internalIpOnly" .=) <$> _gccInternalIPOnly, ("networkUri" .=) <$> _gccNetworkURI, ("zoneUri" .=) <$> _gccZoneURI, ("metadata" .=) <$> _gccMetadata, @@ -1736,7 +1951,9 @@ ("stateStartTime" .=) <$> _osStateStartTime, ("details" .=) <$> _osDetails]) --- | The Google Compute Engine metadata entries to add to all instances. +-- | The Google Compute Engine metadata entries to add to all instances (see +-- [Project and instance +-- metadata](https:\/\/cloud.google.com\/compute\/docs\/storing-retrieving-metadata#project_and_instance_metadata)). -- -- /See:/ 'gceClusterConfigMetadata' smart constructor. newtype GceClusterConfigMetadata = GceClusterConfigMetadata' @@ -1846,6 +2063,44 @@ = object (catMaybes [("outputUri" .=) <$> _dcolOutputURI]) +-- | [Optional] The labels to associate with this cluster. Label **keys** +-- must contain 1 to 63 characters, and must conform to [RFC +-- 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). Label **values** may be +-- empty, but, if present, must contain 1 to 63 characters, and must +-- conform to [RFC 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). No more +-- than 32 labels can be associated with a cluster. +-- +-- /See:/ 'clusterLabels' smart constructor. +newtype ClusterLabels = ClusterLabels' + { _clAddtional :: HashMap Text Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClusterLabels' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'clAddtional' +clusterLabels + :: HashMap Text Text -- ^ 'clAddtional' + -> ClusterLabels +clusterLabels pClAddtional_ = + ClusterLabels' + { _clAddtional = _Coerce # pClAddtional_ + } + +clAddtional :: Lens' ClusterLabels (HashMap Text Text) +clAddtional + = lens _clAddtional (\ s a -> s{_clAddtional = a}) . + _Coerce + +instance FromJSON ClusterLabels where + parseJSON + = withObject "ClusterLabels" + (\ o -> ClusterLabels' <$> (parseJSONObject o)) + +instance ToJSON ClusterLabels where + toJSON = toJSON . _clAddtional + -- | A Cloud Dataproc job resource. -- -- /See:/ 'job' smart constructor. @@ -1857,6 +2112,8 @@ , _jReference :: !(Maybe JobReference) , _jSparkSQLJob :: !(Maybe SparkSQLJob) , _jHadoopJob :: !(Maybe HadoopJob) + , _jYarnApplications :: !(Maybe [YarnApplication]) + , _jLabels :: !(Maybe JobLabels) , _jPysparkJob :: !(Maybe PySparkJob) , _jDriverOutputResourceURI :: !(Maybe Text) , _jStatusHistory :: !(Maybe [JobStatus]) @@ -1882,6 +2139,10 @@ -- -- * 'jHadoopJob' -- +-- * 'jYarnApplications' +-- +-- * 'jLabels' +-- -- * 'jPysparkJob' -- -- * 'jDriverOutputResourceURI' @@ -1902,6 +2163,8 @@ , _jReference = Nothing , _jSparkSQLJob = Nothing , _jHadoopJob = Nothing + , _jYarnApplications = Nothing + , _jLabels = Nothing , _jPysparkJob = Nothing , _jDriverOutputResourceURI = Nothing , _jStatusHistory = Nothing @@ -1950,6 +2213,25 @@ jHadoopJob = lens _jHadoopJob (\ s a -> s{_jHadoopJob = a}) +-- | [Output-only] The collection of YARN applications spun up by this job. +-- **Beta** Feature: This report is available for testing purposes only. It +-- may be changed before final release. +jYarnApplications :: Lens' Job [YarnApplication] +jYarnApplications + = lens _jYarnApplications + (\ s a -> s{_jYarnApplications = a}) + . _Default + . _Coerce + +-- | [Optional] The labels to associate with this job. Label **keys** must +-- contain 1 to 63 characters, and must conform to [RFC +-- 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). Label **values** may be +-- empty, but, if present, must contain 1 to 63 characters, and must +-- conform to [RFC 1035](https:\/\/www.ietf.org\/rfc\/rfc1035.txt). No more +-- than 32 labels can be associated with a job. +jLabels :: Lens' Job (Maybe JobLabels) +jLabels = lens _jLabels (\ s a -> s{_jLabels = a}) + -- | Job is a Pyspark job. jPysparkJob :: Lens' Job (Maybe PySparkJob) jPysparkJob @@ -1991,6 +2273,8 @@ <*> (o .:? "reference") <*> (o .:? "sparkSqlJob") <*> (o .:? "hadoopJob") + <*> (o .:? "yarnApplications" .!= mempty) + <*> (o .:? "labels") <*> (o .:? "pysparkJob") <*> (o .:? "driverOutputResourceUri") <*> (o .:? "statusHistory" .!= mempty) @@ -2009,6 +2293,8 @@ ("reference" .=) <$> _jReference, ("sparkSqlJob" .=) <$> _jSparkSQLJob, ("hadoopJob" .=) <$> _jHadoopJob, + ("yarnApplications" .=) <$> _jYarnApplications, + ("labels" .=) <$> _jLabels, ("pysparkJob" .=) <$> _jPysparkJob, ("driverOutputResourceUri" .=) <$> _jDriverOutputResourceURI, @@ -2037,7 +2323,10 @@ instance ToJSON DiagnoseClusterRequest where toJSON = const emptyObject --- | A Cloud Dataproc job for running Hadoop MapReduce jobs on YARN. +-- | A Cloud Dataproc job for running [Apache Hadoop +-- MapReduce](https:\/\/hadoop.apache.org\/docs\/current\/hadoop-mapreduce-client\/hadoop-mapreduce-client-core\/MapReduceTutorial.html) +-- jobs on [Apache Hadoop +-- YARN](https:\/\/hadoop.apache.org\/docs\/r2.7.1\/hadoop-yarn\/hadoop-yarn-site\/YARN.html). -- -- /See:/ 'hadoopJob' smart constructor. data HadoopJob = HadoopJob' @@ -2182,6 +2471,7 @@ { _comStatus :: !(Maybe ClusterOperationStatus) , _comClusterUuid :: !(Maybe Text) , _comClusterName :: !(Maybe Text) + , _comLabels :: !(Maybe ClusterOperationMetadataLabels) , _comOperationType :: !(Maybe Text) , _comStatusHistory :: !(Maybe [ClusterOperationStatus]) , _comDescription :: !(Maybe Text) @@ -2197,6 +2487,8 @@ -- -- * 'comClusterName' -- +-- * 'comLabels' +-- -- * 'comOperationType' -- -- * 'comStatusHistory' @@ -2209,6 +2501,7 @@ { _comStatus = Nothing , _comClusterUuid = Nothing , _comClusterName = Nothing + , _comLabels = Nothing , _comOperationType = Nothing , _comStatusHistory = Nothing , _comDescription = Nothing @@ -2219,18 +2512,23 @@ comStatus = lens _comStatus (\ s a -> s{_comStatus = a}) --- | Cluster UUId for the operation. +-- | [Output-only] Cluster UUID for the operation. comClusterUuid :: Lens' ClusterOperationMetadata (Maybe Text) comClusterUuid = lens _comClusterUuid (\ s a -> s{_comClusterUuid = a}) --- | Name of the cluster for the operation. +-- | [Output-only] Name of the cluster for the operation. comClusterName :: Lens' ClusterOperationMetadata (Maybe Text) comClusterName = lens _comClusterName (\ s a -> s{_comClusterName = a}) +-- | [Output-only] labels associated with the operation +comLabels :: Lens' ClusterOperationMetadata (Maybe ClusterOperationMetadataLabels) +comLabels + = lens _comLabels (\ s a -> s{_comLabels = a}) + -- | [Output-only] The operation type. comOperationType :: Lens' ClusterOperationMetadata (Maybe Text) comOperationType @@ -2258,6 +2556,7 @@ ClusterOperationMetadata' <$> (o .:? "status") <*> (o .:? "clusterUuid") <*> (o .:? "clusterName") + <*> (o .:? "labels") <*> (o .:? "operationType") <*> (o .:? "statusHistory" .!= mempty) <*> (o .:? "description")) @@ -2269,11 +2568,13 @@ [("status" .=) <$> _comStatus, ("clusterUuid" .=) <$> _comClusterUuid, ("clusterName" .=) <$> _comClusterName, + ("labels" .=) <$> _comLabels, ("operationType" .=) <$> _comOperationType, ("statusHistory" .=) <$> _comStatusHistory, ("description" .=) <$> _comDescription]) --- | A Cloud Dataproc job for running Spark SQL queries. +-- | A Cloud Dataproc job for running [Apache Spark +-- SQL](http:\/\/spark.apache.org\/sql\/) queries. -- -- /See:/ 'sparkSQLJob' smart constructor. data SparkSQLJob = SparkSQLJob' @@ -2520,7 +2821,9 @@ instance ToJSON SparkJobProperties where toJSON = toJSON . _sjpAddtional --- | A Cloud Dataproc job for running PySpark applications on YARN. +-- | A Cloud Dataproc job for running [Apache +-- PySpark](https:\/\/spark.apache.org\/docs\/0.9.0\/python-programming-guide.html) +-- applications on YARN. -- -- /See:/ 'pySparkJob' smart constructor. data PySparkJob = PySparkJob' @@ -2735,7 +3038,7 @@ , _lcrClusters = Nothing } --- | [Optional] This token is included in the response if there are more +-- | [Output-only] This token is included in the response if there are more -- results to fetch. To fetch additional results, provide this value as the -- \`page_token\` in a subsequent ListClustersRequest. lcrNextPageToken :: Lens' ListClustersResponse (Maybe Text) @@ -3015,7 +3318,7 @@ , _jsDetails = Nothing } --- | [Required] A state message specifying the overall job state. +-- | [Output-only] A state message specifying the overall job state. jsState :: Lens' JobStatus (Maybe Text) jsState = lens _jsState (\ s a -> s{_jsState = a}) @@ -3025,8 +3328,8 @@ = lens _jsStateStartTime (\ s a -> s{_jsStateStartTime = a}) --- | [Optional] Job state details, such as an error description if the state --- is ERROR. +-- | [Output-only] Optional job state details, such as an error description +-- if the state is ERROR. jsDetails :: Lens' JobStatus (Maybe Text) jsDetails = lens _jsDetails (\ s a -> s{_jsDetails = a}) @@ -3083,6 +3386,41 @@ instance ToJSON PigJobScriptVariables where toJSON = toJSON . _pjsvAddtional +-- | The HDFS metrics. +-- +-- /See:/ 'clusterMetricsHdfsMetrics' smart constructor. +newtype ClusterMetricsHdfsMetrics = ClusterMetricsHdfsMetrics' + { _cmhmAddtional :: HashMap Text (Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ClusterMetricsHdfsMetrics' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cmhmAddtional' +clusterMetricsHdfsMetrics + :: HashMap Text Int64 -- ^ 'cmhmAddtional' + -> ClusterMetricsHdfsMetrics +clusterMetricsHdfsMetrics pCmhmAddtional_ = + ClusterMetricsHdfsMetrics' + { _cmhmAddtional = _Coerce # pCmhmAddtional_ + } + +cmhmAddtional :: Lens' ClusterMetricsHdfsMetrics (HashMap Text Int64) +cmhmAddtional + = lens _cmhmAddtional + (\ s a -> s{_cmhmAddtional = a}) + . _Coerce + +instance FromJSON ClusterMetricsHdfsMetrics where + parseJSON + = withObject "ClusterMetricsHdfsMetrics" + (\ o -> + ClusterMetricsHdfsMetrics' <$> (parseJSONObject o)) + +instance ToJSON ClusterMetricsHdfsMetrics where + toJSON = toJSON . _cmhmAddtional + -- | The normal response of the operation in case of success. If the original -- method returns no data on success, such as \`Delete\`, the response is -- \`google.protobuf.Empty\`. If the original method is standard @@ -3110,7 +3448,7 @@ { _orAddtional = _Coerce # pOrAddtional_ } --- | Properties of the object. Contains field \'ype with type URL. +-- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) orAddtional = lens _orAddtional (\ s a -> s{_orAddtional = a}) . @@ -3189,17 +3527,17 @@ , _csDetail = Nothing } --- | The cluster\'s state. +-- | [Output-only] The cluster\'s state. csState :: Lens' ClusterStatus (Maybe Text) csState = lens _csState (\ s a -> s{_csState = a}) --- | Time when this state was entered. +-- | [Output-only] Time when this state was entered. csStateStartTime :: Lens' ClusterStatus (Maybe Text) csStateStartTime = lens _csStateStartTime (\ s a -> s{_csStateStartTime = a}) --- | Optional details of cluster\'s state. +-- | [Output-only] Optional details of cluster\'s state. csDetail :: Lens' ClusterStatus (Maybe Text) csDetail = lens _csDetail (\ s a -> s{_csDetail = a}) @@ -3219,7 +3557,83 @@ ("stateStartTime" .=) <$> _csStateStartTime, ("detail" .=) <$> _csDetail]) --- | A Cloud Dataproc job for running Pig queries on YARN. +-- | A YARN application created by a job. Application information is a subset +-- of org.apache.hadoop.yarn.proto.YarnProtos.ApplicationReportProto. +-- **Beta Feature**: This report is available for testing purposes only. It +-- may be changed before final release. +-- +-- /See:/ 'yarnApplication' smart constructor. +data YarnApplication = YarnApplication' + { _yaTrackingURL :: !(Maybe Text) + , _yaState :: !(Maybe Text) + , _yaProgress :: !(Maybe (Textual Double)) + , _yaName :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'YarnApplication' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'yaTrackingURL' +-- +-- * 'yaState' +-- +-- * 'yaProgress' +-- +-- * 'yaName' +yarnApplication + :: YarnApplication +yarnApplication = + YarnApplication' + { _yaTrackingURL = Nothing + , _yaState = Nothing + , _yaProgress = Nothing + , _yaName = Nothing + } + +-- | [Optional] The HTTP URL of the ApplicationMaster, HistoryServer, or +-- TimelineServer that provides application-specific information. The URL +-- uses the internal hostname, and requires a proxy server for resolution +-- and, possibly, access. +yaTrackingURL :: Lens' YarnApplication (Maybe Text) +yaTrackingURL + = lens _yaTrackingURL + (\ s a -> s{_yaTrackingURL = a}) + +-- | [Required] The application state. +yaState :: Lens' YarnApplication (Maybe Text) +yaState = lens _yaState (\ s a -> s{_yaState = a}) + +-- | [Required] The numerical progress of the application, from 1 to 100. +yaProgress :: Lens' YarnApplication (Maybe Double) +yaProgress + = lens _yaProgress (\ s a -> s{_yaProgress = a}) . + mapping _Coerce + +-- | [Required] The application name. +yaName :: Lens' YarnApplication (Maybe Text) +yaName = lens _yaName (\ s a -> s{_yaName = a}) + +instance FromJSON YarnApplication where + parseJSON + = withObject "YarnApplication" + (\ o -> + YarnApplication' <$> + (o .:? "trackingUrl") <*> (o .:? "state") <*> + (o .:? "progress") + <*> (o .:? "name")) + +instance ToJSON YarnApplication where + toJSON YarnApplication'{..} + = object + (catMaybes + [("trackingUrl" .=) <$> _yaTrackingURL, + ("state" .=) <$> _yaState, + ("progress" .=) <$> _yaProgress, + ("name" .=) <$> _yaName]) + +-- | A Cloud Dataproc job for running [Apache +-- Pig](https:\/\/pig.apache.org\/) queries on YARN. -- -- /See:/ 'pigJob' smart constructor. data PigJob = PigJob' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gen/Network/Google/Dataproc/Types.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc/Types.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Dataproc/Types.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc/Types.hs 2017-07-12 16:51:29.000000000 +0200 @@ -84,6 +84,11 @@ , dcNumLocalSsds , dcBootDiskSizeGb + -- * ClusterOperationMetadataLabels + , ClusterOperationMetadataLabels + , clusterOperationMetadataLabels + , comlAddtional + -- * ListOperationsResponse , ListOperationsResponse , listOperationsResponse @@ -99,17 +104,30 @@ , Cluster , cluster , cStatus + , cMetrics , cClusterUuid , cConfig , cClusterName + , cLabels , cProjectId , cStatusHistory + -- * JobLabels + , JobLabels + , jobLabels + , jlAddtional + -- * SubmitJobRequest , SubmitJobRequest , submitJobRequest , sjrJob + -- * ClusterMetrics + , ClusterMetrics + , clusterMetrics + , cmYarnMetrics + , cmHdfsMetrics + -- * Operation , Operation , operation @@ -183,6 +201,11 @@ , niaExecutionTimeout , niaExecutableFile + -- * ClusterMetricsYarnMetrics + , ClusterMetricsYarnMetrics + , clusterMetricsYarnMetrics + , cmymAddtional + -- * JobPlacement , JobPlacement , jobPlacement @@ -193,6 +216,7 @@ , GceClusterConfig , gceClusterConfig , gccSubnetworkURI + , gccInternalIPOnly , gccNetworkURI , gccZoneURI , gccMetadata @@ -222,6 +246,11 @@ , diagnoseClusterOutputLocation , dcolOutputURI + -- * ClusterLabels + , ClusterLabels + , clusterLabels + , clAddtional + -- * Job , Job , job @@ -232,6 +261,8 @@ , jReference , jSparkSQLJob , jHadoopJob + , jYarnApplications + , jLabels , jPysparkJob , jDriverOutputResourceURI , jStatusHistory @@ -260,6 +291,7 @@ , comStatus , comClusterUuid , comClusterName + , comLabels , comOperationType , comStatusHistory , comDescription @@ -352,6 +384,11 @@ , pigJobScriptVariables , pjsvAddtional + -- * ClusterMetricsHdfsMetrics + , ClusterMetricsHdfsMetrics + , clusterMetricsHdfsMetrics + , cmhmAddtional + -- * OperationResponse , OperationResponse , operationResponse @@ -369,6 +406,14 @@ , csStateStartTime , csDetail + -- * YarnApplication + , YarnApplication + , yarnApplication + , yaTrackingURL + , yaState + , yaProgress + , yaName + -- * PigJob , PigJob , pigJob diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gen/Network/Google/Dataproc.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Dataproc.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Dataproc.hs 2017-07-12 16:51:29.000000000 +0200 @@ -13,7 +13,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Manages Hadoop-based clusters and jobs on Google Cloud Platform. +-- An API for managing Hadoop-based clusters and jobs on Google Cloud +-- Platform. -- -- /See:/ <https://cloud.google.com/dataproc/ Google Cloud Dataproc API Reference> module Network.Google.Dataproc @@ -138,6 +139,11 @@ , dcNumLocalSsds , dcBootDiskSizeGb + -- ** ClusterOperationMetadataLabels + , ClusterOperationMetadataLabels + , clusterOperationMetadataLabels + , comlAddtional + -- ** ListOperationsResponse , ListOperationsResponse , listOperationsResponse @@ -153,17 +159,30 @@ , Cluster , cluster , cStatus + , cMetrics , cClusterUuid , cConfig , cClusterName + , cLabels , cProjectId , cStatusHistory + -- ** JobLabels + , JobLabels + , jobLabels + , jlAddtional + -- ** SubmitJobRequest , SubmitJobRequest , submitJobRequest , sjrJob + -- ** ClusterMetrics + , ClusterMetrics + , clusterMetrics + , cmYarnMetrics + , cmHdfsMetrics + -- ** Operation , Operation , operation @@ -237,6 +256,11 @@ , niaExecutionTimeout , niaExecutableFile + -- ** ClusterMetricsYarnMetrics + , ClusterMetricsYarnMetrics + , clusterMetricsYarnMetrics + , cmymAddtional + -- ** JobPlacement , JobPlacement , jobPlacement @@ -247,6 +271,7 @@ , GceClusterConfig , gceClusterConfig , gccSubnetworkURI + , gccInternalIPOnly , gccNetworkURI , gccZoneURI , gccMetadata @@ -276,6 +301,11 @@ , diagnoseClusterOutputLocation , dcolOutputURI + -- ** ClusterLabels + , ClusterLabels + , clusterLabels + , clAddtional + -- ** Job , Job , job @@ -286,6 +316,8 @@ , jReference , jSparkSQLJob , jHadoopJob + , jYarnApplications + , jLabels , jPysparkJob , jDriverOutputResourceURI , jStatusHistory @@ -314,6 +346,7 @@ , comStatus , comClusterUuid , comClusterName + , comLabels , comOperationType , comStatusHistory , comDescription @@ -406,6 +439,11 @@ , pigJobScriptVariables , pjsvAddtional + -- ** ClusterMetricsHdfsMetrics + , ClusterMetricsHdfsMetrics + , clusterMetricsHdfsMetrics + , cmhmAddtional + -- ** OperationResponse , OperationResponse , operationResponse @@ -423,6 +461,14 @@ , csStateStartTime , csDetail + -- ** YarnApplication + , YarnApplication + , yarnApplication + , yaTrackingURL + , yaState + , yaProgress + , yaName + -- ** PigJob , PigJob , pigJob diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Clusters/List.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Clusters/List.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Clusters/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Clusters/List.hs 2017-07-12 16:51:29.000000000 +0200 @@ -39,6 +39,7 @@ , prclAccessToken , prclUploadType , prclBearerToken + , prclFilter , prclRegion , prclPageToken , prclProjectId @@ -64,11 +65,12 @@ QueryParam "access_token" Text :> QueryParam "uploadType" Text :> QueryParam "bearer_token" Text :> - QueryParam "pageToken" Text :> - QueryParam "pageSize" (Textual Int32) :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListClustersResponse + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ListClustersResponse -- | Lists all regions\/{region}\/clusters in a project. -- @@ -80,6 +82,7 @@ , _prclAccessToken :: !(Maybe Text) , _prclUploadType :: !(Maybe Text) , _prclBearerToken :: !(Maybe Text) + , _prclFilter :: !(Maybe Text) , _prclRegion :: !Text , _prclPageToken :: !(Maybe Text) , _prclProjectId :: !Text @@ -103,6 +106,8 @@ -- -- * 'prclBearerToken' -- +-- * 'prclFilter' +-- -- * 'prclRegion' -- -- * 'prclPageToken' @@ -124,6 +129,7 @@ , _prclAccessToken = Nothing , _prclUploadType = Nothing , _prclBearerToken = Nothing + , _prclFilter = Nothing , _prclRegion = pPrclRegion_ , _prclPageToken = Nothing , _prclProjectId = pPrclProjectId_ @@ -164,12 +170,32 @@ = lens _prclBearerToken (\ s a -> s{_prclBearerToken = a}) +-- | [Optional] A filter constraining the clusters to list. Filters are +-- case-sensitive and have the following syntax: field:value [field:value] +-- ... or field = value [AND [field = value]] ... where **field** is one of +-- \`status.state\`, \`clusterName\`, or \`labels.[KEY]\`, and \`[KEY]\` is +-- a label key. **value** can be \`*\` to match all values. +-- \`status.state\` can be one of the following: \`ACTIVE\`, \`INACTIVE\`, +-- \`CREATING\`, \`RUNNING\`, \`ERROR\`, \`DELETING\`, or \`UPDATING\`. +-- \`ACTIVE\` contains the \`CREATING\`, \`UPDATING\`, and \`RUNNING\` +-- states. \`INACTIVE\` contains the \`DELETING\` and \`ERROR\` states. +-- \`clusterName\` is the name of the cluster provided at creation time. +-- Only the logical \`AND\` operator is supported; space-separated items +-- are treated as having an implicit \`AND\` operator. Example valid +-- filters are: status.state:ACTIVE clusterName:mycluster +-- labels.env:staging \\ labels.starred:* and status.state = ACTIVE AND +-- clusterName = mycluster \\ AND labels.env = staging AND labels.starred = +-- * +prclFilter :: Lens' ProjectsRegionsClustersList (Maybe Text) +prclFilter + = lens _prclFilter (\ s a -> s{_prclFilter = a}) + -- | [Required] The Cloud Dataproc region in which to handle the request. prclRegion :: Lens' ProjectsRegionsClustersList Text prclRegion = lens _prclRegion (\ s a -> s{_prclRegion = a}) --- | The standard List page token. +-- | [Optional] The standard List page token. prclPageToken :: Lens' ProjectsRegionsClustersList (Maybe Text) prclPageToken = lens _prclPageToken @@ -182,7 +208,7 @@ = lens _prclProjectId (\ s a -> s{_prclProjectId = a}) --- | The standard List page size. +-- | [Optional] The standard List page size. prclPageSize :: Lens' ProjectsRegionsClustersList (Maybe Int32) prclPageSize = lens _prclPageSize (\ s a -> s{_prclPageSize = a}) @@ -206,6 +232,7 @@ _prclAccessToken _prclUploadType _prclBearerToken + _prclFilter _prclPageToken _prclPageSize _prclCallback diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Jobs/List.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Jobs/List.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Jobs/List.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Jobs/List.hs 2017-07-12 16:51:29.000000000 +0200 @@ -41,6 +41,7 @@ , prjlUploadType , prjlBearerToken , prjlClusterName + , prjlFilter , prjlRegion , prjlPageToken , prjlProjectId @@ -68,11 +69,12 @@ QueryParam "uploadType" Text :> QueryParam "bearer_token" Text :> QueryParam "clusterName" Text :> - QueryParam "pageToken" Text :> - QueryParam "pageSize" (Textual Int32) :> - QueryParam "callback" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] ListJobsResponse + QueryParam "filter" Text :> + QueryParam "pageToken" Text :> + QueryParam "pageSize" (Textual Int32) :> + QueryParam "callback" Text :> + QueryParam "alt" AltJSON :> + Get '[JSON] ListJobsResponse -- | Lists regions\/{region}\/jobs in a project. -- @@ -86,6 +88,7 @@ , _prjlUploadType :: !(Maybe Text) , _prjlBearerToken :: !(Maybe Text) , _prjlClusterName :: !(Maybe Text) + , _prjlFilter :: !(Maybe Text) , _prjlRegion :: !Text , _prjlPageToken :: !(Maybe Text) , _prjlProjectId :: !Text @@ -113,6 +116,8 @@ -- -- * 'prjlClusterName' -- +-- * 'prjlFilter' +-- -- * 'prjlRegion' -- -- * 'prjlPageToken' @@ -136,6 +141,7 @@ , _prjlUploadType = Nothing , _prjlBearerToken = Nothing , _prjlClusterName = Nothing + , _prjlFilter = Nothing , _prjlRegion = pPrjlRegion_ , _prjlPageToken = Nothing , _prjlProjectId = pPrjlProjectId_ @@ -143,7 +149,8 @@ , _prjlCallback = Nothing } --- | [Optional] Specifies enumerated categories of jobs to list. +-- | [Optional] Specifies enumerated categories of jobs to list (default = +-- match ALL jobs). prjlJobStateMatcher :: Lens' ProjectsRegionsJobsList (Maybe Text) prjlJobStateMatcher = lens _prjlJobStateMatcher @@ -189,6 +196,20 @@ = lens _prjlClusterName (\ s a -> s{_prjlClusterName = a}) +-- | [Optional] A filter constraining the jobs to list. Filters are +-- case-sensitive and have the following syntax: field:value] ... or [field +-- = value] AND [field [= value]] ... where **field** is \`status.state\` +-- or \`labels.[KEY]\`, and \`[KEY]\` is a label key. **value** can be +-- \`*\` to match all values. \`status.state\` can be either \`ACTIVE\` or +-- \`INACTIVE\`. Only the logical \`AND\` operator is supported; +-- space-separated items are treated as having an implicit \`AND\` +-- operator. Example valid filters are: status.state:ACTIVE +-- labels.env:staging labels.starred:* and status.state = ACTIVE AND +-- labels.env = staging AND labels.starred = * +prjlFilter :: Lens' ProjectsRegionsJobsList (Maybe Text) +prjlFilter + = lens _prjlFilter (\ s a -> s{_prjlFilter = a}) + -- | [Required] The Cloud Dataproc region in which to handle the request. prjlRegion :: Lens' ProjectsRegionsJobsList Text prjlRegion @@ -232,6 +253,7 @@ _prjlUploadType _prjlBearerToken _prjlClusterName + _prjlFilter _prjlPageToken _prjlPageSize _prjlCallback diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Operations/Cancel.hs new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Operations/Cancel.hs --- old/gogol-dataproc-0.1.1/gen/Network/Google/Resource/Dataproc/Projects/Regions/Operations/Cancel.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gen/Network/Google/Resource/Dataproc/Projects/Regions/Operations/Cancel.hs 2017-07-12 16:51:29.000000000 +0200 @@ -26,7 +26,9 @@ -- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use -- Operations.GetOperation or other methods to check whether the -- cancellation succeeded or whether the operation completed despite --- cancellation. +-- cancellation. On successful cancellation, the operation is not deleted; +-- instead, it becomes an operation with an Operation.error value with a +-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ <https://cloud.google.com/dataproc/ Google Cloud Dataproc API Reference> for @dataproc.projects.regions.operations.cancel@. module Network.Google.Resource.Dataproc.Projects.Regions.Operations.Cancel @@ -72,7 +74,9 @@ -- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use -- Operations.GetOperation or other methods to check whether the -- cancellation succeeded or whether the operation completed despite --- cancellation. +-- cancellation. On successful cancellation, the operation is not deleted; +-- instead, it becomes an operation with an Operation.error value with a +-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ 'projectsRegionsOperationsCancel' smart constructor. data ProjectsRegionsOperationsCancel = ProjectsRegionsOperationsCancel' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-dataproc-0.1.1/gogol-dataproc.cabal new/gogol-dataproc-0.3.0/gogol-dataproc.cabal --- old/gogol-dataproc-0.1.1/gogol-dataproc.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-dataproc-0.3.0/gogol-dataproc.cabal 2017-07-12 16:51:29.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-dataproc -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Dataproc SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -14,7 +14,8 @@ extra-source-files: README.md src/.gitkeep description: - Manages Hadoop-based clusters and jobs on Google Cloud Platform. + An API for managing Hadoop-based clusters and jobs on Google Cloud + Platform. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -56,5 +57,5 @@ , Network.Google.Dataproc.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-dataflow for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-dataflow for openSUSE:Factory checked in at 2017-08-31 20:52:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-dataflow (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-dataflow.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-dataflow" Thu Aug 31 20:52:45 2017 rev:2 rq:513294 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-dataflow/ghc-gogol-dataflow.changes 2017-05-10 20:39:54.284696580 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-dataflow.new/ghc-gogol-dataflow.changes 2017-08-31 20:52:46.494512151 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:35 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-dataflow-0.1.1.tar.gz New: ---- gogol-dataflow-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-dataflow.spec ++++++ --- /var/tmp/diff_new_pack.I72n5L/_old 2017-08-31 20:52:47.186414936 +0200 +++ /var/tmp/diff_new_pack.I72n5L/_new 2017-08-31 20:52:47.190414373 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-dataflow Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Dataflow SDK License: MPL-2.0 @@ -31,8 +31,7 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build %description -Develops and executes data processing patterns like ETL, batch computation, and -continuous computation. +Manages Google Cloud Dataflow projects on Google Cloud Platform. /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! ++++++ gogol-dataflow-0.1.1.tar.gz -> gogol-dataflow-0.3.0.tar.gz ++++++ ++++ 4266 lines of diff (skipped)

1 0

commit ghc-gogol-customsearch for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-customsearch for openSUSE:Factory checked in at 2017-08-31 20:52:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-customsearch (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-customsearch.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-customsearch" Thu Aug 31 20:52:43 2017 rev:2 rq:513293 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-customsearch/ghc-gogol-customsearch.changes 2017-05-10 20:39:49.465376561 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-customsearch.new/ghc-gogol-customsearch.changes 2017-08-31 20:52:43.974866171 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:36 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-customsearch-0.1.1.tar.gz New: ---- gogol-customsearch-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-customsearch.spec ++++++ --- /var/tmp/diff_new_pack.WaZdgk/_old 2017-08-31 20:52:44.666768957 +0200 +++ /var/tmp/diff_new_pack.WaZdgk/_new 2017-08-31 20:52:44.670768394 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-customsearch Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google CustomSearch SDK License: MPL-2.0 ++++++ gogol-customsearch-0.1.1.tar.gz -> gogol-customsearch-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-customsearch-0.1.1/README.md new/gogol-customsearch-0.3.0/README.md --- old/gogol-customsearch-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-customsearch-0.3.0/README.md 2017-07-12 16:51:29.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-customsearch-0.1.1/gogol-customsearch.cabal new/gogol-customsearch-0.3.0/gogol-customsearch.cabal --- old/gogol-customsearch-0.1.1/gogol-customsearch.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-customsearch-0.3.0/gogol-customsearch.cabal 2017-07-12 16:51:29.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-customsearch -version: 0.1.1 +version: 0.3.0 synopsis: Google CustomSearch SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -42,5 +42,5 @@ , Network.Google.CustomSearch.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-container for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-container for openSUSE:Factory checked in at 2017-08-31 20:52:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-container (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-container.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-container" Thu Aug 31 20:52:40 2017 rev:2 rq:513291 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-container/ghc-gogol-container.changes 2017-05-10 20:39:42.558351107 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-container.new/ghc-gogol-container.changes 2017-08-31 20:52:42.847024638 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:44 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-container-0.1.1.tar.gz New: ---- gogol-container-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-container.spec ++++++ --- /var/tmp/diff_new_pack.PZdHA4/_old 2017-08-31 20:52:43.762895955 +0200 +++ /var/tmp/diff_new_pack.PZdHA4/_new 2017-08-31 20:52:43.766895392 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-container Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Container Engine SDK License: MPL-2.0 ++++++ gogol-container-0.1.1.tar.gz -> gogol-container-0.3.0.tar.gz ++++++ ++++ 2082 lines of diff (skipped)

1 0

commit ghc-gogol-compute for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-compute for openSUSE:Factory checked in at 2017-08-31 20:52:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-compute (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-compute.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-compute" Thu Aug 31 20:52:39 2017 rev:2 rq:513290 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-compute/ghc-gogol-compute.changes 2017-05-10 20:39:40.302669371 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-compute.new/ghc-gogol-compute.changes 2017-08-31 20:52:40.367373040 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:05 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-compute-0.1.1.tar.gz New: ---- gogol-compute-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-compute.spec ++++++ --- /var/tmp/diff_new_pack.gYl8Ie/_old 2017-08-31 20:52:41.291243232 +0200 +++ /var/tmp/diff_new_pack.gYl8Ie/_new 2017-08-31 20:52:41.299242108 +0200 @@ -19,7 +19,7 @@ %global without_prof 1 %global pkg_name gogol-compute Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Compute Engine SDK License: MPL-2.0 ++++++ gogol-compute-0.1.1.tar.gz -> gogol-compute-0.3.0.tar.gz ++++++ ++++ 10844 lines of diff (skipped)

1 0

commit ghc-gogol-cloudtrace for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-cloudtrace for openSUSE:Factory checked in at 2017-08-31 20:52:37 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-cloudtrace (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-cloudtrace.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-cloudtrace" Thu Aug 31 20:52:37 2017 rev:2 rq:513289 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-cloudtrace/ghc-gogol-cloudtrace.changes 2017-05-10 20:39:36.295234798 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-cloudtrace.new/ghc-gogol-cloudtrace.changes 2017-08-31 20:52:37.643755719 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:00 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-cloudtrace-0.1.1.tar.gz New: ---- gogol-cloudtrace-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-cloudtrace.spec ++++++ --- /var/tmp/diff_new_pack.amk5fu/_old 2017-08-31 20:52:38.527631531 +0200 +++ /var/tmp/diff_new_pack.amk5fu/_new 2017-08-31 20:52:38.527631531 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-cloudtrace Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Trace SDK License: MPL-2.0 ++++++ gogol-cloudtrace-0.1.1.tar.gz -> gogol-cloudtrace-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-cloudtrace-0.1.1/README.md new/gogol-cloudtrace-0.3.0/README.md --- old/gogol-cloudtrace-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-cloudtrace-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-cloudtrace-0.1.1/gogol-cloudtrace.cabal new/gogol-cloudtrace-0.3.0/gogol-cloudtrace.cabal --- old/gogol-cloudtrace-0.1.1/gogol-cloudtrace.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-cloudtrace-0.3.0/gogol-cloudtrace.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-cloudtrace -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Trace SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -47,5 +47,5 @@ , Network.Google.CloudTrace.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-cloudmonitoring for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-gogol-cloudmonitoring for openSUSE:Factory checked in at 2017-08-31 20:52:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-cloudmonitoring (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-cloudmonitoring.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-cloudmonitoring" Thu Aug 31 20:52:33 2017 rev:2 rq:513288 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-cloudmonitoring/ghc-gogol-cloudmonitoring.changes 2017-05-10 20:39:33.435638273 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-cloudmonitoring.new/ghc-gogol-cloudmonitoring.changes 2017-08-31 20:52:35.432066471 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:13 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-cloudmonitoring-0.1.1.tar.gz New: ---- gogol-cloudmonitoring-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-cloudmonitoring.spec ++++++ --- /var/tmp/diff_new_pack.w8KEcV/_old 2017-08-31 20:52:37.079834953 +0200 +++ /var/tmp/diff_new_pack.w8KEcV/_new 2017-08-31 20:52:37.091833266 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-cloudmonitoring Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Monitoring SDK License: MPL-2.0 ++++++ gogol-cloudmonitoring-0.1.1.tar.gz -> gogol-cloudmonitoring-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-cloudmonitoring-0.1.1/README.md new/gogol-cloudmonitoring-0.3.0/README.md --- old/gogol-cloudmonitoring-0.1.1/README.md 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-cloudmonitoring-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-cloudmonitoring-0.1.1/gogol-cloudmonitoring.cabal new/gogol-cloudmonitoring-0.3.0/gogol-cloudmonitoring.cabal --- old/gogol-cloudmonitoring-0.1.1/gogol-cloudmonitoring.cabal 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-cloudmonitoring-0.3.0/gogol-cloudmonitoring.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-cloudmonitoring -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Monitoring SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -47,5 +47,5 @@ , Network.Google.CloudMonitoring.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0