[WIP] Pull across mismi-dynamodb package.

CHANGELOG.md

@@ -1,3 +1,6 @@
+## Version 0.0.4
+- Include `mismi-dynamodb`
+
 ## Version 0.0.3 (2018-12-27)
 
 - Add support for GHC 8.6.3

mismi-dynamodb/CHANGELOG.md

@@ -0,0 +1 @@
+../CHANGELOG.md

mismi-dynamodb/LICENSE

@@ -0,0 +1 @@
+../LICENSE

mismi-dynamodb/mismi-dynamodb.cabal

@@ -0,0 +1,51 @@
+version: 0.0.4
+
+name:
+  mismi-dynamodb
+author:
+  Nick Hibberd
+maintainer:
+  Nick Hibberd <[email protected]>
+homepage:
+  https://github.com/nhibberd/mismi
+bug-reports:
+  https://github.com/nhibberd/mismi/issues
+synopsis:
+  AWS Library
+description:
+  mismi-dynamodb is a library that provides a set of common and useful
+  operations on top of AWS DynamoDB.
+category:
+  AWS
+license:
+  BSD3
+license-file:
+  LICENSE
+cabal-version:
+  >= 1.8
+build-type:
+  Simple
+tested-with:
+    GHC == 8.2.2
+  , GHC == 8.4.3
+  , GHC == 8.6.3
+extra-source-files:
+  CHANGELOG.md
+
+library
+  build-depends:
+      base                            >= 3          && < 6
+    , mismi-p
+    , mismi-core
+    , amazonka-dynamodb               >= 1.4.0      && < 1.7
+    , lens                            >= 4.8        && < 4.18
+
+  ghc-options:
+    -Wall
+
+  hs-source-dirs:
+    src
+
+  exposed-modules:
+    Mismi.DynamoDB.Amazonka
+    Mismi.DynamoDB.Control

mismi-dynamodb/src/Mismi/DynamoDB/Amazonka.hs

@@ -0,0 +1,8 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Mismi.DynamoDB.Amazonka (
+    module AWS
+  ) where
+
+
+import           Network.AWS.DynamoDB as AWS

mismi-dynamodb/src/Mismi/DynamoDB/Control.hs

@@ -0,0 +1,38 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Mismi.DynamoDB.Control (
+    configureRetries
+  ) where
+
+import           Control.Lens (over, set, (^.), has)
+
+import           Mismi (Env)
+import           Mismi.Amazonka (serviceRetry, retryAttempts, exponentBase, configure, retryCheck, hasCode, hasStatus)
+
+import           Network.AWS.DynamoDB (dynamoDB)
+
+import           P
+
+-- https://github.com/brendanhay/amazonka/issues/351
+configureRetries :: Env -> Env
+configureRetries env =
+  let
+    check e =
+      let
+        check' = dynamoDB ^. serviceRetry . retryCheck
+      in
+        case check' e of
+          Nothing ->
+            case has (hasCode "ProvisionedThroughputExceeded" . hasStatus 400) e of
+              True ->
+                Just "throughput_exceeded_x"
+              False ->
+                Nothing
+          Just x ->
+            Just x
+  in
+    flip configure env .
+      flip (over serviceRetry) dynamoDB $
+          set retryAttempts 7 .
+          set exponentBase 0.6 .
+          set retryCheck check