summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-01-05 19:40:27 -0400
committerJoey Hess2015-01-05 19:41:29 -0400
commit6250b057670c067642f090157d937f40e212f7dd (patch)
treebbc9c4bddde2b0fa4eaf4e08e6bb54808cf9b058 /src/Propellor
parentde5fad970ee26d334f226275ecde6904b1f13b6d (diff)
improve protocol debugging
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Protocol.hs6
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