antiope-s3 6.1.4 → 6.1.5

raw patch · 4 files changed

+41/−2 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Antiope.S3.Range: Range :: Int -> Int -> Range

+ Antiope.S3.Range: data Range

+ Antiope.S3.Range: rangeHeaderText :: Range -> Text

+ Antiope.S3.Request: getObjectUri :: S3Uri -> GetObject

+ Antiope.S3.Types: Range :: Int -> Int -> Range

+ Antiope.S3.Types: [first] :: Range -> Int

+ Antiope.S3.Types: [last] :: Range -> Int

+ Antiope.S3.Types: data Range

+ Antiope.S3.Types: instance GHC.Classes.Eq Antiope.S3.Types.Range

+ Antiope.S3.Types: instance GHC.Generics.Generic Antiope.S3.Types.Range

+ Antiope.S3.Types: instance GHC.Show.Show Antiope.S3.Types.Range

antiope-s3.cabal view

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 3ca4d7ebcb62cbfab41eb5730b74a19e7bfef678711ad92e24e8e7fbb5252d44+-- hash: f7db32bbb25a8bc478a6baef9a6cfb9d6fd91a44bdf95b511e861ad4cfec0583  name:           antiope-s3-version:        6.1.4+version:        6.1.5 description:    Please see the README on Github at <https://github.com/arbor/antiope#readme> category:       Services homepage:       https://github.com/arbor/antiope#readme@@ -31,6 +31,8 @@       Antiope.S3.GetObject       Antiope.S3.Internal       Antiope.S3.Lazy+      Antiope.S3.Range+      Antiope.S3.Request       Antiope.S3.Strict       Antiope.S3.Types   other-modules:

+ src/Antiope/S3/Range.hs view

@@ -0,0 +1,14 @@+module Antiope.S3.Range+  ( Range(..)+  , rangeHeaderText+  ) where++import Antiope.S3.Types      (Range (Range))+import Data.Semigroup        ((<>))+import Network.AWS.Data.Text+import Prelude               hiding (last)++import qualified Antiope.Core.Internal.Show as S++rangeHeaderText :: Range -> Text+rangeHeaderText (Range first last) = "bytes=" <> S.tshowNum first <> "-" <> S.tshowNum last

+ src/Antiope/S3/Request.hs view

@@ -0,0 +1,17 @@+{-# LANGUAGE DataKinds        #-}+{-# LANGUAGE TypeApplications #-}++module Antiope.S3.Request+  ( getObjectUri+  ) where++import Antiope.S3.Types          (S3Uri)+import Control.Lens+import Data.Generics.Product.Any++import qualified Network.AWS.S3 as AWS++getObjectUri :: S3Uri -> AWS.GetObject+getObjectUri uri = AWS.getObject bucket objectKey+  where bucket    = uri ^. the @"bucket"+        objectKey = uri ^. the @"objectKey"

src/Antiope/S3/Types.hs view

@@ -9,6 +9,7 @@   , S3Uri(..)   , readBucketName   , readWhile+  , Range(..)   ) where  import Antiope.S3.Internal@@ -50,6 +51,11 @@  instance ToLogStr S3Uri where   toLogStr s = fromString $ T.unpack $ toText s++data Range = Range+  { first :: Int+  , last  :: Int+  } deriving (Eq, Show, Generic)  readString :: String -> RP.ReadPrec String readString s = do