diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-05 19:40:27 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-05 19:41:29 -0400 |
| commit | 6250b057670c067642f090157d937f40e212f7dd (patch) | |
| tree | bbc9c4bddde2b0fa4eaf4e08e6bb54808cf9b058 /src/Propellor/Protocol.hs | |
| parent | de5fad970ee26d334f226275ecde6904b1f13b6d (diff) | |
improve protocol debugging
Diffstat (limited to 'src/Propellor/Protocol.hs')
| -rw-r--r-- | src/Propellor/Protocol.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Propellor/Protocol.hs b/src/Propellor/Protocol.hs index 2c568817..940f3e67 100644 --- a/src/Propellor/Protocol.hs +++ b/src/Propellor/Protocol.hs @@ -41,7 +41,7 @@ fromMarked marker s sendMarked :: Handle -> Marker -> String -> IO () sendMarked h marker s = do - debug ["sent req", marker] + debug ["sent marked", marker] -- Prefix string with newline because sometimes a -- incomplete line has been output, and the marker needs to -- come at the start of a line. @@ -57,7 +57,9 @@ getMarked h marker = go =<< catchMaybeIO (hGetLine h) unless (null l) $ hPutStrLn stderr l getMarked h marker - Just v -> return (Just v) + Just v -> do + debug ["received marked", marker] + return (Just v) req :: Stage -> Marker -> (String -> IO ()) -> IO () req stage marker a = do |