Hello community, here is the log from the commit of package ghc-gogol-sqladmin for openSUSE:Factory checked in at 2017-08-31 20:54:58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-sqladmin (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-sqladmin.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-sqladmin" Thu Aug 31 20:54:58 2017 rev:2 rq:513345 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-sqladmin/ghc-gogol-sqladmin.changes 2017-05-10 20:44:01.253849760 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-sqladmin.new/ghc-gogol-sqladmin.changes 2017-08-31 20:54:59.339846861 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:55 UTC 2017 - psimons@suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-sqladmin-0.1.1.tar.gz New: ---- gogol-sqladmin-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-sqladmin.spec ++++++ --- /var/tmp/diff_new_pack.5fDkG8/_old 2017-08-31 20:55:00.135735036 +0200 +++ /var/tmp/diff_new_pack.5fDkG8/_new 2017-08-31 20:55:00.147733350 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-sqladmin Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud SQL Administration SDK License: MPL-2.0 ++++++ gogol-sqladmin-0.1.1.tar.gz -> gogol-sqladmin-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-sqladmin-0.1.1/README.md new/gogol-sqladmin-0.3.0/README.md --- old/gogol-sqladmin-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-sqladmin-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-sqladmin-0.1.1/gen/Network/Google/Resource/SQL/Instances/TruncateLog.hs new/gogol-sqladmin-0.3.0/gen/Network/Google/Resource/SQL/Instances/TruncateLog.hs --- old/gogol-sqladmin-0.1.1/gen/Network/Google/Resource/SQL/Instances/TruncateLog.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/gogol-sqladmin-0.3.0/gen/Network/Google/Resource/SQL/Instances/TruncateLog.hs 2017-07-12 16:51:29.000000000 +0200 @@ -0,0 +1,115 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} +{-# LANGUAGE TypeOperators #-} + +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Network.Google.Resource.SQL.Instances.TruncateLog +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Truncate MySQL general and slow query log tables +-- +-- /See:/ <https://cloud.google.com/sql/docs/reference/latest Cloud SQL Administration API Reference> for @sql.instances.truncateLog@. +module Network.Google.Resource.SQL.Instances.TruncateLog + ( + -- * REST Resource + InstancesTruncateLogResource + + -- * Creating a Request + , instancesTruncateLog + , InstancesTruncateLog + + -- * Request Lenses + , itlProject + , itlPayload + , itlInstance + ) where + +import Network.Google.Prelude +import Network.Google.SQLAdmin.Types + +-- | A resource alias for @sql.instances.truncateLog@ method which the +-- 'InstancesTruncateLog' request conforms to. +type InstancesTruncateLogResource = + "sql" :> + "v1beta4" :> + "projects" :> + Capture "project" Text :> + "instances" :> + Capture "instance" Text :> + "truncateLog" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] InstancesTruncateLogRequest :> + Post '[JSON] Operation + +-- | Truncate MySQL general and slow query log tables +-- +-- /See:/ 'instancesTruncateLog' smart constructor. +data InstancesTruncateLog = InstancesTruncateLog' + { _itlProject :: !Text + , _itlPayload :: !InstancesTruncateLogRequest + , _itlInstance :: !Text + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InstancesTruncateLog' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'itlProject' +-- +-- * 'itlPayload' +-- +-- * 'itlInstance' +instancesTruncateLog + :: Text -- ^ 'itlProject' + -> InstancesTruncateLogRequest -- ^ 'itlPayload' + -> Text -- ^ 'itlInstance' + -> InstancesTruncateLog +instancesTruncateLog pItlProject_ pItlPayload_ pItlInstance_ = + InstancesTruncateLog' + { _itlProject = pItlProject_ + , _itlPayload = pItlPayload_ + , _itlInstance = pItlInstance_ + } + +-- | Project ID of the Cloud SQL project. +itlProject :: Lens' InstancesTruncateLog Text +itlProject + = lens _itlProject (\ s a -> s{_itlProject = a}) + +-- | Multipart request metadata. +itlPayload :: Lens' InstancesTruncateLog InstancesTruncateLogRequest +itlPayload + = lens _itlPayload (\ s a -> s{_itlPayload = a}) + +-- | Cloud SQL instance ID. This does not include the project ID. +itlInstance :: Lens' InstancesTruncateLog Text +itlInstance + = lens _itlInstance (\ s a -> s{_itlInstance = a}) + +instance GoogleRequest InstancesTruncateLog where + type Rs InstancesTruncateLog = Operation + type Scopes InstancesTruncateLog = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/sqlservice.admin"] + requestClient InstancesTruncateLog'{..} + = go _itlProject _itlInstance (Just AltJSON) + _itlPayload + sQLAdminService + where go + = buildClient + (Proxy :: Proxy InstancesTruncateLogResource) + mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin/Types/Product.hs new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin/Types/Product.hs --- old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin/Types/Product.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin/Types/Product.hs 2017-07-12 16:51:29.000000000 +0200 @@ -905,6 +905,7 @@ data IPMApping = IPMApping' { _imaIPAddress :: !(Maybe Text) , _imaTimeToRetire :: !(Maybe DateTime') + , _imaType :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'IPMApping' with the minimum fields required to make a request. @@ -914,12 +915,15 @@ -- * 'imaIPAddress' -- -- * 'imaTimeToRetire' +-- +-- * 'imaType' ipMApping :: IPMApping ipMApping = IPMApping' { _imaIPAddress = Nothing , _imaTimeToRetire = Nothing + , _imaType = Nothing } -- | The IP address assigned. @@ -936,19 +940,27 @@ (\ s a -> s{_imaTimeToRetire = a}) . mapping _DateTime +-- | The type of this IP address. A PRIMARY address is an address that can +-- accept incoming connections. An OUTGOING address is the source address +-- of connections originating from the instance, if supported. +imaType :: Lens' IPMApping (Maybe Text) +imaType = lens _imaType (\ s a -> s{_imaType = a}) + instance FromJSON IPMApping where parseJSON = withObject "IPMApping" (\ o -> IPMApping' <$> - (o .:? "ipAddress") <*> (o .:? "timeToRetire")) + (o .:? "ipAddress") <*> (o .:? "timeToRetire") <*> + (o .:? "type")) instance ToJSON IPMApping where toJSON IPMApping'{..} = object (catMaybes [("ipAddress" .=) <$> _imaIPAddress, - ("timeToRetire" .=) <$> _imaTimeToRetire]) + ("timeToRetire" .=) <$> _imaTimeToRetire, + ("type" .=) <$> _imaType]) -- | A database resource inside a Cloud SQL instance. -- @@ -2782,8 +2794,7 @@ tTier :: Lens' Tier (Maybe Text) tTier = lens _tTier (\ s a -> s{_tTier = a}) --- | The applicable regions for this tier. Can be us-east1, europe-west1 or --- asia-east1. +-- | The applicable regions for this tier. tRegion :: Lens' Tier [Text] tRegion = lens _tRegion (\ s a -> s{_tRegion = a}) . _Default @@ -3197,6 +3208,54 @@ [Just ("kind" .= _opeKind), ("code" .=) <$> _opeCode, ("message" .=) <$> _opeMessage]) +-- | Database Instance truncate log context. +-- +-- /See:/ 'truncateLogContext' smart constructor. +data TruncateLogContext = TruncateLogContext' + { _tlcKind :: !Text + , _tlcLogType :: !(Maybe Text) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TruncateLogContext' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tlcKind' +-- +-- * 'tlcLogType' +truncateLogContext + :: TruncateLogContext +truncateLogContext = + TruncateLogContext' + { _tlcKind = "sql#truncateLogContext" + , _tlcLogType = Nothing + } + +-- | This is always sql#truncateLogContext. +tlcKind :: Lens' TruncateLogContext Text +tlcKind = lens _tlcKind (\ s a -> s{_tlcKind = a}) + +-- | The type of log to truncate. Valid values are MYSQL_GENERAL_TABLE and +-- MYSQL_SLOW_TABLE. +tlcLogType :: Lens' TruncateLogContext (Maybe Text) +tlcLogType + = lens _tlcLogType (\ s a -> s{_tlcLogType = a}) + +instance FromJSON TruncateLogContext where + parseJSON + = withObject "TruncateLogContext" + (\ o -> + TruncateLogContext' <$> + (o .:? "kind" .!= "sql#truncateLogContext") <*> + (o .:? "logType")) + +instance ToJSON TruncateLogContext where + toJSON TruncateLogContext'{..} + = object + (catMaybes + [Just ("kind" .= _tlcKind), + ("logType" .=) <$> _tlcLogType]) + -- | Database instance clone request. -- -- /See:/ 'instancesCloneRequest' smart constructor. @@ -3712,6 +3771,45 @@ [Just ("kind" .= _flrKind), ("items" .=) <$> _flrItems]) +-- | Instance truncate log request. +-- +-- /See:/ 'instancesTruncateLogRequest' smart constructor. +newtype InstancesTruncateLogRequest = InstancesTruncateLogRequest' + { _itlrTruncateLogContext :: Maybe TruncateLogContext + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'InstancesTruncateLogRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'itlrTruncateLogContext' +instancesTruncateLogRequest + :: InstancesTruncateLogRequest +instancesTruncateLogRequest = + InstancesTruncateLogRequest' + { _itlrTruncateLogContext = Nothing + } + +-- | Contains details about the truncate log operation. +itlrTruncateLogContext :: Lens' InstancesTruncateLogRequest (Maybe TruncateLogContext) +itlrTruncateLogContext + = lens _itlrTruncateLogContext + (\ s a -> s{_itlrTruncateLogContext = a}) + +instance FromJSON InstancesTruncateLogRequest where + parseJSON + = withObject "InstancesTruncateLogRequest" + (\ o -> + InstancesTruncateLogRequest' <$> + (o .:? "truncateLogContext")) + +instance ToJSON InstancesTruncateLogRequest where + toJSON InstancesTruncateLogRequest'{..} + = object + (catMaybes + [("truncateLogContext" .=) <$> + _itlrTruncateLogContext]) + -- | Options for exporting data as SQL statements. -- -- /See:/ 'exportContextSQLExportOptions' smart constructor. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin/Types.hs new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin/Types.hs --- old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin/Types.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin/Types.hs 2017-07-12 16:51:29.000000000 +0200 @@ -114,6 +114,7 @@ , ipMApping , imaIPAddress , imaTimeToRetire + , imaType -- * Database , Database @@ -353,6 +354,12 @@ , opeCode , opeMessage + -- * TruncateLogContext + , TruncateLogContext + , truncateLogContext + , tlcKind + , tlcLogType + -- * InstancesCloneRequest , InstancesCloneRequest , instancesCloneRequest @@ -412,6 +419,11 @@ , flrKind , flrItems + -- * InstancesTruncateLogRequest + , InstancesTruncateLogRequest + , instancesTruncateLogRequest + , itlrTruncateLogContext + -- * ExportContextSQLExportOptions , ExportContextSQLExportOptions , exportContextSQLExportOptions diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin.hs new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin.hs --- old/gogol-sqladmin-0.1.1/gen/Network/Google/SQLAdmin.hs 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-sqladmin-0.3.0/gen/Network/Google/SQLAdmin.hs 2017-07-12 16:51:29.000000000 +0200 @@ -109,6 +109,9 @@ -- ** sql.instances.stopReplica , module Network.Google.Resource.SQL.Instances.StopReplica + -- ** sql.instances.truncateLog + , module Network.Google.Resource.SQL.Instances.TruncateLog + -- ** sql.instances.update , module Network.Google.Resource.SQL.Instances.Update @@ -241,6 +244,7 @@ , ipMApping , imaIPAddress , imaTimeToRetire + , imaType -- ** Database , Database @@ -480,6 +484,12 @@ , opeCode , opeMessage + -- ** TruncateLogContext + , TruncateLogContext + , truncateLogContext + , tlcKind + , tlcLogType + -- ** InstancesCloneRequest , InstancesCloneRequest , instancesCloneRequest @@ -539,6 +549,11 @@ , flrKind , flrItems + -- ** InstancesTruncateLogRequest + , InstancesTruncateLogRequest + , instancesTruncateLogRequest + , itlrTruncateLogContext + -- ** ExportContextSQLExportOptions , ExportContextSQLExportOptions , exportContextSQLExportOptions @@ -580,6 +595,7 @@ import Network.Google.Resource.SQL.Instances.RestoreBackup import Network.Google.Resource.SQL.Instances.StartReplica import Network.Google.Resource.SQL.Instances.StopReplica +import Network.Google.Resource.SQL.Instances.TruncateLog import Network.Google.Resource.SQL.Instances.Update import Network.Google.Resource.SQL.Operations.Get import Network.Google.Resource.SQL.Operations.List @@ -625,6 +641,7 @@ :<|> InstancesRestoreBackupResource :<|> InstancesFailoverResource :<|> InstancesRestartResource + :<|> InstancesTruncateLogResource :<|> InstancesImportResource :<|> InstancesStopReplicaResource :<|> InstancesResetSSLConfigResource diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-sqladmin-0.1.1/gogol-sqladmin.cabal new/gogol-sqladmin-0.3.0/gogol-sqladmin.cabal --- old/gogol-sqladmin-0.1.1/gogol-sqladmin.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-sqladmin-0.3.0/gogol-sqladmin.cabal 2017-07-12 16:51:29.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-sqladmin -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud SQL Administration SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -60,6 +60,7 @@ , Network.Google.Resource.SQL.Instances.RestoreBackup , Network.Google.Resource.SQL.Instances.StartReplica , Network.Google.Resource.SQL.Instances.StopReplica + , Network.Google.Resource.SQL.Instances.TruncateLog , Network.Google.Resource.SQL.Instances.Update , Network.Google.Resource.SQL.Operations.Get , Network.Google.Resource.SQL.Operations.List @@ -81,5 +82,5 @@ , Network.Google.SQLAdmin.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5