summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarkfine <>2017-10-31 00:46:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-10-31 00:46:00 (GMT)
commit15f8d2d8fc8207db26efed746c0d23a206a4279c (patch)
treed7373a29a197caf938e506f6cc44357d285c7bbb
parente926fd3a2ebd0554338245d46a404648f38610a1 (diff)
version 0.3.290.3.29
-rw-r--r--src/Network/AWS/Wolf/Act.hs5
-rw-r--r--wolf.cabal2
2 files changed, 5 insertions, 2 deletions
diff --git a/src/Network/AWS/Wolf/Act.hs b/src/Network/AWS/Wolf/Act.hs
index 07c8969..1112089 100644
--- a/src/Network/AWS/Wolf/Act.hs
+++ b/src/Network/AWS/Wolf/Act.hs
@@ -17,6 +17,7 @@ import Network.AWS.Wolf.Prelude
import Network.AWS.Wolf.SWF
import Network.AWS.Wolf.Types
import System.Directory
+import System.Exit
import System.Process
-- | S3 copy call.
@@ -115,5 +116,7 @@ actMain cf quiesce queue num nocopy local command =
conf <- readYaml cf
runConfCtx conf $
runConcurrent $ replicate num $ forever $ do
- boolThrowIO "Quiesce" =<< not <$> check quiesce
+ ok <- check quiesce
+ when ok $
+ liftIO exitSuccess
act queue nocopy local command
diff --git a/wolf.cabal b/wolf.cabal
index 685928b..e97687c 100644
--- a/wolf.cabal
+++ b/wolf.cabal
@@ -1,5 +1,5 @@
name: wolf
-version: 0.3.28
+version: 0.3.29
synopsis: Amazon Simple Workflow Service Wrapper.
description: Wolf is a wrapper around Amazon Simple Workflow Service.
homepage: https://github.com/swift-nav/wolf