antiope-sqs 5.0.1 → 6.0.0

raw patch · 3 files changed

+13/−40 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• antiope-sqs.cabal +2/−3
• src/Antiope/SQS.hs +11/−32
• src/Antiope/SQS/Types.hs +0/−5

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 4958f16654a42939e6825e585d5cad3ba3c54cf3265428db90ea75a78a03c8f8+-- hash: ef0a5de16d53fa131c1274fd964a9e88b9ac5ad1d3c3d288ee5722ebd5a5ba6f  name:           antiope-sqs-version:        5.0.1+version:        6.0.0 description:    Please see the README on Github at <https://github.com/arbor/antiope#readme> category:       Services homepage:       https://github.com/arbor/antiope#readme@@ -28,7 +28,6 @@ library   exposed-modules:       Antiope.SQS-      Antiope.SQS.Types   other-modules:       Paths_antiope_sqs   hs-source-dirs:

@@ -1,28 +1,23 @@ module Antiope.SQS-( QueueUrl(..)-, SQSError(..)-, readQueue-, drainQueue-, ackMessage-, ackMessages-, messageInBody-, messageToS3Uri-, messageToS3Uri'-) where+  ( QueueUrl(..)+  , SQSError(..)+  , readQueue+  , drainQueue+  , ackMessage+  , ackMessages+  , mBody+  ) where -import Antiope.S3          (S3Uri (..))-import Antiope.SQS.Types   (QueueUrl (QueueUrl), SQSError (DeleteMessageBatchError))+import Antiope.Messages    (QueueUrl (QueueUrl), SQSError (DeleteMessageBatchError)) import Control.Lens import Control.Monad       (join) import Control.Monad.Loops (unfoldWhileM)-import Data.Aeson.Lens import Data.Maybe          (catMaybes)-import Data.Text           (Text, pack)+import Data.Text           (pack) import Network.AWS         (MonadAWS) import Network.AWS.SQS -import qualified Antiope.Messages as Z-import qualified Network.AWS      as AWS+import qualified Network.AWS as AWS  -- | Reads the specified SQS queue once returning a bath of messages readQueue :: MonadAWS m@@ -60,19 +55,3 @@         [] -> return $ Right ()         _  -> return $ Left DeleteMessageBatchError     else return $ Left DeleteMessageBatchError---- Extract the "Message" content in the body if have-messageInBody :: Text -> Maybe Text-messageInBody body = body ^? key "Message" . _String-{-# DEPRECATED messageInBody-    "The export of messageInBody is deprecated.  Use the one from Antiope.Messages instead" #-}--messageToS3Uri :: Message -> Maybe S3Uri-messageToS3Uri = Z.messageToS3Uri-{-# DEPRECATED messageToS3Uri-    "The export of messageToS3Uri is deprecated.  Use the one from Antiope.Messages instead" #-}--messageToS3Uri' :: Text -> Maybe S3Uri-messageToS3Uri' = Z.messageToS3Uri'-{-# DEPRECATED messageToS3Uri'-  "The export of messageToS3Uri' is deprecated.  Use the one from Antiope.Messages instead" #-}

@@ -1,5 +0,0 @@-module Antiope.SQS.Types-  ( module X-  ) where--import Antiope.Messages.Types as X