antiope-s3 7.3.3 → 7.3.4
raw patch · 5 files changed
+28/−23 lines, 5 filesdep ~amazonkadep ~amazonka-coredep ~amazonka-s3PVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka, amazonka-core, amazonka-s3, hedgehog
API changes (from Hackage documentation)
Files
- antiope-s3.cabal +8/−8
- src/Antiope/S3/Internal.hs +2/−0
- src/Antiope/S3/Range.hs +2/−0
- src/Antiope/S3/Types.hs +5/−4
- test/Antiope/S3/MessagesSpec.hs +11/−11
antiope-s3.cabal view
@@ -1,7 +1,7 @@ cabal-version: 2.4 name: antiope-s3-version: 7.3.3+version: 7.3.4 synopsis: Please see the README on Github at <https://github.com/arbor/antiope#readme> description: Please see the README on Github at <https://github.com/arbor/antiope#readme>. category: Services@@ -42,9 +42,9 @@ default-extensions: BangPatterns GeneralizedNewtypeDeriving OverloadedStrings TupleSections build-depends: aeson- , amazonka >= 1.6.1- , amazonka-core >= 1.6.1- , amazonka-s3 >= 1.6.1+ , amazonka >= 1.6.0+ , amazonka-core >= 1.6.0+ , amazonka-s3 >= 1.6.0 , antiope-core , antiope-messages , attoparsec@@ -74,9 +74,9 @@ ghc-options: -threaded -rtsopts -with-rtsopts=-N build-tool-depends: hspec-discover:hspec-discover build-depends: aeson- , amazonka >= 1.6.1- , amazonka-core >= 1.6.1- , amazonka-s3 >= 1.6.1+ , amazonka >= 1.6.0+ , amazonka-core >= 1.6.0+ , amazonka-s3 >= 1.6.0 , antiope-core , antiope-s3 , attoparsec@@ -85,7 +85,7 @@ , conduit-extra , exceptions , generic-lens- , hedgehog >= 0.5 && < 0.7+ , hedgehog >= 0.5 && < 1.1 , hspec >= 2.4 && < 2.7 , http-types , hw-hspec-hedgehog >= 0.1 && < 0.3
src/Antiope/S3/Internal.hs view
@@ -1,3 +1,5 @@+{-# LANGUAGE OverloadedStrings #-}+ module Antiope.S3.Internal where import Data.Monoid ((<>))
src/Antiope/S3/Range.hs view
@@ -1,3 +1,5 @@+{-# LANGUAGE OverloadedStrings #-}+ module Antiope.S3.Range ( Range(..) , rangeHeaderText
src/Antiope/S3/Types.hs view
@@ -1,6 +1,7 @@-{-# LANGUAGE DataKinds #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE TypeApplications #-}+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeApplications #-} module Antiope.S3.Types ( X.BucketName(..)@@ -99,5 +100,5 @@ return (S3Uri bn ok) dirname :: S3Uri -> S3Uri-dirname (S3Uri bucket (ObjectKey key)) = S3Uri bucket (ObjectKey newKey)+dirname (S3Uri bk (ObjectKey key)) = S3Uri bk (ObjectKey newKey) where newKey = T.intercalate "/" (reverse (drop 1 (dropWhile T.null (reverse (T.splitOn "/" key)))))
test/Antiope/S3/MessagesSpec.hs view
@@ -1,22 +1,20 @@-module Antiope.S3.MessagesSpec-where+module Antiope.S3.MessagesSpec where -import Antiope.S3 (BucketName (..), ETag (..), ObjectKey (..))+import Antiope.S3 (BucketName (..), ETag (..), ObjectKey (..)) import Antiope.S3.Messages-import Data.Aeson (decode, encode)-import Data.Monoid ((<>))-import Data.Text (Text, pack)+import Data.Aeson (decode, encode)+import Data.Monoid ((<>))+import Data.Text (Text, pack) import Data.Time.Calendar import Data.Time.Clock--import qualified Data.Text as Text- import HaskellWorks.Hspec.Hedgehog import Hedgehog-import Hedgehog.Gen as Gen-import Hedgehog.Range as Range import Test.Hspec +import qualified Data.Text as Text+import qualified Hedgehog.Gen as Gen+import qualified Hedgehog.Range as Range+ {-# ANN module ("HLint: Ignore Redundant do" :: String) #-} genUTCTime :: MonadGen m => m UTCTime@@ -66,3 +64,5 @@ it "Can encode and decode S3Message" $ require $ property $ do msg <- forAll $ s3Message tripping msg encode decode++