diff options
Diffstat (limited to 'src/Propellor/Protocol.hs')
| -rw-r--r-- | src/Propellor/Protocol.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Protocol.hs b/src/Propellor/Protocol.hs index 198b3f32..7249e2b1 100644 --- a/src/Propellor/Protocol.hs +++ b/src/Propellor/Protocol.hs @@ -49,7 +49,8 @@ getMarked h marker = go =<< catchMaybeIO (hGetLine h) go Nothing = return Nothing go (Just l) = case fromMarked marker l of Nothing -> do - hPutStrLn stderr l + unless (null l) $ + hPutStrLn stderr l getMarked h marker Just v -> return (Just v) |