summaryrefslogtreecommitdiff
path: root/src/Network/AWS/Wolf/Act.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/AWS/Wolf/Act.hs')
-rw-r--r--src/Network/AWS/Wolf/Act.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Network/AWS/Wolf/Act.hs b/src/Network/AWS/Wolf/Act.hs
index 913b04f..4356d8f 100644
--- a/src/Network/AWS/Wolf/Act.hs
+++ b/src/Network/AWS/Wolf/Act.hs
@@ -95,12 +95,15 @@ act queue nocopy local includes command =
sd <- storeDirectory wd
isd <- inputDirectory sd
osd <- outputDirectory sd
+ msd <- metaDirectory sd
writeJson (dd </> "control.json") (Control uid')
writeText (dd </> "input.json") input
+ writeText (msd </> (textToString queue <> "_input.json")) input
download isd includes
e <- run command
upload osd
output <- readText (dd </> "output.json")
+ writeText (msd </> (textToString queue <> "_output.json")) output
maybe (completeActivity token' output) (const $ failActivity token') e
t3 <- liftIO getCurrentTime
traceInfo "finish" [ "dir" .= wd ]