loup 0.0.3 → 0.0.4

raw patch · 3 files changed

+9/−3 lines, 3 files

Files

• loup.cabal +1/−1
• src/Network/AWS/Loup/Act.hs +1/−1
• src/Network/AWS/Loup/Decide.hs +7/−1

@@ -1,5 +1,5 @@ name:                  loup-version:               0.0.3+version:               0.0.4 synopsis:              Amazon Simple Workflow Service Wrapper for Work Pools. description:           Loup is a wrapper around Amazon Simple Workflow Service for Work Pools. homepage:              https://github.com/swift-nav/loup

@@ -73,7 +73,7 @@   traceInfo "run" [ "command" .= command, "input" .= input]   intempdir $ do     liftIO $ maybe_ input $ writeTextFile "input.json"-    stdout $ inshell command mempty+    stderr $ inshell command mempty   failActivity token  -- | Actor logic - poll for work, download artifacts, run command, upload artifacts.

@@ -119,12 +119,18 @@   traceInfo "canceled" mempty   return [ cancelActivity ] +nothing :: MonadDecisionCtx c m => m [Decision]+nothing = do+  events <- view dcEvents+  traceError "none" [ "events" .= (show . view heEventType <$> events) ]+  return mempty+ -- | Schedule decision based on history events. -- schedule :: MonadDecisionCtx c m => m [Decision] schedule = do   traceInfo "schedule" mempty-  let f []                                                     = return mempty+  let f []                                                     = nothing       f (e:es)         | e ^. heEventType == WorkflowExecutionStarted         = begin e         | e ^. heEventType == WorkflowExecutionCancelRequested = cancel