summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarkfine <>2017-06-06 06:41:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-06-06 06:41:00 (GMT)
commit6faba363f548b1496d845441165e25daadefe3d8 (patch)
tree53026e580ccf07855fd499beed9513adbba9df40
parent5d53b6ba4c206f459141539f51ad8df0e41f83ec (diff)
version 0.3.170.3.17
-rw-r--r--src/Network/AWS/Wolf/Act.hs6
-rw-r--r--wolf.cabal2
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/AWS/Wolf/Act.hs b/src/Network/AWS/Wolf/Act.hs
index bf4bd0b..37931b9 100644
--- a/src/Network/AWS/Wolf/Act.hs
+++ b/src/Network/AWS/Wolf/Act.hs
@@ -80,8 +80,8 @@ act queue command =
maybe_ uid $ \uid' ->
withCurrentWorkDirectory uid' $ \wd ->
runAmazonStoreCtx uid' $ do
- traceInfo "start" [ "input" .= input, "dir" .= wd ]
- t2 <- liftIO getCurrentTime
+ traceInfo "start" [ "dir" .= wd ]
+ t2 <- liftIO getCurrentTime
dd <- dataDirectory wd
sd <- storeDirectory wd
isd <- inputDirectory sd
@@ -94,7 +94,7 @@ act queue command =
output <- readText (dd </> "output.json")
maybe (completeActivity token' output) (const $ failActivity token') e
t3 <- liftIO getCurrentTime
- traceInfo "finish" [ "output" .= output ]
+ traceInfo "finish" [ "dir" .= wd ]
let status = textFromString $ maybe "complete" (const "fail") e
statsIncrement "wolf.act.activity.count" [ "queue" =. queue, "status" =. status ]
statsHistogram "wolf.act.activity.elapsed" (realToFrac (diffUTCTime t3 t2) :: Double) [ "queue" =. queue ]
diff --git a/wolf.cabal b/wolf.cabal
index 776c7c6..ddf6ee4 100644
--- a/wolf.cabal
+++ b/wolf.cabal
@@ -1,5 +1,5 @@
name: wolf
-version: 0.3.16
+version: 0.3.17
synopsis: Amazon Simple Workflow Service Wrapper.
description: Wolf is a wrapper around Amazon Simple Workflow Service.
homepage: https://github.com/swift-nav/wolf