aws 0.20 → 0.21

raw patch · 6 files changed

+22/−7 lines, 6 filesdep ~http-client-tlsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: http-client-tls

API changes (from Hackage documentation)

Files

• Aws/Aws.hs +2/−1
• Aws/Core.hs +2/−1
• Aws/S3/Core.hs +4/−2
• CHANGELOG.md +10/−0
• aws.cabal +3/−2
• tests/DynamoDb/Main.hs +1/−1

@@ -51,6 +51,7 @@ import qualified Data.Text.Encoding           as T import qualified Data.Text.IO                 as T import qualified Network.HTTP.Conduit         as HTTP+import qualified Network.HTTP.Client.TLS      as HTTP import           System.IO                    (stderr) import           Prelude @@ -193,7 +194,7 @@             -> r             -> io (MemoryResponse a) simpleAws cfg scfg request = liftIO $ runResourceT $ do-    manager <- liftIO $ HTTP.newManager HTTP.tlsManagerSettings+    manager <- liftIO HTTP.getGlobalManager     loadToMemory =<< readResponseIO =<< aws cfg scfg manager request  -- | Run an AWS transaction, without enforcing that response and request type form a valid transaction pair.

@@ -134,6 +134,7 @@ import           Data.Typeable import           Data.Word import qualified Network.HTTP.Conduit     as HTTP+import qualified Network.HTTP.Client.TLS  as HTTP import qualified Network.HTTP.Types       as HTTP import           System.Directory import           System.Environment@@ -326,7 +327,7 @@  loadCredentialsFromInstanceMetadata :: MonadIO io => io (Maybe Credentials) loadCredentialsFromInstanceMetadata = do-    mgr <- liftIO $ HTTP.newManager HTTP.tlsManagerSettings+    mgr <- liftIO HTTP.getGlobalManager     -- check if the path is routable     avail <- liftIO $ hostAvailable "169.254.169.254"     if not avail

@@ -483,13 +483,15 @@ data UserInfo     = UserInfo {         userId          :: CanonicalUserId-      , userDisplayName :: T.Text+      , userDisplayName :: Maybe T.Text       }     deriving (Show)  parseUserInfo :: MonadThrow m => Cu.Cursor -> m UserInfo parseUserInfo el = do id_ <- force "Missing user ID" $ el $/ elContent "ID"-                      displayName <- force "Missing user DisplayName" $ el $/ elContent "DisplayName"+                      displayName <- return $ case (el $/ elContent "DisplayName") of+                                                  (x:_) -> Just x+                                                  []    -> Nothing                       return UserInfo { userId = id_, userDisplayName = displayName }  data CannedAcl

@@ -1,3 +1,13 @@+0.21 series+-----------++-   0.21+    - S3: Make user DisplayName field optional (used in "GetBucket"+      among other places)+    - Use HTTP.getGlobalManager from http-client-tls by default (more+      efficient, and we have a transitive dependency on the package+      anyways)+ 0.20 series ----------- 

@@ -1,5 +1,5 @@ Name:                aws-Version:             0.20+Version:             0.21 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@@ -19,7 +19,7 @@ Source-repository this   type: git   location: https://github.com/aristidb/aws.git-  tag: 0.20+  tag: 0.21  Source-repository head   type: git@@ -131,6 +131,7 @@                        directory            >= 1.0     && < 2.0,                        filepath             >= 1.1     && < 1.5,                        http-conduit         >= 2.3     && < 2.4,+                       http-client-tls      >= 0.3     && < 0.4,                        http-types           >= 0.7     && < 1.0,                        lifted-base          >= 0.1     && < 0.3,                        memory,

@@ -79,7 +79,7 @@     , "By running the tests in this test-suite costs for usage of AWS"     , "services may incur."     , ""-    , "In order to actually excute the tests in this test-suite you must"+    , "In order to actually execute the tests in this test-suite you must"     , "provide the command line options:"     , ""     , "    --run-with-aws-credentials"