propellor spin

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'