Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-aws for openSUSE:Factory checked in at 2024-12-20 23:10:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-aws (Old) and /work/SRC/openSUSE:Factory/.ghc-aws.new.1881 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-aws" Fri Dec 20 23:10:07 2024 rev:10 rq:1231419 version:0.24.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-aws/ghc-aws.changes 2024-03-20 21:15:43.425029549 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-aws.new.1881/ghc-aws.changes 2024-12-20 23:10:16.855634350 +0100 @@ -1,0 +2,8 @@ +Thu Nov 14 17:27:03 UTC 2024 - Peter Simons <[email protected]> + +- Update aws to version 0.24.3. + - 0.24.3 + - [breaking change] Added s3UserAgent constructor to S3Configuration + - S3: Add GetBucketVersioning command + +------------------------------------------------------------------- Old: ---- aws-0.24.2.tar.gz New: ---- aws-0.24.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-aws.spec ++++++ --- /var/tmp/diff_new_pack.vIRYdc/_old 2024-12-20 23:10:17.399656756 +0100 +++ /var/tmp/diff_new_pack.vIRYdc/_new 2024-12-20 23:10:17.399656756 +0100 @@ -20,7 +20,7 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.24.2 +Version: 0.24.3 Release: 0 Summary: Amazon Web Services (AWS) for Haskell License: BSD-3-Clause @@ -161,6 +161,8 @@ %prep %autosetup -n %{pkg_name}-%{version} +cabal-tweak-dep-ver data-default '< 0.8' ' < 1' +cabal-tweak-dep-ver filepath '< 1.5' ' < 2' %build %ghc_lib_build ++++++ aws-0.24.2.tar.gz -> aws-0.24.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/Aws/S3/Commands/GetBucketVersioning.hs new/aws-0.24.3/Aws/S3/Commands/GetBucketVersioning.hs --- old/aws-0.24.2/Aws/S3/Commands/GetBucketVersioning.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/aws-0.24.3/Aws/S3/Commands/GetBucketVersioning.hs 2001-09-09 03:46:40.000000000 +0200 @@ -0,0 +1,65 @@ +module Aws.S3.Commands.GetBucketVersioning +( + module Aws.S3.Commands.GetBucketVersioning +, VersioningState(..) +) where + +import Aws.Core +import Aws.S3.Commands.PutBucketVersioning (VersioningState(..)) +import Aws.S3.Core +import Control.Monad.Trans.Resource (throwM) +import Network.HTTP.Types (toQuery) +import qualified Data.Text.Encoding as T +import Text.XML.Cursor (($.//)) +import qualified Data.ByteString.Lazy.Char8 as B8 + +-- | Gets the versioning state of an existing bucket. +data GetBucketVersioning + = GetBucketVersioning + { gbvBucket :: Bucket + } + deriving (Show) + +getBucketVersioning :: Bucket -> GetBucketVersioning +getBucketVersioning = GetBucketVersioning + +data GetBucketVersioningResponse + = GetBucketVersioningResponse + { gbvVersioning :: Maybe VersioningState } + -- ^ Nothing when the bucket is not versioned + deriving (Show) + +-- | ServiceConfiguration: 'S3Configuration' +instance SignQuery GetBucketVersioning where + type ServiceConfiguration GetBucketVersioning = S3Configuration + + signQuery GetBucketVersioning{..} = s3SignQuery $ S3Query + { s3QMethod = Get + , s3QBucket = Just $ T.encodeUtf8 gbvBucket + , s3QSubresources = toQuery [("versioning" :: B8.ByteString, Nothing :: Maybe B8.ByteString)] + , s3QQuery = [] + , s3QContentType = Nothing + , s3QContentMd5 = Nothing + , s3QObject = Nothing + , s3QAmzHeaders = [] + , s3QOtherHeaders = [] + , s3QRequestBody = Nothing + } + +instance ResponseConsumer r GetBucketVersioningResponse where + type ResponseMetadata GetBucketVersioningResponse = S3Metadata + + responseConsumer _ _ = s3XmlResponseConsumer parse + where parse cursor = do + v <- case cursor $.// elContent "Status" of + [] -> return Nothing + ("Enabled":[]) -> return (Just VersioningEnabled) + ("Suspended":[]) -> return (Just VersioningSuspended) + _ -> throwM $ XmlException "Invalid Status" + return GetBucketVersioningResponse { gbvVersioning = v } + +instance Transaction GetBucketVersioning GetBucketVersioningResponse + +instance AsMemoryResponse GetBucketVersioningResponse where + type MemoryResponse GetBucketVersioningResponse = GetBucketVersioningResponse + loadToMemory = return diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/Aws/S3/Commands.hs new/aws-0.24.3/Aws/S3/Commands.hs --- old/aws-0.24.2/Aws/S3/Commands.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/Aws/S3/Commands.hs 2001-09-09 03:46:40.000000000 +0200 @@ -8,6 +8,7 @@ , module Aws.S3.Commands.GetBucket , module Aws.S3.Commands.GetBucketLocation , module Aws.S3.Commands.GetBucketObjectVersions +, module Aws.S3.Commands.GetBucketVersioning , module Aws.S3.Commands.GetObject , module Aws.S3.Commands.GetService , module Aws.S3.Commands.HeadObject @@ -26,6 +27,7 @@ import Aws.S3.Commands.GetBucket import Aws.S3.Commands.GetBucketLocation import Aws.S3.Commands.GetBucketObjectVersions +import Aws.S3.Commands.GetBucketVersioning import Aws.S3.Commands.GetObject import Aws.S3.Commands.GetService import Aws.S3.Commands.HeadObject diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/Aws/S3/Core.hs new/aws-0.24.3/Aws/S3/Core.hs --- old/aws-0.24.2/Aws/S3/Core.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/Aws/S3/Core.hs 2001-09-09 03:46:40.000000000 +0200 @@ -77,6 +77,7 @@ , s3UseUri :: Bool , s3DefaultExpiry :: NominalDiffTime , s3SignVersion :: S3SignVersion + , s3UserAgent :: Maybe T.Text } deriving (Show) @@ -125,6 +126,7 @@ , s3UseUri = uri , s3DefaultExpiry = 15*60 , s3SignVersion = S3SignV2 + , s3UserAgent = Nothing } s3v4 :: Protocol -> B.ByteString -> Bool -> S3SignPayloadMode -> S3Configuration qt @@ -139,6 +141,7 @@ , s3UseUri = uri , s3DefaultExpiry = 15*60 , s3SignVersion = S3SignV4 payload + , s3UserAgent = Nothing } @@ -228,7 +231,7 @@ , sqContentType = s3QContentType , sqContentMd5 = s3QContentMd5 , sqAmzHeaders = amzHeaders - , sqOtherHeaders = s3QOtherHeaders + , sqOtherHeaders = useragent ++ s3QOtherHeaders , sqBody = s3QRequestBody , sqStringToSign = stringToSign } @@ -297,6 +300,8 @@ , ("AWSAccessKeyId", accessKeyID signatureCredentials) , ("SignatureMethod", "HmacSHA256") , ("Signature", sig)] ++ iamTok + + useragent = maybeToList $ (HTTP.hUserAgent,) . T.encodeUtf8 <$> s3UserAgent s3SignQuery sq@S3Query{..} sc@S3Configuration{ s3SignVersion = S3SignV4 signpayload, .. } sd@SignatureData{..} | isAnonymousCredentials signatureCredentials = s3SignQuery sq (sc { s3SignVersion = S3SignV2 }) sd @@ -312,7 +317,7 @@ , sqContentType = s3QContentType , sqContentMd5 = s3QContentMd5 , sqAmzHeaders = Map.toList amzHeaders - , sqOtherHeaders = s3QOtherHeaders + , sqOtherHeaders = useragent ++ s3QOtherHeaders , sqBody = s3QRequestBody , sqStringToSign = stringToSign } @@ -384,6 +389,8 @@ (False, t) -> t (True, AbsoluteTimestamp time) -> AbsoluteExpires $ s3DefaultExpiry `addUTCTime` time (True, AbsoluteExpires time) -> AbsoluteExpires time + + useragent = maybeToList $ (HTTP.hUserAgent,) . T.encodeUtf8 <$> s3UserAgent -- | Custom UriEncode function -- see <http://docs.aws.amazon.com/AmazonS3/latest/API/sig-v4-header-based-auth.html> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/CHANGELOG.md new/aws-0.24.3/CHANGELOG.md --- old/aws-0.24.2/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -5,6 +5,9 @@ most users. I recommend using smart constructors and {} matching syntax whenever possible when interacting with aws types. +- 0.24.3 + - [breaking change] Added s3UserAgent constructor to S3Configuration + - S3: Add GetBucketVersioning command - 0.24.2 - Support bytestring 0.12 - Support building with aeson 2.2, adding dependency on diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/aws.cabal new/aws-0.24.3/aws.cabal --- old/aws-0.24.2/aws.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/aws.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ Name: aws -Version: 0.24.2 +Version: 0.24.3 Synopsis: Amazon Web Services (AWS) for Haskell Description: Bindings for Amazon Web Services (AWS), with the aim of supporting all AWS services. To see a high level overview of the library, see the README at <https://github.com/aristidb/aws/blob/master/README.md>. Homepage: http://github.com/aristidb/aws @@ -90,6 +90,7 @@ Aws.S3.Commands.GetBucket Aws.S3.Commands.GetBucketLocation Aws.S3.Commands.GetBucketObjectVersions + Aws.S3.Commands.GetBucketVersioning Aws.S3.Commands.GetObject Aws.S3.Commands.GetService Aws.S3.Commands.HeadObject diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/tests/DynamoDb/Utils.hs new/aws-0.24.3/tests/DynamoDb/Utils.hs --- old/aws-0.24.2/tests/DynamoDb/Utils.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/tests/DynamoDb/Utils.hs 2001-09-09 03:46:40.000000000 +0200 @@ -7,6 +7,7 @@ {-# LANGUAGE LambdaCase #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE TypeOperators #-} -- | -- Module: DynamoDb.Utils diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/aws-0.24.2/tests/Sqs/Main.hs new/aws-0.24.3/tests/Sqs/Main.hs --- old/aws-0.24.2/tests/Sqs/Main.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/aws-0.24.3/tests/Sqs/Main.hs 2001-09-09 03:46:40.000000000 +0200 @@ -7,6 +7,7 @@ {-# LANGUAGE LambdaCase #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE TypeOperators #-} -- | -- Module: Main
