aws-lambda-haskell-runtime 1.0.9 → 1.0.10

raw patch · 3 files changed

+9/−11 lines, 3 filesdep +http-clientPVP ok

version bump matches the API change (PVP)

Dependencies added: http-client

API changes (from Hackage documentation)

Files

README.md +2/−8
aws-lambda-haskell-runtime.cabal +3/−2
src/Aws/Lambda/Runtime.hs +4/−1

README.md view

@@ -21,7 +21,7 @@ - .  extra-deps:-- aws-lambda-haskell-runtime-1.0.7+- aws-lambda-haskell-runtime-1.0.9 ```  to your `stack.yaml`@@ -40,14 +40,8 @@  The ARN of the runtime layer is: ```-arn:aws:lambda:<YOUR REGION>:785355572843:layer:haskell-runtime:<VERSION>+arn:aws:lambda:<YOUR REGION>:785355572843:layer:aws-haskell-runtime:2 ````--The version of the layer may be different depending of the region, the current values are:--| us-east-2 | Other regions |-|-----------|---------------|-|    13     |       5       |  ## Full user guide

aws-lambda-haskell-runtime.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 77bb69bb6cee68d5d854ba29a9b6ffd5fe538c849f335826d5a1278bd8aa5543+-- hash: 7cc036543eaa96e63b9689f813bbc9413840dd185700a6f40ef90f3a40341b52  name:           aws-lambda-haskell-runtime-version:        1.0.9+version:        1.0.10 synopsis:       Haskell runtime for AWS Lambda description:    Please see the README on GitHub at <https://github.com/theam/aws-lambda-haskell-runtime#readme> category:       AWS@@ -46,6 +46,7 @@     , conduit     , directory     , filepath+    , http-client     , microlens-platform     , mtl     , optparse-generic

src/Aws/Lambda/Runtime.hs view

@@ -20,6 +20,7 @@ import qualified Data.CaseInsensitive as CI import Lens.Micro.Platform hiding ((.=)) import qualified Network.Wreq as Wreq+import qualified Network.HTTP.Client as Http import qualified System.Environment as Environment import qualified System.Process as Process import qualified Data.UUID as UUID@@ -132,8 +133,10 @@  getApiData :: Text -> App (Wreq.Response LByteString) getApiData endpoint =-  keepRetrying (Wreq.get $ nextInvocationEndpoint endpoint)+  keepRetrying (Wreq.getWith opts $ nextInvocationEndpoint endpoint)  where+  opts = Wreq.defaults+         & Wreq.manager .~ Left (Http.defaultManagerSettings { Http.managerResponseTimeout = Http.responseTimeoutNone })   keepRetrying :: IO (Wreq.Response LByteString) -> App (Wreq.Response LByteString)   keepRetrying f = do     result <- (liftIO $ try f) :: App (Either IOException (Wreq.Response LByteString))