summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2017-07-05 13:15:26 -0400
committerJoey Hess2017-07-05 13:15:26 -0400
commit88c02486abcf45067483bd6a138b046397491889 (patch)
tree4e009bd4e797fd97d54d2bb3fb064e178134b380 /src/Propellor
parentc7d2d872c43f7076717d2172998d543f81c18041 (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Message.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs
index 1a01875c..1551eb7d 100644
--- a/src/Propellor/Message.hs
+++ b/src/Propellor/Message.hs
@@ -151,7 +151,6 @@ processChainOutput h = go Nothing
where
go rval = do
v <- catchMaybeIO (hGetLine h)
- debug ["chain process output", show v]
case v of
Nothing -> case rval of
Nothing -> return FailedChange
@@ -159,7 +158,8 @@ processChainOutput h = go Nothing
Just s -> do
case readish s of
Nothing -> do
- unless (null s) $
+ unless (null s) $ do
+ debug ["chain process output", show v]
outputConcurrent (s ++ "\n")
go rval
Just rval' -> go rval'