summaryrefslogtreecommitdiff
path: root/src/Propellor/Engine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-27 17:55:56 -0400
committerJoey Hess2014-11-27 17:55:56 -0400
commit9500e9bb810202eabc6a299ca8aa3a70fa5dcee6 (patch)
tree2f1c6822b9a364801672412afc5ee236b55b7f73 /src/Propellor/Engine.hs
parent7ddb862176764fb52ab64d3c746f3841b1a3ba65 (diff)
added more debugging
Diffstat (limited to 'src/Propellor/Engine.hs')
-rw-r--r--src/Propellor/Engine.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs
index b0b1695a..81cc2397 100644
--- a/src/Propellor/Engine.hs
+++ b/src/Propellor/Engine.hs
@@ -80,10 +80,13 @@ processChainOutput h = go Nothing
debug ["read from chained propellor: ", show v]
case v of
Nothing -> case lastline of
- Nothing -> pure FailedChange
+ Nothing -> do
+ debug ["chained propellor output nothing; assuming it failed"]
+ return FailedChange
Just l -> case readish l of
Just r -> pure r
Nothing -> do
+ debug ["chained propellor output did not end with a Result; assuming it failed"]
putStrLn l
hFlush stdout
return FailedChange