wolf 0.3.41 → 0.3.42

raw patch · 4 files changed

+5/−5 lines, 4 files

Files

Shakefile.hs +1/−1
src/Network/AWS/Wolf/Ctx.hs +1/−1
src/Network/AWS/Wolf/Decide.hs +2/−2
wolf.cabal +1/−1

Shakefile.hs view

@@ -39,7 +39,7 @@   --   fake "." pats "sanity" $ const $ do     need [ "build-error" ]-    need [ "lint", "weed" ]+    need [ "docs", "lint", "weed" ]    -- | Default things to run.   --

src/Network/AWS/Wolf/Ctx.hs view

@@ -131,6 +131,6 @@ -- 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

src/Network/AWS/Wolf/Decide.hs view

@@ -52,7 +52,7 @@     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 @@ 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

wolf.cabal view

@@ -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