From 88c02486abcf45067483bd6a138b046397491889 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 5 Jul 2017 13:15:26 -0400 Subject: propellor spin --- src/Propellor/Message.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Message.hs') 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' -- cgit v1.2.3