diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 18:13:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 18:13:42 -0400 |
| commit | 18903ad30c9a94b03c445eda2e15d6acb885e794 (patch) | |
| tree | 3531178416eb34814ed4244089d644422f1fc6f0 /src/Propellor/Protocol.hs | |
| parent | 01bcf447e3bf0d86a523a1788f3c5925a1fb8d69 (diff) | |
display improvements
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) |