August 2017 - openSUSE Commits - openSUSE Mailing Lists

commit ghc-google-oauth2-jwt 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-google-oauth2-jwt for openSUSE:Factory checked in at 2017-08-31 20:55:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-google-oauth2-jwt (Old) and /work/SRC/openSUSE:Factory/.ghc-google-oauth2-jwt.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-google-oauth2-jwt" Thu Aug 31 20:55:33 2017 rev:2 rq:513358 version:0.2.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-google-oauth2-jwt/ghc-google-oauth2-jwt.changes 2017-04-14 13:39:36.535382670 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-google-oauth2-jwt.new/ghc-google-oauth2-jwt.changes 2017-08-31 20:55:34.402920373 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:04:14 UTC 2017 - psimons(a)suse.com + +- Update to version 0.2.2. + +------------------------------------------------------------------- Old: ---- google-oauth2-jwt-0.1.3.tar.gz New: ---- google-oauth2-jwt-0.2.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-google-oauth2-jwt.spec ++++++ --- /var/tmp/diff_new_pack.snE8o3/_old 2017-08-31 20:55:35.982698409 +0200 +++ /var/tmp/diff_new_pack.snE8o3/_new 2017-08-31 20:55:35.986697847 +0200 @@ -18,7 +18,7 @@ %global pkg_name google-oauth2-jwt Name: ghc-%{pkg_name} -Version: 0.1.3 +Version: 0.2.2 Release: 0 Summary: Get a signed JWT for Google Service Accounts License: BSD-3-Clause @@ -36,7 +36,8 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build %description -Get a signed JWT for Google Service Accounts. +This library implements the creation of the signed JWT for Google Service +Accounts. %package devel Summary: Haskell %{pkg_name} library development files ++++++ google-oauth2-jwt-0.1.3.tar.gz -> google-oauth2-jwt-0.2.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/google-oauth2-jwt-0.1.3/LICENSE new/google-oauth2-jwt-0.2.2/LICENSE --- old/google-oauth2-jwt-0.1.3/LICENSE 2016-09-02 16:34:48.000000000 +0200 +++ new/google-oauth2-jwt-0.2.2/LICENSE 2017-05-30 14:20:50.000000000 +0200 @@ -1,4 +1,4 @@ -google-oauth2-jwt - Copyright Michel Boucey (c) 2016 +google-oauth2-jwt - Copyright Michel Boucey (c) 2016-2017 All rights reserved. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/google-oauth2-jwt-0.1.3/google-oauth2-jwt.cabal new/google-oauth2-jwt-0.2.2/google-oauth2-jwt.cabal --- old/google-oauth2-jwt-0.1.3/google-oauth2-jwt.cabal 2016-12-26 16:34:25.000000000 +0100 +++ new/google-oauth2-jwt-0.2.2/google-oauth2-jwt.cabal 2017-06-09 19:46:44.000000000 +0200 @@ -1,13 +1,14 @@ name: google-oauth2-jwt -version: 0.1.3 +version: 0.2.2 synopsis: Get a signed JWT for Google Service Accounts -description: Please see README.md +description: This library implements the creation of the + signed JWT for Google Service Accounts. homepage: https://github.com/MichelBoucey/google-oauth2-jwt license: BSD3 license-file: LICENSE author: Michel Boucey maintainer: michel.boucey(a)cybervisible.fr -copyright: (c) 2016 - Michel Boucey +copyright: (c) 2016-2017 - Michel Boucey category: Google build-type: Simple extra-source-files: README.md @@ -16,13 +17,13 @@ library hs-source-dirs: src exposed-modules: Network.Google.OAuth2.JWT - build-depends: base >= 4.7 && < 5 - , base64-bytestring >= 1.0.0 && < 1.1 - , bytestring >= 0.10.6 && < 0.11 + build-depends: base >= 4.7 && < 5 + , base64-bytestring >= 1.0.0 && < 1.1 + , bytestring >= 0.10.6 && < 0.11 , HsOpenSSL >= 0.11.1.1 && < 0.12 - , RSA >= 2.1.0.3 && < 2.3 - , text >= 1.2.2 && < 1.3 - , unix-time >= 0.3.6 && < 0.4 + , RSA >= 2.1.0.3 && < 2.4 + , text >= 1.2.2 && < 1.3 + , unix-time >= 0.3.6 && < 0.4 default-language: Haskell2010 GHC-options: -Wall diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/google-oauth2-jwt-0.1.3/src/Network/Google/OAuth2/JWT.hs new/google-oauth2-jwt-0.2.2/src/Network/Google/OAuth2/JWT.hs --- old/google-oauth2-jwt-0.1.3/src/Network/Google/OAuth2/JWT.hs 2016-12-17 09:48:30.000000000 +0100 +++ new/google-oauth2-jwt-0.2.2/src/Network/Google/OAuth2/JWT.hs 2017-05-30 14:58:58.000000000 +0200 @@ -8,7 +8,8 @@ module Network.Google.OAuth2.JWT ( - Email + SignedJWT + , Email , Scope , getSignedJWT @@ -19,13 +20,14 @@ ) where import Codec.Crypto.RSA.Pure +import Control.Monad (unless) import qualified Data.ByteString as B import Data.ByteString.Base64.URL (encode) import Data.ByteString.Lazy (fromStrict, toStrict) import Data.Maybe (fromMaybe, fromJust) import Data.Monoid ((<>)) import qualified Data.Text as T -import Data.Text.Encoding +import Data.Text.Encoding (encodeUtf8) import Data.UnixTime (getUnixTime, utSeconds) import Foreign.C.Types import OpenSSL.EVP.PKey (toKeyPair) @@ -33,19 +35,23 @@ readPrivateKey) import OpenSSL.RSA -type Scope = T.Text +data SignedJWT = + SignedJWT !B.ByteString + deriving (Eq, Show) type Email = T.Text +type Scope = T.Text + -- | Get the private key obtained from the --- the Google API Console from a PEM file. +-- Google API Console from a PEM file. fromPEMFile :: FilePath -> IO PrivateKey fromPEMFile f = readFile f >>= fromPEMString -- | Get the private key obtained from the -- Google API Console from a PEM 'String'. -- --- >fromPEMString "-----BEGIN PRIVATE KEY-----\nB9e ... bMdF\n-----END PRIVATE KEY-----\n" +-- >fromPEMString "-----BEGIN PRIVATE KEY-----\nB9e [...] bMdF\n-----END PRIVATE KEY-----\n" -- > fromPEMString :: String -> IO PrivateKey fromPEMString s = @@ -53,10 +59,11 @@ \k -> return PrivateKey { private_pub = - PublicKey { public_size = rsaSize k - , public_n = rsaN k - , public_e = rsaE k - } + PublicKey + { public_size = rsaSize k + , public_n = rsaN k + , public_e = rsaE k + } , private_d = rsaD k , private_p = rsaP k , private_q = rsaQ k @@ -70,41 +77,38 @@ -- -- >grant_type=urn%3Aietf%3Aparams%3Aoauth%3Agrant-type%3Ajwt-bearer&assertion= -- -getSignedJWT :: Email - -- ^ The email address of the service account. - -> Maybe Email - -- ^ The email address of the user for which the - -- application is requesting delegated access. - -> [Scope] - -- ^ The list of the permissions that the application requests. - -> Maybe Int - -- ^ Expiration time (maximun and default value is an hour, 3600). - -> PrivateKey - -- ^ The private key gotten from the PEM string obtained from the - -- Google API Console. - -> IO (Either String B.ByteString) - -- ^ Either an error message or a signed JWT. +getSignedJWT + :: Email + -- ^ The email address of the service account. + -> Maybe Email + -- ^ The email address of the user for which the + -- application is requesting delegated access. + -> [Scope] + -- ^ The list of the permissions that the application requests. + -> Maybe Int + -- ^ Expiration time (maximun and default value is an hour, 3600). + -> PrivateKey + -- ^ The private key gotten from the PEM string obtained from the + -- Google API Console. + -> IO (Either String SignedJWT) + -- ^ Either an error message or a signed JWT. getSignedJWT iss msub scs mxt pk = do let xt = fromIntegral (fromMaybe 3600 mxt) - if xt >= 1 && xt <= 3600 - then do - cs <- do - let s = maybe T.empty (\e -> "\"sub\":\"" <> e <> "\",") msub - (t',xt') <- getUnixTime >>= - \t -> return (toText (utSeconds t),toText (utSeconds t + CTime xt)) - return $ - toJWT $ - "{\"iss\":\"" <> iss <> "\"," <> s <> "\"scope\":\"" <> - T.intercalate " " scs <> "\",\"aud\":\"https://www.goo\ - \gleapis.com/oauth2/v4/token\",\"exp\":" <> xt' <> ",\"\ - \iat\":" <> t' <> "}" - let i = toJWT "{\"alg\":\"RS256\",\"typ\":\"JWT\"}" <> "." <> cs - return $ - case rsassa_pkcs1_v1_5_sign hashSHA256 pk (fromStrict i) of - Right s -> Right (i <> "." <> encode (toStrict s)) - Left _ -> Left "RSAError" - else fail "Bad expiration time" + unless (xt >= 1 && xt <= 3600) (fail "Bad expiration time") + t <- getUnixTime + let i = header <> "." <> toB64 ("{\"iss\":\"" <> iss <> "\"," + <> maybe T.empty (\e -> "\"sub\":\"" <> e <> "\",") msub + <> "\"scope\":\"" <> T.intercalate " " scs <> "\",\"aud\ + \\":\"https://www.googleapis.com/oauth2/v4/token\",\"ex\ + \p\":" <> toT (utSeconds t + CTime xt) <> ",\"iat\":" + <> toT (utSeconds t) <> "}") + return $ + either + (fail "RSAError") + (\s -> return $ SignedJWT $ i <> "." <> encode (toStrict s)) + (rsassa_pkcs1_v1_5_sign hashSHA256 pk $ fromStrict i) where - toText = T.pack . show - toJWT = encode . encodeUtf8 + toT = T.pack . show + toB64 = encode . encodeUtf8 + header = toB64 "{\"alg\":\"RS256\",\"typ\":\"JWT\"}"

1 0

commit ghc-gogol-youtube-reporting 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-youtube-reporting for openSUSE:Factory checked in at 2017-08-31 20:55:31 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-youtube-reporting (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-reporting.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-youtube-reporting" Thu Aug 31 20:55:31 2017 rev:2 rq:513357 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-youtube-reporting/ghc-gogol-youtube-reporting.changes 2017-05-10 20:44:46.827419274 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-reporting.new/ghc-gogol-youtube-reporting.changes 2017-08-31 20:55:32.127240115 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:50 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-youtube-reporting-0.1.1.tar.gz New: ---- gogol-youtube-reporting-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-youtube-reporting.spec ++++++ --- /var/tmp/diff_new_pack.aOSnu1/_old 2017-08-31 20:55:33.823001854 +0200 +++ /var/tmp/diff_new_pack.aOSnu1/_new 2017-08-31 20:55:33.827001292 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-youtube-reporting Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google YouTube Reporting SDK License: MPL-2.0 ++++++ gogol-youtube-reporting-0.1.1.tar.gz -> gogol-youtube-reporting-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/README.md new/gogol-youtube-reporting-0.3.0/README.md --- old/gogol-youtube-reporting-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-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-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Create.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Create.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Create.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Create.hs 2017-07-12 16:51:30.000000000 +0200 @@ -52,7 +52,7 @@ type JobsCreateResource = "v1" :> "jobs" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -67,7 +67,7 @@ -- -- /See:/ 'jobsCreate' smart constructor. data JobsCreate = JobsCreate' - { _jcXgafv :: !(Maybe Text) + { _jcXgafv :: !(Maybe Xgafv) , _jcUploadProtocol :: !(Maybe Text) , _jcPp :: !Bool , _jcAccessToken :: !(Maybe Text) @@ -116,7 +116,7 @@ } -- | V1 error format. -jcXgafv :: Lens' JobsCreate (Maybe Text) +jcXgafv :: Lens' JobsCreate (Maybe Xgafv) jcXgafv = lens _jcXgafv (\ s a -> s{_jcXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Delete.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Delete.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Delete.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Delete.hs 2017-07-12 16:51:30.000000000 +0200 @@ -53,7 +53,7 @@ "v1" :> "jobs" :> Capture "jobId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -67,7 +67,7 @@ -- -- /See:/ 'jobsDelete' smart constructor. data JobsDelete = JobsDelete' - { _jdXgafv :: !(Maybe Text) + { _jdXgafv :: !(Maybe Xgafv) , _jdJobId :: !Text , _jdUploadProtocol :: !(Maybe Text) , _jdPp :: !Bool @@ -116,7 +116,7 @@ } -- | V1 error format. -jdXgafv :: Lens' JobsDelete (Maybe Text) +jdXgafv :: Lens' JobsDelete (Maybe Xgafv) jdXgafv = lens _jdXgafv (\ s a -> s{_jdXgafv = a}) -- | The ID of the job to delete. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Get.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Get.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Get.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Get.hs 2017-07-12 16:51:30.000000000 +0200 @@ -53,7 +53,7 @@ "v1" :> "jobs" :> Capture "jobId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -67,7 +67,7 @@ -- -- /See:/ 'jobsGet' smart constructor. data JobsGet = JobsGet' - { _jgXgafv :: !(Maybe Text) + { _jgXgafv :: !(Maybe Xgafv) , _jgJobId :: !Text , _jgUploadProtocol :: !(Maybe Text) , _jgPp :: !Bool @@ -116,7 +116,7 @@ } -- | V1 error format. -jgXgafv :: Lens' JobsGet (Maybe Text) +jgXgafv :: Lens' JobsGet (Maybe Xgafv) jgXgafv = lens _jgXgafv (\ s a -> s{_jgXgafv = a}) -- | The ID of the job to retrieve. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/List.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/List.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -54,7 +54,7 @@ type JobsListResource = "v1" :> "jobs" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'jobsList' smart constructor. data JobsList = JobsList' - { _jlXgafv :: !(Maybe Text) + { _jlXgafv :: !(Maybe Xgafv) , _jlUploadProtocol :: !(Maybe Text) , _jlPp :: !Bool , _jlAccessToken :: !(Maybe Text) @@ -128,7 +128,7 @@ } -- | V1 error format. -jlXgafv :: Lens' JobsList (Maybe Text) +jlXgafv :: Lens' JobsList (Maybe Xgafv) jlXgafv = lens _jlXgafv (\ s a -> s{_jlXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/Get.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/Get.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/Get.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/Get.hs 2017-07-12 16:51:30.000000000 +0200 @@ -56,7 +56,7 @@ Capture "jobId" Text :> "reports" :> Capture "reportId" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -70,7 +70,7 @@ -- -- /See:/ 'jobsReportsGet' smart constructor. data JobsReportsGet = JobsReportsGet' - { _jrgXgafv :: !(Maybe Text) + { _jrgXgafv :: !(Maybe Xgafv) , _jrgJobId :: !Text , _jrgUploadProtocol :: !(Maybe Text) , _jrgPp :: !Bool @@ -124,7 +124,7 @@ } -- | V1 error format. -jrgXgafv :: Lens' JobsReportsGet (Maybe Text) +jrgXgafv :: Lens' JobsReportsGet (Maybe Xgafv) jrgXgafv = lens _jrgXgafv (\ s a -> s{_jrgXgafv = a}) -- | The ID of the job. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/List.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/List.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Jobs/Reports/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -60,14 +60,14 @@ "jobs" :> Capture "jobId" Text :> "reports" :> - QueryParam "createdAfter" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "createdAfter" DateTime' :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> QueryParam "uploadType" Text :> - QueryParam "startTimeAtOrAfter" Text :> - QueryParam "startTimeBefore" Text :> + QueryParam "startTimeAtOrAfter" DateTime' :> + QueryParam "startTimeBefore" DateTime' :> QueryParam "onBehalfOfContentOwner" Text :> QueryParam "bearer_token" Text :> QueryParam "pageToken" Text :> @@ -81,15 +81,15 @@ -- -- /See:/ 'jobsReportsList' smart constructor. data JobsReportsList = JobsReportsList' - { _jrlCreatedAfter :: !(Maybe Text) - , _jrlXgafv :: !(Maybe Text) + { _jrlCreatedAfter :: !(Maybe DateTime') + , _jrlXgafv :: !(Maybe Xgafv) , _jrlJobId :: !Text , _jrlUploadProtocol :: !(Maybe Text) , _jrlPp :: !Bool , _jrlAccessToken :: !(Maybe Text) , _jrlUploadType :: !(Maybe Text) - , _jrlStartTimeAtOrAfter :: !(Maybe Text) - , _jrlStartTimeBefore :: !(Maybe Text) + , _jrlStartTimeAtOrAfter :: !(Maybe DateTime') + , _jrlStartTimeBefore :: !(Maybe DateTime') , _jrlOnBehalfOfContentOwner :: !(Maybe Text) , _jrlBearerToken :: !(Maybe Text) , _jrlPageToken :: !(Maybe Text) @@ -151,13 +151,14 @@ -- | If set, only reports created after the specified date\/time are -- returned. -jrlCreatedAfter :: Lens' JobsReportsList (Maybe Text) +jrlCreatedAfter :: Lens' JobsReportsList (Maybe UTCTime) jrlCreatedAfter = lens _jrlCreatedAfter (\ s a -> s{_jrlCreatedAfter = a}) + . mapping _DateTime -- | V1 error format. -jrlXgafv :: Lens' JobsReportsList (Maybe Text) +jrlXgafv :: Lens' JobsReportsList (Maybe Xgafv) jrlXgafv = lens _jrlXgafv (\ s a -> s{_jrlXgafv = a}) -- | The ID of the job. @@ -188,17 +189,19 @@ -- | If set, only reports whose start time is greater than or equal the -- specified date\/time are returned. -jrlStartTimeAtOrAfter :: Lens' JobsReportsList (Maybe Text) +jrlStartTimeAtOrAfter :: Lens' JobsReportsList (Maybe UTCTime) jrlStartTimeAtOrAfter = lens _jrlStartTimeAtOrAfter (\ s a -> s{_jrlStartTimeAtOrAfter = a}) + . mapping _DateTime -- | If set, only reports whose start time is smaller than the specified -- date\/time are returned. -jrlStartTimeBefore :: Lens' JobsReportsList (Maybe Text) +jrlStartTimeBefore :: Lens' JobsReportsList (Maybe UTCTime) jrlStartTimeBefore = lens _jrlStartTimeBefore (\ s a -> s{_jrlStartTimeBefore = a}) + . mapping _DateTime -- | The content owner\'s external ID on which behalf the user is acting on. -- If not set, the user is acting for himself (his own channel). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Media/Download.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Media/Download.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/Media/Download.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/Media/Download.hs 2017-07-12 16:51:30.000000000 +0200 @@ -53,7 +53,7 @@ "v1" :> "media" :> Capture "resourceName" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -65,7 +65,7 @@ "v1" :> "media" :> Capture "resourceName" Text :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -80,7 +80,7 @@ -- -- /See:/ 'mediaDownload' smart constructor. data MediaDownload' = MediaDownload'' - { _mdXgafv :: !(Maybe Text) + { _mdXgafv :: !(Maybe Xgafv) , _mdUploadProtocol :: !(Maybe Text) , _mdResourceName :: !Text , _mdPp :: !Bool @@ -125,7 +125,7 @@ } -- | V1 error format. -mdXgafv :: Lens' MediaDownload' (Maybe Text) +mdXgafv :: Lens' MediaDownload' (Maybe Xgafv) mdXgafv = lens _mdXgafv (\ s a -> s{_mdXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/ReportTypes/List.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/ReportTypes/List.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/Resource/YouTubeReporting/ReportTypes/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/Resource/YouTubeReporting/ReportTypes/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -54,7 +54,7 @@ type ReportTypesListResource = "v1" :> "reportTypes" :> - QueryParam "$.xgafv" Text :> + QueryParam "$.xgafv" Xgafv :> QueryParam "upload_protocol" Text :> QueryParam "pp" Bool :> QueryParam "access_token" Text :> @@ -72,7 +72,7 @@ -- -- /See:/ 'reportTypesList' smart constructor. data ReportTypesList = ReportTypesList' - { _rtlXgafv :: !(Maybe Text) + { _rtlXgafv :: !(Maybe Xgafv) , _rtlUploadProtocol :: !(Maybe Text) , _rtlPp :: !Bool , _rtlAccessToken :: !(Maybe Text) @@ -128,7 +128,7 @@ } -- | V1 error format. -rtlXgafv :: Lens' ReportTypesList (Maybe Text) +rtlXgafv :: Lens' ReportTypesList (Maybe Xgafv) rtlXgafv = lens _rtlXgafv (\ s a -> s{_rtlXgafv = a}) -- | Upload protocol for media (e.g. \"raw\", \"multipart\"). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types/Product.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types/Product.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types/Product.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -102,12 +102,12 @@ -- /See:/ 'report' smart constructor. data Report = Report' { _rJobId :: !(Maybe Text) - , _rStartTime :: !(Maybe Text) + , _rStartTime :: !(Maybe DateTime') , _rDownloadURL :: !(Maybe Text) - , _rEndTime :: !(Maybe Text) + , _rEndTime :: !(Maybe DateTime') , _rId :: !(Maybe Text) - , _rCreateTime :: !(Maybe Text) - , _rJobExpireTime :: !(Maybe Text) + , _rCreateTime :: !(Maybe DateTime') + , _rJobExpireTime :: !(Maybe DateTime') } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Report' with the minimum fields required to make a request. @@ -146,9 +146,10 @@ -- | The start of the time period that the report instance covers. The value -- is inclusive. -rStartTime :: Lens' Report (Maybe Text) +rStartTime :: Lens' Report (Maybe UTCTime) rStartTime - = lens _rStartTime (\ s a -> s{_rStartTime = a}) + = lens _rStartTime (\ s a -> s{_rStartTime = a}) . + mapping _DateTime -- | The URL from which the report can be downloaded (max. 1000 characters). rDownloadURL :: Lens' Report (Maybe Text) @@ -157,23 +158,27 @@ -- | The end of the time period that the report instance covers. The value is -- exclusive. -rEndTime :: Lens' Report (Maybe Text) -rEndTime = lens _rEndTime (\ s a -> s{_rEndTime = a}) +rEndTime :: Lens' Report (Maybe UTCTime) +rEndTime + = lens _rEndTime (\ s a -> s{_rEndTime = a}) . + mapping _DateTime -- | The server-generated ID of the report. rId :: Lens' Report (Maybe Text) rId = lens _rId (\ s a -> s{_rId = a}) -- | The date\/time when this report was created. -rCreateTime :: Lens' Report (Maybe Text) +rCreateTime :: Lens' Report (Maybe UTCTime) rCreateTime - = lens _rCreateTime (\ s a -> s{_rCreateTime = a}) + = lens _rCreateTime (\ s a -> s{_rCreateTime = a}) . + mapping _DateTime -- | The date\/time when the job this report belongs to will expire\/expired. -rJobExpireTime :: Lens' Report (Maybe Text) +rJobExpireTime :: Lens' Report (Maybe UTCTime) rJobExpireTime = lens _rJobExpireTime (\ s a -> s{_rJobExpireTime = a}) + . mapping _DateTime instance FromJSON Report where parseJSON @@ -295,8 +300,8 @@ , _jId :: !(Maybe Text) , _jSystemManaged :: !(Maybe Bool) , _jReportTypeId :: !(Maybe Text) - , _jExpireTime :: !(Maybe Text) - , _jCreateTime :: !(Maybe Text) + , _jExpireTime :: !(Maybe DateTime') + , _jCreateTime :: !(Maybe DateTime') } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Job' with the minimum fields required to make a request. @@ -350,14 +355,16 @@ -- | The date\/time when this job will expire\/expired. After a job expired, -- no new reports are generated. -jExpireTime :: Lens' Job (Maybe Text) +jExpireTime :: Lens' Job (Maybe UTCTime) jExpireTime - = lens _jExpireTime (\ s a -> s{_jExpireTime = a}) + = lens _jExpireTime (\ s a -> s{_jExpireTime = a}) . + mapping _DateTime -- | The creation date\/time of the job. -jCreateTime :: Lens' Job (Maybe Text) +jCreateTime :: Lens' Job (Maybe UTCTime) jCreateTime - = lens _jCreateTime (\ s a -> s{_jCreateTime = a}) + = lens _jCreateTime (\ s a -> s{_jCreateTime = a}) . + mapping _DateTime instance FromJSON Job where parseJSON @@ -438,7 +445,7 @@ data ReportType = ReportType' { _rtName :: !(Maybe Text) , _rtId :: !(Maybe Text) - , _rtDeprecateTime :: !(Maybe Text) + , _rtDeprecateTime :: !(Maybe DateTime') , _rtSystemManaged :: !(Maybe Bool) } deriving (Eq,Show,Data,Typeable,Generic) @@ -472,10 +479,11 @@ rtId = lens _rtId (\ s a -> s{_rtId = a}) -- | The date\/time when this report type was\/will be deprecated. -rtDeprecateTime :: Lens' ReportType (Maybe Text) +rtDeprecateTime :: Lens' ReportType (Maybe UTCTime) rtDeprecateTime = lens _rtDeprecateTime (\ s a -> s{_rtDeprecateTime = a}) + . mapping _DateTime -- | True if this a system-managed report type; otherwise false. Reporting -- jobs for system-managed report types are created automatically and can diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types/Sum.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types/Sum.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types/Sum.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types/Sum.hs 2017-07-12 16:51:30.000000000 +0200 @@ -17,3 +17,32 @@ module Network.Google.YouTubeReporting.Types.Sum where import Network.Google.Prelude + +-- | 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 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting/Types.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -65,6 +65,9 @@ , jExpireTime , jCreateTime + -- * Xgafv + , Xgafv (..) + -- * ListJobsResponse , ListJobsResponse , listJobsResponse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting.hs new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting.hs --- old/gogol-youtube-reporting-0.1.1/gen/Network/Google/YouTubeReporting.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gen/Network/Google/YouTubeReporting.hs 2017-07-12 16:51:30.000000000 +0200 @@ -99,6 +99,9 @@ , jExpireTime , jCreateTime + -- ** Xgafv + , Xgafv (..) + -- ** ListJobsResponse , ListJobsResponse , listJobsResponse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-reporting-0.1.1/gogol-youtube-reporting.cabal new/gogol-youtube-reporting-0.3.0/gogol-youtube-reporting.cabal --- old/gogol-youtube-reporting-0.1.1/gogol-youtube-reporting.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-reporting-0.3.0/gogol-youtube-reporting.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-youtube-reporting -version: 0.1.1 +version: 0.3.0 synopsis: Google YouTube Reporting SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -50,5 +50,5 @@ , Network.Google.YouTubeReporting.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-youtube-analytics 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-youtube-analytics for openSUSE:Factory checked in at 2017-08-31 20:55:29 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-youtube-analytics (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-analytics.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-youtube-analytics" Thu Aug 31 20:55:29 2017 rev:2 rq:513356 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-youtube-analytics/ghc-gogol-youtube-analytics.changes 2017-05-10 20:44:37.512733591 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-youtube-analytics.new/ghc-gogol-youtube-analytics.changes 2017-08-31 20:55:29.975542435 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:08 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-youtube-analytics-0.1.1.tar.gz New: ---- gogol-youtube-analytics-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-youtube-analytics.spec ++++++ --- /var/tmp/diff_new_pack.K5jtjO/_old 2017-08-31 20:55:31.251363178 +0200 +++ /var/tmp/diff_new_pack.K5jtjO/_new 2017-08-31 20:55:31.275359807 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-youtube-analytics Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google YouTube Analytics SDK License: MPL-2.0 ++++++ gogol-youtube-analytics-0.1.1.tar.gz -> gogol-youtube-analytics-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/README.md new/gogol-youtube-analytics-0.3.0/README.md --- old/gogol-youtube-analytics-0.1.1/README.md 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-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-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReportDefinitions/List.hs 1970-01-01 01:00:00.000000000 +0100 @@ -1,94 +0,0 @@ -{-# 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.YouTubeAnalytics.BatchReportDefinitions.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay <brendan.g.hay(a)gmail.com> --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Retrieves a list of available batch report definitions. --- --- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference> for @youtubeAnalytics.batchReportDefinitions.list@. -module Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - ( - -- * REST Resource - BatchReportDefinitionsListResource - - -- * Creating a Request - , batchReportDefinitionsList - , BatchReportDefinitionsList - - -- * Request Lenses - , brdlOnBehalfOfContentOwner - ) where - -import Network.Google.Prelude -import Network.Google.YouTubeAnalytics.Types - --- | A resource alias for @youtubeAnalytics.batchReportDefinitions.list@ method which the --- 'BatchReportDefinitionsList' request conforms to. -type BatchReportDefinitionsListResource = - "youtube" :> - "analytics" :> - "v1" :> - "batchReportDefinitions" :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] BatchReportDefinitionList - --- | Retrieves a list of available batch report definitions. --- --- /See:/ 'batchReportDefinitionsList' smart constructor. -newtype BatchReportDefinitionsList = BatchReportDefinitionsList' - { _brdlOnBehalfOfContentOwner :: Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinitionsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdlOnBehalfOfContentOwner' -batchReportDefinitionsList - :: Text -- ^ 'brdlOnBehalfOfContentOwner' - -> BatchReportDefinitionsList -batchReportDefinitionsList pBrdlOnBehalfOfContentOwner_ = - BatchReportDefinitionsList' - { _brdlOnBehalfOfContentOwner = pBrdlOnBehalfOfContentOwner_ - } - --- | The onBehalfOfContentOwner parameter identifies the content owner that --- the user is acting on behalf of. -brdlOnBehalfOfContentOwner :: Lens' BatchReportDefinitionsList Text -brdlOnBehalfOfContentOwner - = lens _brdlOnBehalfOfContentOwner - (\ s a -> s{_brdlOnBehalfOfContentOwner = a}) - -instance GoogleRequest BatchReportDefinitionsList - where - type Rs BatchReportDefinitionsList = - BatchReportDefinitionList - type Scopes BatchReportDefinitionsList = - '["https://www.googleapis.com/auth/yt-analytics-monetary.readonly", - "https://www.googleapis.com/auth/yt-analytics.readonly"] - requestClient BatchReportDefinitionsList'{..} - = go (Just _brdlOnBehalfOfContentOwner) - (Just AltJSON) - youTubeAnalyticsService - where go - = buildClient - (Proxy :: Proxy BatchReportDefinitionsListResource) - mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/Resource/YouTubeAnalytics/BatchReports/List.hs 1970-01-01 01:00:00.000000000 +0100 @@ -1,107 +0,0 @@ -{-# 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.YouTubeAnalytics.BatchReports.List --- Copyright : (c) 2015-2016 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay <brendan.g.hay(a)gmail.com> --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Retrieves a list of processed batch reports. --- --- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference> for @youtubeAnalytics.batchReports.list@. -module Network.Google.Resource.YouTubeAnalytics.BatchReports.List - ( - -- * REST Resource - BatchReportsListResource - - -- * Creating a Request - , batchReportsList - , BatchReportsList - - -- * Request Lenses - , brlBatchReportDefinitionId - , brlOnBehalfOfContentOwner - ) where - -import Network.Google.Prelude -import Network.Google.YouTubeAnalytics.Types - --- | A resource alias for @youtubeAnalytics.batchReports.list@ method which the --- 'BatchReportsList' request conforms to. -type BatchReportsListResource = - "youtube" :> - "analytics" :> - "v1" :> - "batchReports" :> - QueryParam "batchReportDefinitionId" Text :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "alt" AltJSON :> - Get '[JSON] BatchReportList - --- | Retrieves a list of processed batch reports. --- --- /See:/ 'batchReportsList' smart constructor. -data BatchReportsList = BatchReportsList' - { _brlBatchReportDefinitionId :: !Text - , _brlOnBehalfOfContentOwner :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportsList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brlBatchReportDefinitionId' --- --- * 'brlOnBehalfOfContentOwner' -batchReportsList - :: Text -- ^ 'brlBatchReportDefinitionId' - -> Text -- ^ 'brlOnBehalfOfContentOwner' - -> BatchReportsList -batchReportsList pBrlBatchReportDefinitionId_ pBrlOnBehalfOfContentOwner_ = - BatchReportsList' - { _brlBatchReportDefinitionId = pBrlBatchReportDefinitionId_ - , _brlOnBehalfOfContentOwner = pBrlOnBehalfOfContentOwner_ - } - --- | The batchReportDefinitionId parameter specifies the ID of the batch --- reportort definition for which you are retrieving reports. -brlBatchReportDefinitionId :: Lens' BatchReportsList Text -brlBatchReportDefinitionId - = lens _brlBatchReportDefinitionId - (\ s a -> s{_brlBatchReportDefinitionId = a}) - --- | The onBehalfOfContentOwner parameter identifies the content owner that --- the user is acting on behalf of. -brlOnBehalfOfContentOwner :: Lens' BatchReportsList Text -brlOnBehalfOfContentOwner - = lens _brlOnBehalfOfContentOwner - (\ s a -> s{_brlOnBehalfOfContentOwner = a}) - -instance GoogleRequest BatchReportsList where - type Rs BatchReportsList = BatchReportList - type Scopes BatchReportsList = - '["https://www.googleapis.com/auth/yt-analytics-monetary.readonly", - "https://www.googleapis.com/auth/yt-analytics.readonly"] - requestClient BatchReportsList'{..} - = go (Just _brlBatchReportDefinitionId) - (Just _brlOnBehalfOfContentOwner) - (Just AltJSON) - youTubeAnalyticsService - where go - = buildClient - (Proxy :: Proxy BatchReportsListResource) - mempty diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types/Product.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types/Product.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types/Product.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -317,180 +317,6 @@ [Just ("kind" .= _rtKind), ("rows" .=) <$> _rtRows, ("columnHeaders" .=) <$> _rtColumnHeaders]) --- | Contains single batchReportDefinition resource. --- --- /See:/ 'batchReportDefinition' smart constructor. -data BatchReportDefinition = BatchReportDefinition' - { _brdStatus :: !(Maybe Text) - , _brdKind :: !Text - , _brdName :: !(Maybe Text) - , _brdId :: !(Maybe Text) - , _brdType :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinition' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdStatus' --- --- * 'brdKind' --- --- * 'brdName' --- --- * 'brdId' --- --- * 'brdType' -batchReportDefinition - :: BatchReportDefinition -batchReportDefinition = - BatchReportDefinition' - { _brdStatus = Nothing - , _brdKind = "youtubeAnalytics#batchReportDefinition" - , _brdName = Nothing - , _brdId = Nothing - , _brdType = Nothing - } - --- | Status of the report definition. -brdStatus :: Lens' BatchReportDefinition (Maybe Text) -brdStatus - = lens _brdStatus (\ s a -> s{_brdStatus = a}) - --- | This value specifies the type of data of this item. For batch report --- definition the kind property value is --- youtubeAnalytics#batchReportDefinition. -brdKind :: Lens' BatchReportDefinition Text -brdKind = lens _brdKind (\ s a -> s{_brdKind = a}) - --- | Name of the report definition. -brdName :: Lens' BatchReportDefinition (Maybe Text) -brdName = lens _brdName (\ s a -> s{_brdName = a}) - --- | The ID that YouTube assigns and uses to uniquely identify the report --- definition. -brdId :: Lens' BatchReportDefinition (Maybe Text) -brdId = lens _brdId (\ s a -> s{_brdId = a}) - --- | Type of the report definition. -brdType :: Lens' BatchReportDefinition (Maybe Text) -brdType = lens _brdType (\ s a -> s{_brdType = a}) - -instance FromJSON BatchReportDefinition where - parseJSON - = withObject "BatchReportDefinition" - (\ o -> - BatchReportDefinition' <$> - (o .:? "status") <*> - (o .:? "kind" .!= - "youtubeAnalytics#batchReportDefinition") - <*> (o .:? "name") - <*> (o .:? "id") - <*> (o .:? "type")) - -instance ToJSON BatchReportDefinition where - toJSON BatchReportDefinition'{..} - = object - (catMaybes - [("status" .=) <$> _brdStatus, - Just ("kind" .= _brdKind), ("name" .=) <$> _brdName, - ("id" .=) <$> _brdId, ("type" .=) <$> _brdType]) - --- | Contains single batchReport resource. --- --- /See:/ 'batchReport' smart constructor. -data BatchReport = BatchReport' - { _brTimeUpdated :: !(Maybe DateTime') - , _brKind :: !Text - , _brReportId :: !(Maybe Text) - , _brTimeSpan :: !(Maybe BatchReportTimeSpan) - , _brOutputs :: !(Maybe [BatchReportOutputsItem]) - , _brId :: !(Maybe Text) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReport' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brTimeUpdated' --- --- * 'brKind' --- --- * 'brReportId' --- --- * 'brTimeSpan' --- --- * 'brOutputs' --- --- * 'brId' -batchReport - :: BatchReport -batchReport = - BatchReport' - { _brTimeUpdated = Nothing - , _brKind = "youtubeAnalytics#batchReport" - , _brReportId = Nothing - , _brTimeSpan = Nothing - , _brOutputs = Nothing - , _brId = Nothing - } - --- | The time when the report was updated. -brTimeUpdated :: Lens' BatchReport (Maybe UTCTime) -brTimeUpdated - = lens _brTimeUpdated - (\ s a -> s{_brTimeUpdated = a}) - . mapping _DateTime - --- | This value specifies the type of data of this item. For batch report the --- kind property value is youtubeAnalytics#batchReport. -brKind :: Lens' BatchReport Text -brKind = lens _brKind (\ s a -> s{_brKind = a}) - --- | The ID of the the report definition. -brReportId :: Lens' BatchReport (Maybe Text) -brReportId - = lens _brReportId (\ s a -> s{_brReportId = a}) - --- | Period included in the report. For reports containing all entities --- endTime is not set. Both startTime and endTime are inclusive. -brTimeSpan :: Lens' BatchReport (Maybe BatchReportTimeSpan) -brTimeSpan - = lens _brTimeSpan (\ s a -> s{_brTimeSpan = a}) - --- | Report outputs. -brOutputs :: Lens' BatchReport [BatchReportOutputsItem] -brOutputs - = lens _brOutputs (\ s a -> s{_brOutputs = a}) . - _Default - . _Coerce - --- | The ID that YouTube assigns and uses to uniquely identify the report. -brId :: Lens' BatchReport (Maybe Text) -brId = lens _brId (\ s a -> s{_brId = a}) - -instance FromJSON BatchReport where - parseJSON - = withObject "BatchReport" - (\ o -> - BatchReport' <$> - (o .:? "timeUpdated") <*> - (o .:? "kind" .!= "youtubeAnalytics#batchReport") - <*> (o .:? "reportId") - <*> (o .:? "timeSpan") - <*> (o .:? "outputs" .!= mempty) - <*> (o .:? "id")) - -instance ToJSON BatchReport where - toJSON BatchReport'{..} - = object - (catMaybes - [("timeUpdated" .=) <$> _brTimeUpdated, - Just ("kind" .= _brKind), - ("reportId" .=) <$> _brReportId, - ("timeSpan" .=) <$> _brTimeSpan, - ("outputs" .=) <$> _brOutputs, ("id" .=) <$> _brId]) - -- -- /See:/ 'groupSnippet' smart constructor. data GroupSnippet = GroupSnippet' @@ -606,222 +432,6 @@ ("resource" .=) <$> _giResource, ("groupId" .=) <$> _giGroupId, ("id" .=) <$> _giId]) --- | A paginated list of batchReportDefinition resources returned in response --- to a youtubeAnalytics.batchReportDefinitions.list request. --- --- /See:/ 'batchReportDefinitionList' smart constructor. -data BatchReportDefinitionList = BatchReportDefinitionList' - { _brdlKind :: !Text - , _brdlItems :: !(Maybe [BatchReportDefinition]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportDefinitionList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brdlKind' --- --- * 'brdlItems' -batchReportDefinitionList - :: BatchReportDefinitionList -batchReportDefinitionList = - BatchReportDefinitionList' - { _brdlKind = "youtubeAnalytics#batchReportDefinitionList" - , _brdlItems = Nothing - } - --- | This value specifies the type of data included in the API response. For --- the list method, the kind property value is --- youtubeAnalytics#batchReportDefinitionList. -brdlKind :: Lens' BatchReportDefinitionList Text -brdlKind = lens _brdlKind (\ s a -> s{_brdlKind = a}) - --- | A list of batchReportDefinition resources that match the request --- criteria. -brdlItems :: Lens' BatchReportDefinitionList [BatchReportDefinition] -brdlItems - = lens _brdlItems (\ s a -> s{_brdlItems = a}) . - _Default - . _Coerce - -instance FromJSON BatchReportDefinitionList where - parseJSON - = withObject "BatchReportDefinitionList" - (\ o -> - BatchReportDefinitionList' <$> - (o .:? "kind" .!= - "youtubeAnalytics#batchReportDefinitionList") - <*> (o .:? "items" .!= mempty)) - -instance ToJSON BatchReportDefinitionList where - toJSON BatchReportDefinitionList'{..} - = object - (catMaybes - [Just ("kind" .= _brdlKind), - ("items" .=) <$> _brdlItems]) - --- | A paginated list of batchReport resources returned in response to a --- youtubeAnalytics.batchReport.list request. --- --- /See:/ 'batchReportList' smart constructor. -data BatchReportList = BatchReportList' - { _brlKind :: !Text - , _brlItems :: !(Maybe [BatchReport]) - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brlKind' --- --- * 'brlItems' -batchReportList - :: BatchReportList -batchReportList = - BatchReportList' - { _brlKind = "youtubeAnalytics#batchReportList" - , _brlItems = Nothing - } - --- | This value specifies the type of data included in the API response. For --- the list method, the kind property value is --- youtubeAnalytics#batchReportList. -brlKind :: Lens' BatchReportList Text -brlKind = lens _brlKind (\ s a -> s{_brlKind = a}) - --- | A list of batchReport resources that match the request criteria. -brlItems :: Lens' BatchReportList [BatchReport] -brlItems - = lens _brlItems (\ s a -> s{_brlItems = a}) . - _Default - . _Coerce - -instance FromJSON BatchReportList where - parseJSON - = withObject "BatchReportList" - (\ o -> - BatchReportList' <$> - (o .:? "kind" .!= "youtubeAnalytics#batchReportList") - <*> (o .:? "items" .!= mempty)) - -instance ToJSON BatchReportList where - toJSON BatchReportList'{..} - = object - (catMaybes - [Just ("kind" .= _brlKind), - ("items" .=) <$> _brlItems]) - --- --- /See:/ 'batchReportOutputsItem' smart constructor. -data BatchReportOutputsItem = BatchReportOutputsItem' - { _broiFormat :: !(Maybe Text) - , _broiDownloadURL :: !(Maybe Text) - , _broiType :: !Text - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportOutputsItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'broiFormat' --- --- * 'broiDownloadURL' --- --- * 'broiType' -batchReportOutputsItem - :: BatchReportOutputsItem -batchReportOutputsItem = - BatchReportOutputsItem' - { _broiFormat = Nothing - , _broiDownloadURL = Nothing - , _broiType = "cloudStorageOutput" - } - --- | Format of the output. -broiFormat :: Lens' BatchReportOutputsItem (Maybe Text) -broiFormat - = lens _broiFormat (\ s a -> s{_broiFormat = a}) - --- | Cloud storage URL to download this report. This URL is valid for 30 --- minutes. -broiDownloadURL :: Lens' BatchReportOutputsItem (Maybe Text) -broiDownloadURL - = lens _broiDownloadURL - (\ s a -> s{_broiDownloadURL = a}) - --- | Type of the output. -broiType :: Lens' BatchReportOutputsItem Text -broiType = lens _broiType (\ s a -> s{_broiType = a}) - -instance FromJSON BatchReportOutputsItem where - parseJSON - = withObject "BatchReportOutputsItem" - (\ o -> - BatchReportOutputsItem' <$> - (o .:? "format") <*> (o .:? "downloadUrl") <*> - (o .:? "type" .!= "cloudStorageOutput")) - -instance ToJSON BatchReportOutputsItem where - toJSON BatchReportOutputsItem'{..} - = object - (catMaybes - [("format" .=) <$> _broiFormat, - ("downloadUrl" .=) <$> _broiDownloadURL, - Just ("type" .= _broiType)]) - --- | Period included in the report. For reports containing all entities --- endTime is not set. Both startTime and endTime are inclusive. --- --- /See:/ 'batchReportTimeSpan' smart constructor. -data BatchReportTimeSpan = BatchReportTimeSpan' - { _brtsStartTime :: !(Maybe DateTime') - , _brtsEndTime :: !(Maybe DateTime') - } deriving (Eq,Show,Data,Typeable,Generic) - --- | Creates a value of 'BatchReportTimeSpan' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'brtsStartTime' --- --- * 'brtsEndTime' -batchReportTimeSpan - :: BatchReportTimeSpan -batchReportTimeSpan = - BatchReportTimeSpan' - { _brtsStartTime = Nothing - , _brtsEndTime = Nothing - } - --- | Start of the period included in the report. Inclusive. -brtsStartTime :: Lens' BatchReportTimeSpan (Maybe UTCTime) -brtsStartTime - = lens _brtsStartTime - (\ s a -> s{_brtsStartTime = a}) - . mapping _DateTime - --- | End of the period included in the report. Inclusive. For reports --- containing all entities endTime is not set. -brtsEndTime :: Lens' BatchReportTimeSpan (Maybe UTCTime) -brtsEndTime - = lens _brtsEndTime (\ s a -> s{_brtsEndTime = a}) . - mapping _DateTime - -instance FromJSON BatchReportTimeSpan where - parseJSON - = withObject "BatchReportTimeSpan" - (\ o -> - BatchReportTimeSpan' <$> - (o .:? "startTime") <*> (o .:? "endTime")) - -instance ToJSON BatchReportTimeSpan where - toJSON BatchReportTimeSpan'{..} - = object - (catMaybes - [("startTime" .=) <$> _brtsStartTime, - ("endTime" .=) <$> _brtsEndTime]) - -- | A paginated list of grouList resources returned in response to a -- youtubeAnalytics.groupApi.list request. -- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics/Types.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -61,25 +61,6 @@ , rtRows , rtColumnHeaders - -- * BatchReportDefinition - , BatchReportDefinition - , batchReportDefinition - , brdStatus - , brdKind - , brdName - , brdId - , brdType - - -- * BatchReport - , BatchReport - , batchReport - , brTimeUpdated - , brKind - , brReportId - , brTimeSpan - , brOutputs - , brId - -- * GroupSnippet , GroupSnippet , groupSnippet @@ -95,31 +76,6 @@ , giGroupId , giId - -- * BatchReportDefinitionList - , BatchReportDefinitionList - , batchReportDefinitionList - , brdlKind - , brdlItems - - -- * BatchReportList - , BatchReportList - , batchReportList - , brlKind - , brlItems - - -- * BatchReportOutputsItem - , BatchReportOutputsItem - , batchReportOutputsItem - , broiFormat - , broiDownloadURL - , broiType - - -- * BatchReportTimeSpan - , BatchReportTimeSpan - , batchReportTimeSpan - , brtsStartTime - , brtsEndTime - -- * GroupItemListResponse , GroupItemListResponse , groupItemListResponse diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics.hs new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics.hs --- old/gogol-youtube-analytics-0.1.1/gen/Network/Google/YouTubeAnalytics.hs 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gen/Network/Google/YouTubeAnalytics.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,12 +33,6 @@ -- * Resources - -- ** youtubeAnalytics.batchReportDefinitions.list - , module Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - - -- ** youtubeAnalytics.batchReports.list - , module Network.Google.Resource.YouTubeAnalytics.BatchReports.List - -- ** youtubeAnalytics.groupItems.delete , module Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete @@ -100,25 +94,6 @@ , rtRows , rtColumnHeaders - -- ** BatchReportDefinition - , BatchReportDefinition - , batchReportDefinition - , brdStatus - , brdKind - , brdName - , brdId - , brdType - - -- ** BatchReport - , BatchReport - , batchReport - , brTimeUpdated - , brKind - , brReportId - , brTimeSpan - , brOutputs - , brId - -- ** GroupSnippet , GroupSnippet , groupSnippet @@ -134,31 +109,6 @@ , giGroupId , giId - -- ** BatchReportDefinitionList - , BatchReportDefinitionList - , batchReportDefinitionList - , brdlKind - , brdlItems - - -- ** BatchReportList - , BatchReportList - , batchReportList - , brlKind - , brlItems - - -- ** BatchReportOutputsItem - , BatchReportOutputsItem - , batchReportOutputsItem - , broiFormat - , broiDownloadURL - , broiType - - -- ** BatchReportTimeSpan - , BatchReportTimeSpan - , batchReportTimeSpan - , brtsStartTime - , brtsEndTime - -- ** GroupItemListResponse , GroupItemListResponse , groupItemListResponse @@ -176,8 +126,6 @@ ) where import Network.Google.Prelude -import Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List -import Network.Google.Resource.YouTubeAnalytics.BatchReports.List import Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete import Network.Google.Resource.YouTubeAnalytics.GroupItems.Insert import Network.Google.Resource.YouTubeAnalytics.GroupItems.List @@ -198,8 +146,6 @@ GroupsDeleteResource :<|> GroupsUpdateResource :<|> ReportsQueryResource - :<|> BatchReportsListResource :<|> GroupItemsInsertResource :<|> GroupItemsListResource :<|> GroupItemsDeleteResource - :<|> BatchReportDefinitionsListResource diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-analytics-0.1.1/gogol-youtube-analytics.cabal new/gogol-youtube-analytics-0.3.0/gogol-youtube-analytics.cabal --- old/gogol-youtube-analytics-0.1.1/gogol-youtube-analytics.cabal 2016-11-03 14:26:28.000000000 +0100 +++ new/gogol-youtube-analytics-0.3.0/gogol-youtube-analytics.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-youtube-analytics -version: 0.1.1 +version: 0.3.0 synopsis: Google YouTube Analytics SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -33,9 +33,7 @@ ghc-options: -Wall exposed-modules: - Network.Google.Resource.YouTubeAnalytics.BatchReportDefinitions.List - , Network.Google.Resource.YouTubeAnalytics.BatchReports.List - , Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete + Network.Google.Resource.YouTubeAnalytics.GroupItems.Delete , Network.Google.Resource.YouTubeAnalytics.GroupItems.Insert , Network.Google.Resource.YouTubeAnalytics.GroupItems.List , Network.Google.Resource.YouTubeAnalytics.Groups.Delete @@ -51,5 +49,5 @@ , Network.Google.YouTubeAnalytics.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-youtube 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-youtube for openSUSE:Factory checked in at 2017-08-31 20:55:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-youtube (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-youtube.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-youtube" Thu Aug 31 20:55:26 2017 rev:2 rq:513355 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-youtube/ghc-gogol-youtube.changes 2017-05-10 20:44:41.224209896 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-youtube.new/ghc-gogol-youtube.changes 2017-08-31 20:55:28.431759342 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:05:48 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-youtube-0.1.1.tar.gz New: ---- gogol-youtube-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-youtube.spec ++++++ --- /var/tmp/diff_new_pack.K0EC6m/_old 2017-08-31 20:55:29.411621669 +0200 +++ /var/tmp/diff_new_pack.K0EC6m/_new 2017-08-31 20:55:29.411621669 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-youtube Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google YouTube Data SDK License: MPL-2.0 ++++++ gogol-youtube-0.1.1.tar.gz -> gogol-youtube-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/README.md new/gogol-youtube-0.3.0/README.md --- old/gogol-youtube-0.1.1/README.md 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-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-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Delete.hs 2017-07-12 16:51:30.000000000 +0200 @@ -33,6 +33,7 @@ , PlayListItemsDelete -- * Request Lenses + , plidOnBehalfOfContentOwner , plidId ) where @@ -46,28 +47,48 @@ "v3" :> "playlistItems" :> QueryParam "id" Text :> - QueryParam "alt" AltJSON :> Delete '[JSON] () + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "alt" AltJSON :> Delete '[JSON] () -- | Deletes a playlist item. -- -- /See:/ 'playListItemsDelete' smart constructor. -newtype PlayListItemsDelete = PlayListItemsDelete' - { _plidId :: Text +data PlayListItemsDelete = PlayListItemsDelete' + { _plidOnBehalfOfContentOwner :: !(Maybe Text) + , _plidId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'plidOnBehalfOfContentOwner' +-- -- * 'plidId' playListItemsDelete :: Text -- ^ 'plidId' -> PlayListItemsDelete playListItemsDelete pPlidId_ = PlayListItemsDelete' - { _plidId = pPlidId_ + { _plidOnBehalfOfContentOwner = Nothing + , _plidId = pPlidId_ } +-- | Note: This parameter is intended exclusively for YouTube content +-- partners. The onBehalfOfContentOwner parameter indicates that the +-- request\'s authorization credentials identify a YouTube CMS user who is +-- acting on behalf of the content owner specified in the parameter value. +-- This parameter is intended for YouTube content partners that own and +-- manage many different YouTube channels. It allows content owners to +-- authenticate once and get access to all their video and channel data, +-- without having to provide authentication credentials for each individual +-- channel. The CMS account that the user authenticates with must be linked +-- to the specified YouTube content owner. +plidOnBehalfOfContentOwner :: Lens' PlayListItemsDelete (Maybe Text) +plidOnBehalfOfContentOwner + = lens _plidOnBehalfOfContentOwner + (\ s a -> s{_plidOnBehalfOfContentOwner = a}) + -- | The id parameter specifies the YouTube playlist item ID for the playlist -- item that is being deleted. In a playlistItem resource, the id property -- specifies the playlist item\'s ID. @@ -81,7 +102,9 @@ "https://www.googleapis.com/auth/youtube.force-ssl", "https://www.googleapis.com/auth/youtubepartner"] requestClient PlayListItemsDelete'{..} - = go (Just _plidId) (Just AltJSON) youTubeService + = go (Just _plidId) _plidOnBehalfOfContentOwner + (Just AltJSON) + youTubeService where go = buildClient (Proxy :: Proxy PlayListItemsDeleteResource) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/PlayListItems/Update.hs 2017-07-12 16:51:30.000000000 +0200 @@ -36,6 +36,7 @@ -- * Request Lenses , pliuPart , pliuPayload + , pliuOnBehalfOfContentOwner ) where import Network.Google.Prelude @@ -48,17 +49,19 @@ "v3" :> "playlistItems" :> QueryParam "part" Text :> - QueryParam "alt" AltJSON :> - ReqBody '[JSON] PlayListItem :> - Put '[JSON] PlayListItem + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] PlayListItem :> + Put '[JSON] PlayListItem -- | Modifies a playlist item. For example, you could update the item\'s -- position in the playlist. -- -- /See:/ 'playListItemsUpdate' smart constructor. data PlayListItemsUpdate = PlayListItemsUpdate' - { _pliuPart :: !Text - , _pliuPayload :: !PlayListItem + { _pliuPart :: !Text + , _pliuPayload :: !PlayListItem + , _pliuOnBehalfOfContentOwner :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemsUpdate' with the minimum fields required to make a request. @@ -68,6 +71,8 @@ -- * 'pliuPart' -- -- * 'pliuPayload' +-- +-- * 'pliuOnBehalfOfContentOwner' playListItemsUpdate :: Text -- ^ 'pliuPart' -> PlayListItem -- ^ 'pliuPayload' @@ -76,6 +81,7 @@ PlayListItemsUpdate' { _pliuPart = pPliuPart_ , _pliuPayload = pPliuPayload_ + , _pliuOnBehalfOfContentOwner = Nothing } -- | The part parameter serves two purposes in this operation. It identifies @@ -99,6 +105,21 @@ pliuPayload = lens _pliuPayload (\ s a -> s{_pliuPayload = a}) +-- | Note: This parameter is intended exclusively for YouTube content +-- partners. The onBehalfOfContentOwner parameter indicates that the +-- request\'s authorization credentials identify a YouTube CMS user who is +-- acting on behalf of the content owner specified in the parameter value. +-- This parameter is intended for YouTube content partners that own and +-- manage many different YouTube channels. It allows content owners to +-- authenticate once and get access to all their video and channel data, +-- without having to provide authentication credentials for each individual +-- channel. The CMS account that the user authenticates with must be linked +-- to the specified YouTube content owner. +pliuOnBehalfOfContentOwner :: Lens' PlayListItemsUpdate (Maybe Text) +pliuOnBehalfOfContentOwner + = lens _pliuOnBehalfOfContentOwner + (\ s a -> s{_pliuOnBehalfOfContentOwner = a}) + instance GoogleRequest PlayListItemsUpdate where type Rs PlayListItemsUpdate = PlayListItem type Scopes PlayListItemsUpdate = @@ -106,7 +127,9 @@ "https://www.googleapis.com/auth/youtube.force-ssl", "https://www.googleapis.com/auth/youtubepartner"] requestClient PlayListItemsUpdate'{..} - = go (Just _pliuPart) (Just AltJSON) _pliuPayload + = go (Just _pliuPart) _pliuOnBehalfOfContentOwner + (Just AltJSON) + _pliuPayload youTubeService where go = buildClient diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/Videos/List.hs new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/Videos/List.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/Resource/YouTube/Videos/List.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/Resource/YouTube/Videos/List.hs 2017-07-12 16:51:30.000000000 +0200 @@ -38,9 +38,11 @@ , vlRegionCode , vlLocale , vlMyRating + , vlMaxHeight , vlHl , vlOnBehalfOfContentOwner , vlVideoCategoryId + , vlMaxWidth , vlId , vlPageToken , vlMaxResults @@ -60,14 +62,16 @@ QueryParam "regionCode" Text :> QueryParam "locale" Text :> QueryParam "myRating" VideosListMyRating :> - QueryParam "hl" Text :> - QueryParam "onBehalfOfContentOwner" Text :> - QueryParam "videoCategoryId" Text :> - QueryParam "id" Text :> - QueryParam "pageToken" Text :> - QueryParam "maxResults" (Textual Word32) :> - QueryParam "alt" AltJSON :> - Get '[JSON] VideoListResponse + QueryParam "maxHeight" (Textual Word32) :> + QueryParam "hl" Text :> + QueryParam "onBehalfOfContentOwner" Text :> + QueryParam "videoCategoryId" Text :> + QueryParam "maxWidth" (Textual Word32) :> + QueryParam "id" Text :> + QueryParam "pageToken" Text :> + QueryParam "maxResults" (Textual Word32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] VideoListResponse -- | Returns a list of videos that match the API request parameters. -- @@ -78,9 +82,11 @@ , _vlRegionCode :: !(Maybe Text) , _vlLocale :: !(Maybe Text) , _vlMyRating :: !(Maybe VideosListMyRating) + , _vlMaxHeight :: !(Maybe (Textual Word32)) , _vlHl :: !(Maybe Text) , _vlOnBehalfOfContentOwner :: !(Maybe Text) , _vlVideoCategoryId :: !Text + , _vlMaxWidth :: !(Maybe (Textual Word32)) , _vlId :: !(Maybe Text) , _vlPageToken :: !(Maybe Text) , _vlMaxResults :: !(Textual Word32) @@ -100,12 +106,16 @@ -- -- * 'vlMyRating' -- +-- * 'vlMaxHeight' +-- -- * 'vlHl' -- -- * 'vlOnBehalfOfContentOwner' -- -- * 'vlVideoCategoryId' -- +-- * 'vlMaxWidth' +-- -- * 'vlId' -- -- * 'vlPageToken' @@ -121,9 +131,11 @@ , _vlRegionCode = Nothing , _vlLocale = Nothing , _vlMyRating = Nothing + , _vlMaxHeight = Nothing , _vlHl = Nothing , _vlOnBehalfOfContentOwner = Nothing , _vlVideoCategoryId = "0" + , _vlMaxWidth = Nothing , _vlId = Nothing , _vlPageToken = Nothing , _vlMaxResults = 5 @@ -161,6 +173,14 @@ vlMyRating = lens _vlMyRating (\ s a -> s{_vlMyRating = a}) +-- | The maxHeight parameter specifies a maximum height of the embedded +-- player. If maxWidth is provided, maxHeight may not be reached in order +-- to not violate the width request. +vlMaxHeight :: Lens' VideosList (Maybe Word32) +vlMaxHeight + = lens _vlMaxHeight (\ s a -> s{_vlMaxHeight = a}) . + mapping _Coerce + -- | The hl parameter instructs the API to retrieve localized resource -- metadata for a specific application language that the YouTube website -- supports. The parameter value must be a language code included in the @@ -196,6 +216,14 @@ = lens _vlVideoCategoryId (\ s a -> s{_vlVideoCategoryId = a}) +-- | The maxWidth parameter specifies a maximum width of the embedded player. +-- If maxHeight is provided, maxWidth may not be reached in order to not +-- violate the height request. +vlMaxWidth :: Lens' VideosList (Maybe Word32) +vlMaxWidth + = lens _vlMaxWidth (\ s a -> s{_vlMaxWidth = a}) . + mapping _Coerce + -- | The id parameter specifies a comma-separated list of the YouTube video -- ID(s) for the resource(s) that are being retrieved. In a video resource, -- the id property specifies the video\'s ID. @@ -206,16 +234,16 @@ -- that should be returned. In an API response, the nextPageToken and -- prevPageToken properties identify other pages that could be retrieved. -- Note: This parameter is supported for use in conjunction with the --- myRating parameter, but it is not supported for use in conjunction with --- the id parameter. +-- myRating and chart parameters, but it is not supported for use in +-- conjunction with the id parameter. vlPageToken :: Lens' VideosList (Maybe Text) vlPageToken = lens _vlPageToken (\ s a -> s{_vlPageToken = a}) -- | The maxResults parameter specifies the maximum number of items that -- should be returned in the result set. Note: This parameter is supported --- for use in conjunction with the myRating parameter, but it is not --- supported for use in conjunction with the id parameter. +-- for use in conjunction with the myRating and chart parameters, but it is +-- not supported for use in conjunction with the id parameter. vlMaxResults :: Lens' VideosList Word32 vlMaxResults = lens _vlMaxResults (\ s a -> s{_vlMaxResults = a}) @@ -231,9 +259,11 @@ requestClient VideosList'{..} = go (Just _vlPart) _vlChart _vlRegionCode _vlLocale _vlMyRating + _vlMaxHeight _vlHl _vlOnBehalfOfContentOwner (Just _vlVideoCategoryId) + _vlMaxWidth _vlId _vlPageToken (Just _vlMaxResults) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Product.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Product.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Product.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Product.hs 2017-07-12 16:51:30.000000000 +0200 @@ -2469,6 +2469,7 @@ -- /See:/ 'videoContentDetails' smart constructor. data VideoContentDetails = VideoContentDetails' { _vcdCountryRestriction :: !(Maybe AccessPolicy) + , _vcdHasCustomThumbnail :: !(Maybe Bool) , _vcdDefinition :: !(Maybe VideoContentDetailsDefinition) , _vcdDimension :: !(Maybe Text) , _vcdCaption :: !(Maybe VideoContentDetailsCaption) @@ -2485,6 +2486,8 @@ -- -- * 'vcdCountryRestriction' -- +-- * 'vcdHasCustomThumbnail' +-- -- * 'vcdDefinition' -- -- * 'vcdDimension' @@ -2505,6 +2508,7 @@ videoContentDetails = VideoContentDetails' { _vcdCountryRestriction = Nothing + , _vcdHasCustomThumbnail = Nothing , _vcdDefinition = Nothing , _vcdDimension = Nothing , _vcdCaption = Nothing @@ -2522,6 +2526,14 @@ = lens _vcdCountryRestriction (\ s a -> s{_vcdCountryRestriction = a}) +-- | Indicates whether the video uploader has provided a custom thumbnail +-- image for the video. This property is only visible to the video +-- uploader. +vcdHasCustomThumbnail :: Lens' VideoContentDetails (Maybe Bool) +vcdHasCustomThumbnail + = lens _vcdHasCustomThumbnail + (\ s a -> s{_vcdHasCustomThumbnail = a}) + -- | The value of definition indicates whether the video is available in high -- definition or only in standard definition. vcdDefinition :: Lens' VideoContentDetails (Maybe VideoContentDetailsDefinition) @@ -2585,7 +2597,9 @@ = withObject "VideoContentDetails" (\ o -> VideoContentDetails' <$> - (o .:? "countryRestriction") <*> (o .:? "definition") + (o .:? "countryRestriction") <*> + (o .:? "hasCustomThumbnail") + <*> (o .:? "definition") <*> (o .:? "dimension") <*> (o .:? "caption") <*> (o .:? "regionRestriction") @@ -2600,6 +2614,7 @@ (catMaybes [("countryRestriction" .=) <$> _vcdCountryRestriction, + ("hasCustomThumbnail" .=) <$> _vcdHasCustomThumbnail, ("definition" .=) <$> _vcdDefinition, ("dimension" .=) <$> _vcdDimension, ("caption" .=) <$> _vcdCaption, @@ -3645,16 +3660,15 @@ -- -- /See:/ 'videoFileDetails' smart constructor. data VideoFileDetails = VideoFileDetails' - { _vfdBitrateBps :: !(Maybe (Textual Word64)) - , _vfdCreationTime :: !(Maybe Text) - , _vfdRecordingLocation :: !(Maybe GeoPoint) - , _vfdDurationMs :: !(Maybe (Textual Word64)) - , _vfdFileSize :: !(Maybe (Textual Word64)) - , _vfdFileType :: !(Maybe VideoFileDetailsFileType) - , _vfdContainer :: !(Maybe Text) - , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream]) - , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream]) - , _vfdFileName :: !(Maybe Text) + { _vfdBitrateBps :: !(Maybe (Textual Word64)) + , _vfdCreationTime :: !(Maybe Text) + , _vfdDurationMs :: !(Maybe (Textual Word64)) + , _vfdFileSize :: !(Maybe (Textual Word64)) + , _vfdFileType :: !(Maybe VideoFileDetailsFileType) + , _vfdContainer :: !(Maybe Text) + , _vfdVideoStreams :: !(Maybe [VideoFileDetailsVideoStream]) + , _vfdAudioStreams :: !(Maybe [VideoFileDetailsAudioStream]) + , _vfdFileName :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'VideoFileDetails' with the minimum fields required to make a request. @@ -3665,8 +3679,6 @@ -- -- * 'vfdCreationTime' -- --- * 'vfdRecordingLocation' --- -- * 'vfdDurationMs' -- -- * 'vfdFileSize' @@ -3686,7 +3698,6 @@ VideoFileDetails' { _vfdBitrateBps = Nothing , _vfdCreationTime = Nothing - , _vfdRecordingLocation = Nothing , _vfdDurationMs = Nothing , _vfdFileSize = Nothing , _vfdFileType = Nothing @@ -3713,13 +3724,6 @@ = lens _vfdCreationTime (\ s a -> s{_vfdCreationTime = a}) --- | Geographic coordinates that identify the place where the uploaded video --- was recorded. Coordinates are defined using WGS 84. -vfdRecordingLocation :: Lens' VideoFileDetails (Maybe GeoPoint) -vfdRecordingLocation - = lens _vfdRecordingLocation - (\ s a -> s{_vfdRecordingLocation = a}) - -- | The length of the uploaded video in milliseconds. vfdDurationMs :: Lens' VideoFileDetails (Maybe Word64) vfdDurationMs @@ -3776,8 +3780,7 @@ (\ o -> VideoFileDetails' <$> (o .:? "bitrateBps") <*> (o .:? "creationTime") <*> - (o .:? "recordingLocation") - <*> (o .:? "durationMs") + (o .:? "durationMs") <*> (o .:? "fileSize") <*> (o .:? "fileType") <*> (o .:? "container") @@ -3791,7 +3794,6 @@ (catMaybes [("bitrateBps" .=) <$> _vfdBitrateBps, ("creationTime" .=) <$> _vfdCreationTime, - ("recordingLocation" .=) <$> _vfdRecordingLocation, ("durationMs" .=) <$> _vfdDurationMs, ("fileSize" .=) <$> _vfdFileSize, ("fileType" .=) <$> _vfdFileType, @@ -4013,9 +4015,8 @@ -- | Details about the content of a channel. -- -- /See:/ 'channelContentDetails' smart constructor. -data ChannelContentDetails = ChannelContentDetails' - { _ccdRelatedPlayLists :: !(Maybe ChannelContentDetailsRelatedPlayLists) - , _ccdGooglePlusUserId :: !(Maybe Text) +newtype ChannelContentDetails = ChannelContentDetails' + { _ccdRelatedPlayLists :: Maybe ChannelContentDetailsRelatedPlayLists } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'ChannelContentDetails' with the minimum fields required to make a request. @@ -4023,14 +4024,11 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'ccdRelatedPlayLists' --- --- * 'ccdGooglePlusUserId' channelContentDetails :: ChannelContentDetails channelContentDetails = ChannelContentDetails' { _ccdRelatedPlayLists = Nothing - , _ccdGooglePlusUserId = Nothing } ccdRelatedPlayLists :: Lens' ChannelContentDetails (Maybe ChannelContentDetailsRelatedPlayLists) @@ -4038,27 +4036,18 @@ = lens _ccdRelatedPlayLists (\ s a -> s{_ccdRelatedPlayLists = a}) --- | The googlePlusUserId object identifies the Google+ profile ID associated --- with this channel. -ccdGooglePlusUserId :: Lens' ChannelContentDetails (Maybe Text) -ccdGooglePlusUserId - = lens _ccdGooglePlusUserId - (\ s a -> s{_ccdGooglePlusUserId = a}) - instance FromJSON ChannelContentDetails where parseJSON = withObject "ChannelContentDetails" (\ o -> ChannelContentDetails' <$> - (o .:? "relatedPlaylists") <*> - (o .:? "googlePlusUserId")) + (o .:? "relatedPlaylists")) instance ToJSON ChannelContentDetails where toJSON ChannelContentDetails'{..} = object (catMaybes - [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists, - ("googlePlusUserId" .=) <$> _ccdGooglePlusUserId]) + [("relatedPlaylists" .=) <$> _ccdRelatedPlayLists]) -- | Details about a resource which was added to a channel. -- @@ -10091,22 +10080,42 @@ -- | Player to be used for a video playback. -- -- /See:/ 'videoPlayer' smart constructor. -newtype VideoPlayer = VideoPlayer' - { _vpEmbedHTML :: Maybe Text +data VideoPlayer = VideoPlayer' + { _vpEmbedHeight :: !(Maybe (Textual Int64)) + , _vpEmbedWidth :: !(Maybe (Textual Int64)) + , _vpEmbedHTML :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'VideoPlayer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'vpEmbedHeight' +-- +-- * 'vpEmbedWidth' +-- -- * 'vpEmbedHTML' videoPlayer :: VideoPlayer videoPlayer = VideoPlayer' - { _vpEmbedHTML = Nothing + { _vpEmbedHeight = Nothing + , _vpEmbedWidth = Nothing + , _vpEmbedHTML = Nothing } +vpEmbedHeight :: Lens' VideoPlayer (Maybe Int64) +vpEmbedHeight + = lens _vpEmbedHeight + (\ s a -> s{_vpEmbedHeight = a}) + . mapping _Coerce + +-- | The embed width +vpEmbedWidth :: Lens' VideoPlayer (Maybe Int64) +vpEmbedWidth + = lens _vpEmbedWidth (\ s a -> s{_vpEmbedWidth = a}) + . mapping _Coerce + -- | An -- tag that embeds a player that will play the video. vpEmbedHTML :: Lens' VideoPlayer (Maybe Text) @@ -10116,12 +10125,18 @@ instance FromJSON VideoPlayer where parseJSON = withObject "VideoPlayer" - (\ o -> VideoPlayer' <$> (o .:? "embedHtml")) + (\ o -> + VideoPlayer' <$> + (o .:? "embedHeight") <*> (o .:? "embedWidth") <*> + (o .:? "embedHtml")) instance ToJSON VideoPlayer where toJSON VideoPlayer'{..} = object - (catMaybes [("embedHtml" .=) <$> _vpEmbedHTML]) + (catMaybes + [("embedHeight" .=) <$> _vpEmbedHeight, + ("embedWidth" .=) <$> _vpEmbedWidth, + ("embedHtml" .=) <$> _vpEmbedHTML]) -- | Describes a single promoted item id. It is a union of various possible -- types. @@ -10944,7 +10959,7 @@ { _ibImageURL :: !(Maybe Text) , _ibTargetChannelId :: !(Maybe Text) , _ibTiming :: !(Maybe InvideoTiming) - , _ibImageBytes :: !(Maybe Base64) + , _ibImageBytes :: !(Maybe Bytes) , _ibPosition :: !(Maybe InvideoPosition) } deriving (Eq,Show,Data,Typeable,Generic) @@ -10987,7 +11002,7 @@ ibImageBytes :: Lens' InvideoBranding (Maybe ByteString) ibImageBytes = lens _ibImageBytes (\ s a -> s{_ibImageBytes = a}) - . mapping _Base64 + . mapping _Bytes ibPosition :: Lens' InvideoBranding (Maybe InvideoPosition) ibPosition @@ -11845,10 +11860,11 @@ -- -- /See:/ 'playListItemContentDetails' smart constructor. data PlayListItemContentDetails = PlayListItemContentDetails' - { _plicdStartAt :: !(Maybe Text) - , _plicdNote :: !(Maybe Text) - , _plicdVideoId :: !(Maybe Text) - , _plicdEndAt :: !(Maybe Text) + { _plicdStartAt :: !(Maybe Text) + , _plicdNote :: !(Maybe Text) + , _plicdVideoPublishedAt :: !(Maybe DateTime') + , _plicdVideoId :: !(Maybe Text) + , _plicdEndAt :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PlayListItemContentDetails' with the minimum fields required to make a request. @@ -11859,6 +11875,8 @@ -- -- * 'plicdNote' -- +-- * 'plicdVideoPublishedAt' +-- -- * 'plicdVideoId' -- -- * 'plicdEndAt' @@ -11868,6 +11886,7 @@ PlayListItemContentDetails' { _plicdStartAt = Nothing , _plicdNote = Nothing + , _plicdVideoPublishedAt = Nothing , _plicdVideoId = Nothing , _plicdEndAt = Nothing } @@ -11885,6 +11904,14 @@ plicdNote = lens _plicdNote (\ s a -> s{_plicdNote = a}) +-- | The date and time that the video was published to YouTube. The value is +-- specified in ISO 8601 (YYYY-MM-DDThh:mm:ss.sZ) format. +plicdVideoPublishedAt :: Lens' PlayListItemContentDetails (Maybe UTCTime) +plicdVideoPublishedAt + = lens _plicdVideoPublishedAt + (\ s a -> s{_plicdVideoPublishedAt = a}) + . mapping _DateTime + -- | The ID that YouTube uses to uniquely identify a video. To retrieve the -- video resource, set the id query parameter to this value in your API -- request. @@ -11907,7 +11934,8 @@ (\ o -> PlayListItemContentDetails' <$> (o .:? "startAt") <*> (o .:? "note") <*> - (o .:? "videoId") + (o .:? "videoPublishedAt") + <*> (o .:? "videoId") <*> (o .:? "endAt")) instance ToJSON PlayListItemContentDetails where @@ -11916,6 +11944,7 @@ (catMaybes [("startAt" .=) <$> _plicdStartAt, ("note" .=) <$> _plicdNote, + ("videoPublishedAt" .=) <$> _plicdVideoPublishedAt, ("videoId" .=) <$> _plicdVideoId, ("endAt" .=) <$> _plicdEndAt]) @@ -13000,22 +13029,21 @@ -- -- /See:/ 'commentSnippet' smart constructor. data CommentSnippet = CommentSnippet' - { _cViewerRating :: !(Maybe CommentSnippetViewerRating) - , _cPublishedAt :: !(Maybe DateTime') - , _cAuthorChannelURL :: !(Maybe Text) - , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus) - , _cLikeCount :: !(Maybe (Textual Word32)) - , _cChannelId :: !(Maybe Text) - , _cTextOriginal :: !(Maybe Text) - , _cVideoId :: !(Maybe Text) - , _cTextDisplay :: !(Maybe Text) - , _cAuthorProFileImageURL :: !(Maybe Text) - , _cAuthorDisplayName :: !(Maybe Text) - , _cUpdatedAt :: !(Maybe DateTime') - , _cAuthorChannelId :: !(Maybe JSONValue) - , _cCanRate :: !(Maybe Bool) - , _cAuthorGoogleplusProFileURL :: !(Maybe Text) - , _cParentId :: !(Maybe Text) + { _cViewerRating :: !(Maybe CommentSnippetViewerRating) + , _cPublishedAt :: !(Maybe DateTime') + , _cAuthorChannelURL :: !(Maybe Text) + , _cModerationStatus :: !(Maybe CommentSnippetModerationStatus) + , _cLikeCount :: !(Maybe (Textual Word32)) + , _cChannelId :: !(Maybe Text) + , _cTextOriginal :: !(Maybe Text) + , _cVideoId :: !(Maybe Text) + , _cTextDisplay :: !(Maybe Text) + , _cAuthorProFileImageURL :: !(Maybe Text) + , _cAuthorDisplayName :: !(Maybe Text) + , _cUpdatedAt :: !(Maybe DateTime') + , _cAuthorChannelId :: !(Maybe JSONValue) + , _cCanRate :: !(Maybe Bool) + , _cParentId :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'CommentSnippet' with the minimum fields required to make a request. @@ -13050,8 +13078,6 @@ -- -- * 'cCanRate' -- --- * 'cAuthorGoogleplusProFileURL' --- -- * 'cParentId' commentSnippet :: CommentSnippet @@ -13071,7 +13097,6 @@ , _cUpdatedAt = Nothing , _cAuthorChannelId = Nothing , _cCanRate = Nothing - , _cAuthorGoogleplusProFileURL = Nothing , _cParentId = Nothing } @@ -13165,12 +13190,6 @@ cCanRate :: Lens' CommentSnippet (Maybe Bool) cCanRate = lens _cCanRate (\ s a -> s{_cCanRate = a}) --- | Link to the author\'s Google+ profile, if any. -cAuthorGoogleplusProFileURL :: Lens' CommentSnippet (Maybe Text) -cAuthorGoogleplusProFileURL - = lens _cAuthorGoogleplusProFileURL - (\ s a -> s{_cAuthorGoogleplusProFileURL = a}) - -- | The unique id of the parent comment, only set for replies. cParentId :: Lens' CommentSnippet (Maybe Text) cParentId @@ -13194,7 +13213,6 @@ <*> (o .:? "updatedAt") <*> (o .:? "authorChannelId") <*> (o .:? "canRate") - <*> (o .:? "authorGoogleplusProfileUrl") <*> (o .:? "parentId")) instance ToJSON CommentSnippet where @@ -13216,8 +13234,6 @@ ("updatedAt" .=) <$> _cUpdatedAt, ("authorChannelId" .=) <$> _cAuthorChannelId, ("canRate" .=) <$> _cCanRate, - ("authorGoogleplusProfileUrl" .=) <$> - _cAuthorGoogleplusProFileURL, ("parentId" .=) <$> _cParentId]) -- | Brief description of the live stream status. @@ -13555,7 +13571,7 @@ = object (catMaybes [("tags" .=) <$> _vpdTags]) -- | Ratings schemes. The country-specific ratings are mostly for movies and --- shows. NEXT_ID: 68 +-- shows. NEXT_ID: 69 -- -- /See:/ 'contentRating' smart constructor. data ContentRating = ContentRating' @@ -13581,6 +13597,7 @@ , _crSmsaRating :: !(Maybe ContentRatingSmsaRating) , _crChvrsRating :: !(Maybe ContentRatingChvrsRating) , _crIncaaRating :: !(Maybe ContentRatingIncaaRating) + , _crMcstRating :: !(Maybe ContentRatingMcstRating) , _crNfrcRating :: !(Maybe ContentRatingNfrcRating) , _crCsaRating :: !(Maybe ContentRatingCsaRating) , _crMocRating :: !(Maybe ContentRatingMocRating) @@ -13676,6 +13693,8 @@ -- -- * 'crIncaaRating' -- +-- * 'crMcstRating' +-- -- * 'crNfrcRating' -- -- * 'crCsaRating' @@ -13791,6 +13810,7 @@ , _crSmsaRating = Nothing , _crChvrsRating = Nothing , _crIncaaRating = Nothing + , _crMcstRating = Nothing , _crNfrcRating = Nothing , _crCsaRating = Nothing , _crMocRating = Nothing @@ -13978,6 +13998,11 @@ = lens _crIncaaRating (\ s a -> s{_crIncaaRating = a}) +-- | The video\'s rating system for Vietnam - MCST +crMcstRating :: Lens' ContentRating (Maybe ContentRatingMcstRating) +crMcstRating + = lens _crMcstRating (\ s a -> s{_crMcstRating = a}) + -- | The video\'s rating from the Bulgarian National Film Center. crNfrcRating :: Lens' ContentRating (Maybe ContentRatingNfrcRating) crNfrcRating @@ -14275,6 +14300,7 @@ <*> (o .:? "smsaRating") <*> (o .:? "chvrsRating") <*> (o .:? "incaaRating") + <*> (o .:? "mcstRating") <*> (o .:? "nfrcRating") <*> (o .:? "csaRating") <*> (o .:? "mocRating") @@ -14347,6 +14373,7 @@ ("smsaRating" .=) <$> _crSmsaRating, ("chvrsRating" .=) <$> _crChvrsRating, ("incaaRating" .=) <$> _crIncaaRating, + ("mcstRating" .=) <$> _crMcstRating, ("nfrcRating" .=) <$> _crNfrcRating, ("csaRating" .=) <$> _crCsaRating, ("mocRating" .=) <$> _crMocRating, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Sum.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Sum.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types/Sum.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types/Sum.hs 2017-07-12 16:51:30.000000000 +0200 @@ -915,6 +915,8 @@ -- ^ @1080p@ | CSR1440p -- ^ @1440p@ + | CSR2160p + -- ^ @2160p@ | CSR240p -- ^ @240p@ | CSR360p @@ -931,6 +933,7 @@ parseQueryParam = \case "1080p" -> Right CSR1080p "1440p" -> Right CSR1440p + "2160p" -> Right CSR2160p "240p" -> Right CSR240p "360p" -> Right CSR360p "480p" -> Right CSR480p @@ -941,6 +944,7 @@ toQueryParam = \case CSR1080p -> "1080p" CSR1440p -> "1440p" + CSR2160p -> "2160p" CSR240p -> "240p" CSR360p -> "360p" CSR480p -> "480p" @@ -4920,6 +4924,10 @@ data VideoSuggestionsProcessingHintsItem = NonStreamableMov -- ^ @nonStreamableMov@ + | ProcsesingHintSpatialAudio + -- ^ @procsesingHintSpatialAudio@ + | ProcsesingHintSphericalVideo + -- ^ @procsesingHintSphericalVideo@ | SendBestQualityVideo -- ^ @sendBestQualityVideo@ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) @@ -4929,12 +4937,16 @@ instance FromHttpApiData VideoSuggestionsProcessingHintsItem where parseQueryParam = \case "nonStreamableMov" -> Right NonStreamableMov + "procsesingHintSpatialAudio" -> Right ProcsesingHintSpatialAudio + "procsesingHintSphericalVideo" -> Right ProcsesingHintSphericalVideo "sendBestQualityVideo" -> Right SendBestQualityVideo x -> Left ("Unable to parse VideoSuggestionsProcessingHintsItem from: " <> x) instance ToHttpApiData VideoSuggestionsProcessingHintsItem where toQueryParam = \case NonStreamableMov -> "nonStreamableMov" + ProcsesingHintSpatialAudio -> "procsesingHintSpatialAudio" + ProcsesingHintSphericalVideo -> "procsesingHintSphericalVideo" SendBestQualityVideo -> "sendBestQualityVideo" instance FromJSON VideoSuggestionsProcessingHintsItem where @@ -5135,6 +5147,57 @@ instance ToJSON SearchListVideoEmbeddable where toJSON = toJSONText +-- | The video\'s rating system for Vietnam - MCST +data ContentRatingMcstRating + = MCST0 + -- ^ @mcst0@ + | Mcst16plus + -- ^ @mcst16plus@ + | MCSTC13 + -- ^ @mcstC13@ + | MCSTC16 + -- ^ @mcstC16@ + | MCSTC18 + -- ^ @mcstC18@ + | McstGPg + -- ^ @mcstGPg@ + | McstP + -- ^ @mcstP@ + | McstUnrated + -- ^ @mcstUnrated@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ContentRatingMcstRating + +instance FromHttpApiData ContentRatingMcstRating where + parseQueryParam = \case + "mcst0" -> Right MCST0 + "mcst16plus" -> Right Mcst16plus + "mcstC13" -> Right MCSTC13 + "mcstC16" -> Right MCSTC16 + "mcstC18" -> Right MCSTC18 + "mcstGPg" -> Right McstGPg + "mcstP" -> Right McstP + "mcstUnrated" -> Right McstUnrated + x -> Left ("Unable to parse ContentRatingMcstRating from: " <> x) + +instance ToHttpApiData ContentRatingMcstRating where + toQueryParam = \case + MCST0 -> "mcst0" + Mcst16plus -> "mcst16plus" + MCSTC13 -> "mcstC13" + MCSTC16 -> "mcstC16" + MCSTC18 -> "mcstC18" + McstGPg -> "mcstGPg" + McstP -> "mcstP" + McstUnrated -> "mcstUnrated" + +instance FromJSON ContentRatingMcstRating where + parseJSON = parseJSONText "ContentRatingMcstRating" + +instance ToJSON ContentRatingMcstRating where + toJSON = toJSONText + -- | The eventType parameter restricts a search to broadcast events. If you -- specify a value for this parameter, you must also set the type -- parameter\'s value to video. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube/Types.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube/Types.hs 2017-07-12 16:51:30.000000000 +0200 @@ -374,6 +374,7 @@ , VideoContentDetails , videoContentDetails , vcdCountryRestriction + , vcdHasCustomThumbnail , vcdDefinition , vcdDimension , vcdCaption @@ -525,7 +526,6 @@ , videoFileDetails , vfdBitrateBps , vfdCreationTime - , vfdRecordingLocation , vfdDurationMs , vfdFileSize , vfdFileType @@ -563,7 +563,6 @@ , ChannelContentDetails , channelContentDetails , ccdRelatedPlayLists - , ccdGooglePlusUserId -- * SearchListVideoDefinition , SearchListVideoDefinition (..) @@ -1385,6 +1384,8 @@ -- * VideoPlayer , VideoPlayer , videoPlayer + , vpEmbedHeight + , vpEmbedWidth , vpEmbedHTML -- * PromotedItemId @@ -1644,6 +1645,7 @@ , playListItemContentDetails , plicdStartAt , plicdNote + , plicdVideoPublishedAt , plicdVideoId , plicdEndAt @@ -1672,6 +1674,9 @@ -- * SearchListVideoEmbeddable , SearchListVideoEmbeddable (..) + -- * ContentRatingMcstRating + , ContentRatingMcstRating (..) + -- * LanguageTag , LanguageTag , languageTag @@ -1841,7 +1846,6 @@ , cUpdatedAt , cAuthorChannelId , cCanRate - , cAuthorGoogleplusProFileURL , cParentId -- * LiveStreamStatus @@ -1908,6 +1912,7 @@ , crSmsaRating , crChvrsRating , crIncaaRating + , crMcstRating , crNfrcRating , crCsaRating , crMocRating diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gen/Network/Google/YouTube.hs new/gogol-youtube-0.3.0/gen/Network/Google/YouTube.hs --- old/gogol-youtube-0.1.1/gen/Network/Google/YouTube.hs 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gen/Network/Google/YouTube.hs 2017-07-12 16:51:30.000000000 +0200 @@ -597,6 +597,7 @@ , VideoContentDetails , videoContentDetails , vcdCountryRestriction + , vcdHasCustomThumbnail , vcdDefinition , vcdDimension , vcdCaption @@ -748,7 +749,6 @@ , videoFileDetails , vfdBitrateBps , vfdCreationTime - , vfdRecordingLocation , vfdDurationMs , vfdFileSize , vfdFileType @@ -786,7 +786,6 @@ , ChannelContentDetails , channelContentDetails , ccdRelatedPlayLists - , ccdGooglePlusUserId -- ** SearchListVideoDefinition , SearchListVideoDefinition (..) @@ -1608,6 +1607,8 @@ -- ** VideoPlayer , VideoPlayer , videoPlayer + , vpEmbedHeight + , vpEmbedWidth , vpEmbedHTML -- ** PromotedItemId @@ -1867,6 +1868,7 @@ , playListItemContentDetails , plicdStartAt , plicdNote + , plicdVideoPublishedAt , plicdVideoId , plicdEndAt @@ -1895,6 +1897,9 @@ -- ** SearchListVideoEmbeddable , SearchListVideoEmbeddable (..) + -- ** ContentRatingMcstRating + , ContentRatingMcstRating (..) + -- ** LanguageTag , LanguageTag , languageTag @@ -2064,7 +2069,6 @@ , cUpdatedAt , cAuthorChannelId , cCanRate - , cAuthorGoogleplusProFileURL , cParentId -- ** LiveStreamStatus @@ -2131,6 +2135,7 @@ , crSmsaRating , crChvrsRating , crIncaaRating + , crMcstRating , crNfrcRating , crCsaRating , crMocRating diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-youtube-0.1.1/gogol-youtube.cabal new/gogol-youtube-0.3.0/gogol-youtube.cabal --- old/gogol-youtube-0.1.1/gogol-youtube.cabal 2016-11-03 14:26:29.000000000 +0100 +++ new/gogol-youtube-0.3.0/gogol-youtube.cabal 2017-07-12 16:51:30.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-youtube -version: 0.1.1 +version: 0.3.0 synopsis: Google YouTube Data SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -113,5 +113,5 @@ , Network.Google.YouTube.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-webmaster-tools 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-webmaster-tools for openSUSE:Factory checked in at 2017-08-31 20:55:23 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-webmaster-tools (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-webmaster-tools.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-webmaster-tools" Thu Aug 31 20:55:23 2017 rev:2 rq:513354 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-webmaster-tools/ghc-gogol-webmaster-tools.changes 2017-05-10 20:44:33.465304689 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-webmaster-tools.new/ghc-gogol-webmaster-tools.changes 2017-08-31 20:55:26.444038624 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:01 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-webmaster-tools-0.1.1.tar.gz New: ---- gogol-webmaster-tools-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-webmaster-tools.spec ++++++ --- /var/tmp/diff_new_pack.FGPSR3/_old 2017-08-31 20:55:27.363909379 +0200 +++ /var/tmp/diff_new_pack.FGPSR3/_new 2017-08-31 20:55:27.367908817 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-webmaster-tools Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Search Console SDK License: MPL-2.0 ++++++ gogol-webmaster-tools-0.1.1.tar.gz -> gogol-webmaster-tools-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-webmaster-tools-0.1.1/README.md new/gogol-webmaster-tools-0.3.0/README.md --- old/gogol-webmaster-tools-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-webmaster-tools-0.3.0/README.md 2017-07-12 16:45:06.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-webmaster-tools-0.1.1/gogol-webmaster-tools.cabal new/gogol-webmaster-tools-0.3.0/gogol-webmaster-tools.cabal --- old/gogol-webmaster-tools-0.1.1/gogol-webmaster-tools.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-webmaster-tools-0.3.0/gogol-webmaster-tools.cabal 2017-07-12 16:45:06.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-webmaster-tools -version: 0.1.1 +version: 0.3.0 synopsis: Google Search Console SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -54,5 +54,5 @@ , Network.Google.WebmasterTools.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-vision 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-vision for openSUSE:Factory checked in at 2017-08-31 20:55:21 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-vision (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-vision.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-vision" Thu Aug 31 20:55:21 2017 rev:2 rq:513353 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-vision/ghc-gogol-vision.changes 2017-05-10 20:44:31.489583466 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-vision.new/ghc-gogol-vision.changes 2017-08-31 20:55:23.428462323 +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-vision-0.1.1.tar.gz New: ---- gogol-vision-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-vision.spec ++++++ --- /var/tmp/diff_new_pack.h1ikue/_old 2017-08-31 20:55:24.596298238 +0200 +++ /var/tmp/diff_new_pack.h1ikue/_new 2017-08-31 20:55:24.624294305 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-vision Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud Vision SDK License: MPL-2.0 ++++++ gogol-vision-0.1.1.tar.gz -> gogol-vision-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-vision-0.1.1/README.md new/gogol-vision-0.3.0/README.md --- old/gogol-vision-0.1.1/README.md 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-vision-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-vision-0.1.1/gen/Network/Google/Vision/Types/Product.hs new/gogol-vision-0.3.0/gen/Network/Google/Vision/Types/Product.hs --- old/gogol-vision-0.1.1/gen/Network/Google/Vision/Types/Product.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-vision-0.3.0/gen/Network/Google/Vision/Types/Product.hs 2017-07-12 16:45:05.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' @@ -93,10 +95,10 @@ [("latitude" .=) <$> _llLatitude, ("longitude" .=) <$> _llLongitude]) --- | The /Feature/ indicates what type of image detection task to perform. --- Users describe the type of Google Cloud Vision API tasks to perform over --- images by using /Feature/s. Features encode the Cloud Vision API --- vertical to operate on and the number of top-scoring results to return. +-- | Users describe the type of Google Cloud Vision API tasks to perform over +-- images by using *Feature*s. Each Feature indicates a type of image +-- detection task to perform. Features encode the Cloud Vision API vertical +-- to operate on and the number of top-scoring results to return. -- -- /See:/ 'feature' smart constructor. data Feature = Feature' @@ -239,7 +241,7 @@ ("code" .=) <$> _sCode, ("message" .=) <$> _sMessage]) --- | Arbitrary name\/value pair. +-- | A \`Property\` consists of a user-supplied name\/value pair. -- -- /See:/ 'property' smart constructor. data Property = Property' @@ -286,7 +288,7 @@ -- -- /See:/ 'image' smart constructor. data Image = Image' - { _iContent :: !(Maybe Base64) + { _iContent :: !(Maybe Bytes) , _iSource :: !(Maybe ImageSource) } deriving (Eq,Show,Data,Typeable,Generic) @@ -311,11 +313,11 @@ iContent :: Lens' Image (Maybe ByteString) iContent = lens _iContent (\ s a -> s{_iContent = a}) . - mapping _Base64 + mapping _Bytes --- | Google Cloud Storage image location. If both \'content\' and \'source\' --- are filled for an image, \'content\' takes precedence and it will be --- used for performing the image annotation request. +-- | Google Cloud Storage image location. If both \`content\` and \`source\` +-- are provided for an image, \`content\` takes precedence and is used to +-- perform the image annotation request. iSource :: Lens' Image (Maybe ImageSource) iSource = lens _iSource (\ s a -> s{_iSource = a}) @@ -333,9 +335,9 @@ ("source" .=) <$> _iSource]) -- | A face-specific landmark (for example, a face feature). Landmark --- positions may fall outside the bounds of the image when the face is near --- one or more edges of the image. Therefore it is NOT guaranteed that 0 --- \<= x \< width or 0 \<= y \< height. +-- positions may fall outside the bounds of the image if the face is near +-- one or more edges of the image. Therefore it is NOT guaranteed that \`0 +-- \<= x \< width\` or \`0 \<= y \< height\`. -- -- /See:/ 'landmark' smart constructor. data Landmark = Landmark' @@ -600,7 +602,7 @@ { _liLatLng = Nothing } --- | Lat - long location coordinates. +-- | lat\/long location coordinates. liLatLng :: Lens' LocationInfo (Maybe LatLng) liLatLng = lens _liLatLng (\ s a -> s{_liLatLng = a}) @@ -685,8 +687,8 @@ = object (catMaybes [("requests" .=) <$> _bairRequests]) --- | Color information consists of RGB channels, score and fraction of image --- the color occupies in the image. +-- | Color information consists of RGB channels, score, and the fraction of +-- the image that the color occupies in the image. -- -- /See:/ 'colorInfo' smart constructor. data ColorInfo = ColorInfo' @@ -723,8 +725,8 @@ = lens _ciScore (\ s a -> s{_ciScore = a}) . mapping _Coerce --- | Stores the fraction of pixels the color occupies in the image. Value in --- range [0, 1]. +-- | The fraction of pixels the color occupies in the image. Value in range +-- [0, 1]. ciPixelFraction :: Lens' ColorInfo (Maybe Double) ciPixelFraction = lens _ciPixelFraction @@ -794,7 +796,7 @@ , _airImagePropertiesAnnotation = Nothing } --- | If present, logo detection completed successfully. +-- | If present, logo detection has completed successfully. airLogoAnnotations :: Lens' AnnotateImageResponse [EntityAnnotation] airLogoAnnotations = lens _airLogoAnnotations @@ -802,7 +804,7 @@ . _Default . _Coerce --- | If present, label detection completed successfully. +-- | If present, label detection has completed successfully. airLabelAnnotations :: Lens' AnnotateImageResponse [EntityAnnotation] airLabelAnnotations = lens _airLabelAnnotations @@ -810,7 +812,7 @@ . _Default . _Coerce --- | If present, face detection completed successfully. +-- | If present, face detection has completed successfully. airFaceAnnotations :: Lens' AnnotateImageResponse [FaceAnnotation] airFaceAnnotations = lens _airFaceAnnotations @@ -819,18 +821,18 @@ . _Coerce -- | If set, represents the error message for the operation. Note that --- filled-in mage annotations are guaranteed to be correct, even when --- 'error' is non-empty. +-- filled-in image annotations are guaranteed to be correct, even when +-- \`error\` is set. airError :: Lens' AnnotateImageResponse (Maybe Status) airError = lens _airError (\ s a -> s{_airError = a}) --- | If present, safe-search annotation completed successfully. +-- | If present, safe-search annotation has completed successfully. airSafeSearchAnnotation :: Lens' AnnotateImageResponse (Maybe SafeSearchAnnotation) airSafeSearchAnnotation = lens _airSafeSearchAnnotation (\ s a -> s{_airSafeSearchAnnotation = a}) --- | If present, landmark detection completed successfully. +-- | If present, landmark detection has completed successfully. airLandmarkAnnotations :: Lens' AnnotateImageResponse [EntityAnnotation] airLandmarkAnnotations = lens _airLandmarkAnnotations @@ -838,7 +840,7 @@ . _Default . _Coerce --- | If present, text (OCR) detection completed successfully. +-- | If present, text (OCR) detection has completed successfully. airTextAnnotations :: Lens' AnnotateImageResponse [EntityAnnotation] airTextAnnotations = lens _airTextAnnotations @@ -882,7 +884,7 @@ ("imagePropertiesAnnotation" .=) <$> _airImagePropertiesAnnotation]) --- | Stores image properties (e.g. dominant colors). +-- | Stores image properties, such as dominant colors. -- -- /See:/ 'imageProperties' smart constructor. newtype ImageProperties = ImageProperties' @@ -994,8 +996,8 @@ , _faLandmarks = Nothing } --- | Pitch angle. Indicates the upwards\/downwards angle that the face is --- pointing relative to the image\'s horizontal plane. Range [-180,180]. +-- | Pitch angle, which indicates the upwards\/downwards angle that the face +-- is pointing relative to the image\'s horizontal plane. Range [-180,180]. faTiltAngle :: Lens' FaceAnnotation (Maybe Double) faTiltAngle = lens _faTiltAngle (\ s a -> s{_faTiltAngle = a}) . @@ -1008,12 +1010,12 @@ (\ s a -> s{_faBlurredLikelihood = a}) -- | The bounding polygon around the face. The coordinates of the bounding --- box are in the original image\'s scale, as returned in ImageParams. The --- bounding box is computed to \"frame\" the face in accordance with human --- expectations. It is based on the landmarker results. Note that one or --- more x and\/or y coordinates may not be generated in the BoundingPoly --- (the polygon will be unbounded) if only a partial face appears in the --- image to be annotated. +-- box are in the original image\'s scale, as returned in \`ImageParams\`. +-- The bounding box is computed to \"frame\" the face in accordance with +-- human expectations. It is based on the landmarker results. Note that one +-- or more x and\/or y coordinates may not be generated in the +-- \`BoundingPoly\` (the polygon will be unbounded) if only a partial face +-- appears in the image to be annotated. faBoundingPoly :: Lens' FaceAnnotation (Maybe BoundingPoly) faBoundingPoly = lens _faBoundingPoly @@ -1032,17 +1034,17 @@ (\ s a -> s{_faLandmarkingConfidence = a}) . mapping _Coerce --- | Yaw angle. Indicates the leftward\/rightward angle that the face is --- pointing, relative to the vertical plane perpendicular to the image. +-- | Yaw angle, which indicates the leftward\/rightward angle that the face +-- is pointing relative to the vertical plane perpendicular to the image. -- Range [-180,180]. faPanAngle :: Lens' FaceAnnotation (Maybe Double) faPanAngle = lens _faPanAngle (\ s a -> s{_faPanAngle = a}) . mapping _Coerce --- | Roll angle. Indicates the amount of clockwise\/anti-clockwise rotation --- of the face relative to the image vertical, about the axis perpendicular --- to the face. Range [-180,180]. +-- | Roll angle, which indicates the amount of clockwise\/anti-clockwise +-- rotation of the face relative to the image vertical about the axis +-- perpendicular to the face. Range [-180,180]. faRollAngle :: Lens' FaceAnnotation (Maybe Double) faRollAngle = lens _faRollAngle (\ s a -> s{_faRollAngle = a}) . @@ -1054,12 +1056,12 @@ = lens _faUnderExposedLikelihood (\ s a -> s{_faUnderExposedLikelihood = a}) --- | This bounding polygon is tighter than the previous 'boundingPoly', and --- encloses only the skin part of the face. Typically, it is used to --- eliminate the face from any image analysis that detects the \"amount of --- skin\" visible in an image. It is not based on the landmarker results, --- only on the initial face detection, hence the 'fd' (face detection) --- prefix. +-- | The \`fd_bounding_poly\` bounding polygon is tighter than the +-- \`boundingPoly\`, and encloses only the skin part of the face. +-- Typically, it is used to eliminate the face from any image analysis that +-- detects the \"amount of skin\" visible in an image. It is not based on +-- the landmarker results, only on the initial face detection, hence the +-- 'fd' (face detection) prefix. faFdBoundingPoly :: Lens' FaceAnnotation (Maybe BoundingPoly) faFdBoundingPoly = lens _faFdBoundingPoly @@ -1204,21 +1206,21 @@ mapping _Coerce -- | The relevancy of the ICA (Image Content Annotation) label to the image. --- For example, the relevancy of \'tower\' to an image containing \'Eiffel --- Tower\' is likely higher than an image containing a distant towering --- building, though the confidence that there is a tower may be the same. --- Range [0, 1]. +-- For example, the relevancy of \"tower\" is likely higher to an image +-- containing the detected \"Eiffel Tower\" than to an image containing a +-- detected distant towering building, even though the confidence that +-- there is a tower in each image may be the same. Range [0, 1]. eaTopicality :: Lens' EntityAnnotation (Maybe Double) eaTopicality = lens _eaTopicality (\ s a -> s{_eaTopicality = a}) . mapping _Coerce -- | The language code for the locale in which the entity textual --- 'description' (next field) is expressed. +-- \`description\` is expressed. eaLocale :: Lens' EntityAnnotation (Maybe Text) eaLocale = lens _eaLocale (\ s a -> s{_eaLocale = a}) --- | Image region to which this entity belongs. Not filled currently for +-- | Image region to which this entity belongs. Currently not produced for -- \`LABEL_DETECTION\` features. For \`TEXT_DETECTION\` (OCR), -- \`boundingPoly\`s are produced for the entire text detected in an image -- region, followed by \`boundingPoly\`s for each word within the detected @@ -1229,38 +1231,38 @@ (\ s a -> s{_eaBoundingPoly = a}) -- | The accuracy of the entity detection in an image. For example, for an --- image containing \'Eiffel Tower,\' this field represents the confidence --- that there is a tower in the query image. Range [0, 1]. +-- image in which the \"Eiffel Tower\" entity is detected, this field +-- represents the confidence that there is a tower in the query image. +-- Range [0, 1]. eaConfidence :: Lens' EntityAnnotation (Maybe Double) eaConfidence = lens _eaConfidence (\ s a -> s{_eaConfidence = a}) . mapping _Coerce --- | Opaque entity ID. Some IDs might be available in Knowledge Graph(KG). --- For more details on KG please see: --- https:\/\/developers.google.com\/knowledge-graph\/ +-- | Opaque entity ID. Some IDs may be available in [Google Knowledge Graph +-- Search API](https:\/\/developers.google.com\/knowledge-graph\/). eaMid :: Lens' EntityAnnotation (Maybe Text) eaMid = lens _eaMid (\ s a -> s{_eaMid = a}) -- | The location information for the detected entity. Multiple --- 'LocationInfo' elements can be present since one location may indicate --- the location of the scene in the query image, and another the location --- of the place where the query image was taken. Location information is --- usually present for landmarks. +-- \`LocationInfo\` elements can be present because one location may +-- indicate the location of the scene in the image, and another location +-- may indicate the location of the place where the image was taken. +-- Location information is usually present for landmarks. eaLocations :: Lens' EntityAnnotation [LocationInfo] eaLocations = lens _eaLocations (\ s a -> s{_eaLocations = a}) . _Default . _Coerce --- | Entity textual description, expressed in its 'locale' language. +-- | Entity textual description, expressed in its \`locale\` language. eaDescription :: Lens' EntityAnnotation (Maybe Text) eaDescription = lens _eaDescription (\ s a -> s{_eaDescription = a}) --- | Some entities can have additional optional 'Property' fields. For --- example a different kind of score or string that qualifies the entity. +-- | Some entities may have optional user-supplied \`Property\` (name\/value) +-- fields, such a score or string that qualifies the entity. eaProperties :: Lens' EntityAnnotation [Property] eaProperties = lens _eaProperties (\ s a -> s{_eaProperties = a}) @@ -1375,10 +1377,11 @@ { _isGcsImageURI = Nothing } --- | Google Cloud Storage image URI. It must be in the following form: --- \`gs:\/\/bucket_name\/object_name\`. For more details, please see: --- https:\/\/cloud.google.com\/storage\/docs\/reference-uris. NOTE: Cloud --- Storage object versioning is not supported! +-- | Google Cloud Storage image URI, which must be in the following form: +-- \`gs:\/\/bucket_name\/object_name\` (for details, see [Google Cloud +-- Storage Request +-- URIs](https:\/\/cloud.google.com\/storage\/docs\/reference-uris)). NOTE: +-- Cloud Storage object versioning is not supported. isGcsImageURI :: Lens' ImageSource (Maybe Text) isGcsImageURI = lens _isGcsImageURI @@ -1394,9 +1397,6 @@ = object (catMaybes [("gcsImageUri" .=) <$> _isGcsImageURI]) --- | Set of features pertaining to the image, computed by various computer --- vision methods over safe-search verticals (for example, adult, spoof, --- medical, violence). -- -- /See:/ 'safeSearchAnnotation' smart constructor. data SafeSearchAnnotation = SafeSearchAnnotation' @@ -1427,16 +1427,16 @@ , _ssaViolence = Nothing } --- | Spoof likelihood. The likelihood that an obvious modification was made --- to the image\'s canonical version to make it appear funny or offensive. +-- | Spoof likelihood. The likelihood that an modification was made to the +-- image\'s canonical version to make it appear funny or offensive. ssaSpoof :: Lens' SafeSearchAnnotation (Maybe SafeSearchAnnotationSpoof) ssaSpoof = lens _ssaSpoof (\ s a -> s{_ssaSpoof = a}) --- | Represents the adult contents likelihood for the image. +-- | Represents the adult content likelihood for the image. ssaAdult :: Lens' SafeSearchAnnotation (Maybe SafeSearchAnnotationAdult) ssaAdult = lens _ssaAdult (\ s a -> s{_ssaAdult = a}) --- | Likelihood this is a medical image. +-- | Likelihood that this is a medical image. ssaMedical :: Lens' SafeSearchAnnotation (Maybe SafeSearchAnnotationMedical) ssaMedical = lens _ssaMedical (\ s a -> s{_ssaMedical = a}) @@ -1464,7 +1464,7 @@ ("medical" .=) <$> _ssaMedical, ("violence" .=) <$> _ssaViolence]) --- | Image context. +-- | Image context and\/or feature-specific parameters. -- -- /See:/ 'imageContext' smart constructor. data ImageContext = ImageContext' @@ -1495,7 +1495,7 @@ -- results (although it will be a significant hindrance if the hint is -- wrong). Text detection returns an error if one or more of the specified -- languages is not one of the [supported --- languages](\/translate\/v2\/translate-reference#supported_languages). +-- languages](\/vision\/docs\/languages). icLanguageHints :: Lens' ImageContext [Text] icLanguageHints = lens _icLanguageHints @@ -1503,7 +1503,7 @@ . _Default . _Coerce --- | Lat\/long rectangle that specifies the location of the image. +-- | lat\/long rectangle that specifies the location of the image. icLatLongRect :: Lens' ImageContext (Maybe LatLongRect) icLatLongRect = lens _icLatLongRect @@ -1543,7 +1543,7 @@ { _dcaColors = Nothing } --- | RGB color values, with their score and pixel fraction. +-- | RGB color values with their score and pixel fraction. dcaColors :: Lens' DominantColorsAnnotation [ColorInfo] dcaColors = lens _dcaColors (\ s a -> s{_dcaColors = a}) . @@ -1561,7 +1561,7 @@ toJSON DominantColorsAnnotation'{..} = object (catMaybes [("colors" .=) <$> _dcaColors]) --- | Rectangle determined by min and max LatLng pairs. +-- | Rectangle determined by min and max \`LatLng\` pairs. -- -- /See:/ 'latLongRect' smart constructor. data LatLongRect = LatLongRect' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-vision-0.1.1/gen/Network/Google/Vision/Types/Sum.hs new/gogol-vision-0.3.0/gen/Network/Google/Vision/Types/Sum.hs --- old/gogol-vision-0.1.1/gen/Network/Google/Vision/Types/Sum.hs 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-vision-0.3.0/gen/Network/Google/Vision/Types/Sum.hs 2017-07-12 16:45:05.000000000 +0200 @@ -25,19 +25,19 @@ -- Unknown likelihood. | VeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | Unlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | Possible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | Likely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | VeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationUnderExposedLikelihood @@ -74,19 +74,19 @@ -- Unknown likelihood. | FAHLVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FAHLUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FAHLPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FAHLLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FAHLVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationHeadwearLikelihood @@ -116,26 +116,26 @@ instance ToJSON FaceAnnotationHeadwearLikelihood where toJSON = toJSONText --- | Represents the adult contents likelihood for the image. +-- | Represents the adult content likelihood for the image. data SafeSearchAnnotationAdult = SSAAUnknown -- ^ @UNKNOWN@ -- Unknown likelihood. | SSAAVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | SSAAUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | SSAAPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | SSAALikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | SSAAVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable SafeSearchAnnotationAdult @@ -172,19 +172,19 @@ -- Unknown likelihood. | FAALVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FAALUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FAALPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FAALLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FAALVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationAngerLikelihood @@ -214,26 +214,26 @@ instance ToJSON FaceAnnotationAngerLikelihood where toJSON = toJSONText --- | Likelihood this is a medical image. +-- | Likelihood that this is a medical image. data SafeSearchAnnotationMedical = SSAMUnknown -- ^ @UNKNOWN@ -- Unknown likelihood. | SSAMVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | SSAMUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | SSAMPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | SSAMLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | SSAMVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable SafeSearchAnnotationMedical @@ -270,19 +270,19 @@ -- Unknown likelihood. | FABLVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FABLUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FABLPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FABLLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FABLVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationBlurredLikelihood @@ -319,19 +319,19 @@ -- Unknown likelihood. | SSAVVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | SSAVUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | SSAVPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | SSAVLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | SSAVVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable SafeSearchAnnotationViolence @@ -383,12 +383,10 @@ -- Run OCR. | SafeSearchDetection -- ^ @SAFE_SEARCH_DETECTION@ - -- Run various computer vision models to compute image safe-search - -- properties. + -- Run computer vision models to compute image safe-search properties. | ImageProperties -- ^ @IMAGE_PROPERTIES@ - -- Compute a set of properties about the image (such as the image\'s - -- dominant colors). + -- Compute a set of image properties, such as the image\'s dominant colors. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FeatureType @@ -645,27 +643,27 @@ instance ToJSON Xgafv where toJSON = toJSONText --- | Spoof likelihood. The likelihood that an obvious modification was made --- to the image\'s canonical version to make it appear funny or offensive. +-- | Spoof likelihood. The likelihood that an modification was made to the +-- image\'s canonical version to make it appear funny or offensive. data SafeSearchAnnotationSpoof = SSASUnknown -- ^ @UNKNOWN@ -- Unknown likelihood. | SSASVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | SSASUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | SSASPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | SSASLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | SSASVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable SafeSearchAnnotationSpoof @@ -702,19 +700,19 @@ -- Unknown likelihood. | FASLVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FASLUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FASLPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FASLLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FASLVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationSurpriseLikelihood @@ -751,19 +749,19 @@ -- Unknown likelihood. | FVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationSorrowLikelihood @@ -800,19 +798,19 @@ -- Unknown likelihood. | FAJLVeryUnlikely -- ^ @VERY_UNLIKELY@ - -- The image very unlikely belongs to the vertical specified. + -- It is very unlikely that the image belongs to the specified vertical. | FAJLUnlikely -- ^ @UNLIKELY@ - -- The image unlikely belongs to the vertical specified. + -- It is unlikely that the image belongs to the specified vertical. | FAJLPossible -- ^ @POSSIBLE@ - -- The image possibly belongs to the vertical specified. + -- It is possible that the image belongs to the specified vertical. | FAJLLikely -- ^ @LIKELY@ - -- The image likely belongs to the vertical specified. + -- It is likely that the image belongs to the specified vertical. | FAJLVeryLikely -- ^ @VERY_LIKELY@ - -- The image very likely belongs to the vertical specified. + -- It is very likely that the image belongs to the specified vertical. deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable FaceAnnotationJoyLikelihood diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-vision-0.1.1/gogol-vision.cabal new/gogol-vision-0.3.0/gogol-vision.cabal --- old/gogol-vision-0.1.1/gogol-vision.cabal 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-vision-0.3.0/gogol-vision.cabal 2017-07-12 16:45:05.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-vision -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud Vision SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -44,5 +44,5 @@ , Network.Google.Vision.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-useraccounts 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-useraccounts for openSUSE:Factory checked in at 2017-08-31 20:55:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-useraccounts (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-useraccounts.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-useraccounts" Thu Aug 31 20:55:17 2017 rev:2 rq:513352 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-useraccounts/ghc-gogol-useraccounts.changes 2017-05-10 20:44:28.446012918 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-useraccounts.new/ghc-gogol-useraccounts.changes 2017-08-31 20:55:21.684707328 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:59 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-useraccounts-0.1.1.tar.gz New: ---- gogol-useraccounts-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-useraccounts.spec ++++++ --- /var/tmp/diff_new_pack.87Jhg5/_old 2017-08-31 20:55:22.728560662 +0200 +++ /var/tmp/diff_new_pack.87Jhg5/_new 2017-08-31 20:55:22.740558976 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-useraccounts Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Cloud User Accounts SDK License: MPL-2.0 ++++++ gogol-useraccounts-0.1.1.tar.gz -> gogol-useraccounts-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-useraccounts-0.1.1/README.md new/gogol-useraccounts-0.3.0/README.md --- old/gogol-useraccounts-0.1.1/README.md 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-useraccounts-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-useraccounts-0.1.1/gogol-useraccounts.cabal new/gogol-useraccounts-0.3.0/gogol-useraccounts.cabal --- old/gogol-useraccounts-0.1.1/gogol-useraccounts.cabal 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-useraccounts-0.3.0/gogol-useraccounts.cabal 2017-07-12 16:45:05.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-useraccounts -version: 0.1.1 +version: 0.3.0 synopsis: Google Cloud User Accounts SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -59,5 +59,5 @@ , Network.Google.UserAccounts.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-urlshortener 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-urlshortener for openSUSE:Factory checked in at 2017-08-31 20:55:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-urlshortener (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-urlshortener.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-urlshortener" Thu Aug 31 20:55:16 2017 rev:2 rq:513351 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-urlshortener/ghc-gogol-urlshortener.changes 2017-05-10 20:44:25.990359414 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-urlshortener.new/ghc-gogol-urlshortener.changes 2017-08-31 20:55:17.221334447 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:11 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-urlshortener-0.1.1.tar.gz New: ---- gogol-urlshortener-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-urlshortener.spec ++++++ --- /var/tmp/diff_new_pack.Tlwo5F/_old 2017-08-31 20:55:18.461160247 +0200 +++ /var/tmp/diff_new_pack.Tlwo5F/_new 2017-08-31 20:55:18.473158561 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-urlshortener Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google URL Shortener SDK License: MPL-2.0 ++++++ gogol-urlshortener-0.1.1.tar.gz -> gogol-urlshortener-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-urlshortener-0.1.1/README.md new/gogol-urlshortener-0.3.0/README.md --- old/gogol-urlshortener-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-urlshortener-0.3.0/README.md 2017-07-12 16:45:06.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-urlshortener-0.1.1/gogol-urlshortener.cabal new/gogol-urlshortener-0.3.0/gogol-urlshortener.cabal --- old/gogol-urlshortener-0.1.1/gogol-urlshortener.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-urlshortener-0.3.0/gogol-urlshortener.cabal 2017-07-12 16:45:06.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-urlshortener -version: 0.1.1 +version: 0.3.0 synopsis: Google URL Shortener SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -44,5 +44,5 @@ , Network.Google.URLShortener.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-translate 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-translate for openSUSE:Factory checked in at 2017-08-31 20:55:10 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-translate (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-translate.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-translate" Thu Aug 31 20:55:10 2017 rev:2 rq:513350 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-translate/ghc-gogol-translate.changes 2017-05-10 20:44:24.286599816 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-translate.new/ghc-gogol-translate.changes 2017-08-31 20:55:14.609701391 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:06 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-translate-0.1.1.tar.gz New: ---- gogol-translate-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-translate.spec ++++++ --- /var/tmp/diff_new_pack.8y42YH/_old 2017-08-31 20:55:16.605420985 +0200 +++ /var/tmp/diff_new_pack.8y42YH/_new 2017-08-31 20:55:16.637416490 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-translate Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google Translate SDK License: MPL-2.0 ++++++ gogol-translate-0.1.1.tar.gz -> gogol-translate-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-translate-0.1.1/README.md new/gogol-translate-0.3.0/README.md --- old/gogol-translate-0.1.1/README.md 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-translate-0.3.0/README.md 2017-07-12 16:45:06.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-translate-0.1.1/gogol-translate.cabal new/gogol-translate-0.3.0/gogol-translate.cabal --- old/gogol-translate-0.1.1/gogol-translate.cabal 2016-11-03 14:26:27.000000000 +0100 +++ new/gogol-translate-0.3.0/gogol-translate.cabal 2017-07-12 16:45:06.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-translate -version: 0.1.1 +version: 0.3.0 synopsis: Google Translate SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -44,5 +44,5 @@ , Network.Google.Translate.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0

commit ghc-gogol-taskqueue 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-taskqueue for openSUSE:Factory checked in at 2017-08-31 20:55:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-gogol-taskqueue (Old) and /work/SRC/openSUSE:Factory/.ghc-gogol-taskqueue.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-gogol-taskqueue" Thu Aug 31 20:55:07 2017 rev:2 rq:513349 version:0.3.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-gogol-taskqueue/ghc-gogol-taskqueue.changes 2017-05-10 20:44:16.555690657 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-gogol-taskqueue.new/ghc-gogol-taskqueue.changes 2017-08-31 20:55:10.698250964 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:38 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.0. + +------------------------------------------------------------------- Old: ---- gogol-taskqueue-0.1.1.tar.gz New: ---- gogol-taskqueue-0.3.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-gogol-taskqueue.spec ++++++ --- /var/tmp/diff_new_pack.dPVeMC/_old 2017-08-31 20:55:12.254032372 +0200 +++ /var/tmp/diff_new_pack.dPVeMC/_new 2017-08-31 20:55:12.298026190 +0200 @@ -18,7 +18,7 @@ %global pkg_name gogol-taskqueue Name: ghc-%{pkg_name} -Version: 0.1.1 +Version: 0.3.0 Release: 0 Summary: Google TaskQueue SDK License: MPL-2.0 ++++++ gogol-taskqueue-0.1.1.tar.gz -> gogol-taskqueue-0.3.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/gogol-taskqueue-0.1.1/README.md new/gogol-taskqueue-0.3.0/README.md --- old/gogol-taskqueue-0.1.1/README.md 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-taskqueue-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-taskqueue-0.1.1/gogol-taskqueue.cabal new/gogol-taskqueue-0.3.0/gogol-taskqueue.cabal --- old/gogol-taskqueue-0.1.1/gogol-taskqueue.cabal 2016-11-03 14:26:26.000000000 +0100 +++ new/gogol-taskqueue-0.3.0/gogol-taskqueue.cabal 2017-07-12 16:45:05.000000000 +0200 @@ -1,5 +1,5 @@ name: gogol-taskqueue -version: 0.1.1 +version: 0.3.0 synopsis: Google TaskQueue SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -49,5 +49,5 @@ , Network.Google.TaskQueue.Types.Sum build-depends: - gogol-core == 0.1.1.* + gogol-core == 0.3.0.* , base >= 4.7 && < 5

1 0