summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarkfine <>2018-02-14 23:02:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-02-14 23:02:00 (GMT)
commit78eec727a44d6b41376029539e6a64ee1fd68f1b (patch)
tree0c858df4252cbe4de86932804d3f99f9b675855a
parentd5c3b113a7c7b88e1b431b1ad41258d685c976fa (diff)
version 0.3.420.3.42
-rwxr-xr-xShakefile.hs2
-rw-r--r--src/Network/AWS/Wolf/Ctx.hs2
-rw-r--r--src/Network/AWS/Wolf/Decide.hs4
-rw-r--r--wolf.cabal2
4 files changed, 5 insertions, 5 deletions
diff --git a/Shakefile.hs b/Shakefile.hs
index 6d80105..2bc7e80 100755
--- a/Shakefile.hs
+++ b/Shakefile.hs
@@ -39,7 +39,7 @@ main = shakeMain $ do
--
fake "." pats "sanity" $ const $ do
need [ "build-error" ]
- need [ "lint", "weed" ]
+ need [ "docs", "lint", "weed" ]
-- | Default things to run.
--
diff --git a/src/Network/AWS/Wolf/Ctx.hs b/src/Network/AWS/Wolf/Ctx.hs
index 232d33e..6d17f92 100644
--- a/src/Network/AWS/Wolf/Ctx.hs
+++ b/src/Network/AWS/Wolf/Ctx.hs
@@ -131,6 +131,6 @@ runAmazonWorkCtx queue action = do
--
runAmazonDecisionCtx :: MonadConf c m => Plan -> [HistoryEvent] -> TransT AmazonDecisionCtx m a -> m a
runAmazonDecisionCtx p hes action = do
- let preamble = [ "name" .= (p ^. pStart ^. tName) ]
+ let preamble = [ "name" .= (p ^. pStart . tName) ]
c <- view confCtx <&> cPreamble <>~ preamble
runTrans (AmazonDecisionCtx c p hes) action
diff --git a/src/Network/AWS/Wolf/Decide.hs b/src/Network/AWS/Wolf/Decide.hs
index b33ae43..0a3c955 100644
--- a/src/Network/AWS/Wolf/Decide.hs
+++ b/src/Network/AWS/Wolf/Decide.hs
@@ -52,7 +52,7 @@ completed he = do
atcea <- he ^. heActivityTaskCompletedEventAttributes
he' <- flip find hes $ (== atcea ^. atceaScheduledEventId) . view heEventId
atsea <- he' ^. heActivityTaskScheduledEventAttributes
- pure (atcea ^. atceaResult, atsea ^. atseaTaskPriority, atsea ^. atseaActivityType ^. atName)
+ pure (atcea ^. atceaResult, atsea ^. atseaTaskPriority, atsea ^. atseaActivityType . atName)
p <- view adcPlan
maybe (end input) (next input priority) $
join $ fmap headMay $ tailMay $ flip dropWhile (p ^. pTasks) $ (/= name) . view tName
@@ -90,7 +90,7 @@ schedule = do
decide :: MonadConf c m => Plan -> m ()
decide p =
preConfCtx [ "label" .= LabelDecide ] $ do
- let queue = p ^. pStart ^. tQueue
+ let queue = p ^. pStart . tQueue
runAmazonWorkCtx queue $ do
traceInfo "poll" mempty
t0 <- liftIO getCurrentTime
diff --git a/wolf.cabal b/wolf.cabal
index 1756403..4006be8 100644
--- a/wolf.cabal
+++ b/wolf.cabal
@@ -1,5 +1,5 @@
name: wolf
-version: 0.3.41
+version: 0.3.42
synopsis: Amazon Simple Workflow Service Wrapper.
description: Wolf is a wrapper around Amazon Simple Workflow Service.
homepage: https://github.com/swift-nav/wolf