antiope-s3 7.0.4 → 7.0.6

raw patch · 3 files changed

+28/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• antiope-s3.cabal +2/−1
• src/Antiope/S3.hs +11/−3
• src/Antiope/S3/Syntax.hs +15/−0

@@ -1,7 +1,7 @@ cabal-version: 2.2  name:               antiope-s3-version:            7.0.4+version:            7.0.6 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@@ -31,6 +31,7 @@       Antiope.S3.Range       Antiope.S3.Request       Antiope.S3.Strict+      Antiope.S3.Syntax       Antiope.S3.Types   hs-source-dirs: src   default-extensions: BangPatterns GeneralizedNewtypeDeriving OverloadedStrings TupleSections

@@ -3,7 +3,7 @@  module Antiope.S3 ( s3ObjectSource-, putFile, putContent , putContent'+, putFile, putFile', putContent , putContent' , copySingle , fromS3Uri , toS3Uri@@ -71,8 +71,16 @@   -> FilePath         -- ^ Source file path   -> m (Maybe ETag)   -- ^ Etag when the operation is successful putFile b k f = do-    req <- chunkedFile chunkSize f-    view porsETag <$> AWS.send (putObject b k req)+  req <- chunkedFile chunkSize f+  view porsETag <$> AWS.send (putObject b k req)++putFile' :: MonadAWS m+  => S3Uri            -- ^ S3 URI+  -> FilePath         -- ^ Source file path+  -> m (Maybe ETag)   -- ^ Etag when the operation is successful+putFile' (S3Uri b k) f = do+  req <- chunkedFile chunkSize f+  view porsETag <$> AWS.send (putObject b k req)  putContent :: MonadAWS m   => BucketName

@@ -0,0 +1,15 @@+{-# LANGUAGE DataKinds        #-}+{-# LANGUAGE TypeApplications #-}++module Antiope.S3.Syntax+  ( (</>)+  ) where++import Antiope.S3.Types+import Control.Lens+import Data.Generics.Product.Any+import Data.Text                 (Text)++-- | Append text to an S3Uri+(</>) :: S3Uri -> Text -> S3Uri+(</>) uri suffix = uri & the @"objectKey" . the @1 %~ (<> ("/" <> suffix))