propellor spin
This commit is contained in:
parent
208322d5be
commit
bd7c118cae
|
@ -42,6 +42,10 @@ fromMarked marker s
|
|||
sendMarked :: Handle -> Marker -> String -> IO ()
|
||||
sendMarked h marker s = do
|
||||
debug ["sent marked", marker]
|
||||
sendMarked' h marker s
|
||||
|
||||
sendMarked' :: Handle -> Marker -> String -> IO ()
|
||||
sendMarked' h marker s = do
|
||||
-- Prefix string with newline because sometimes a
|
||||
-- incomplete line has been output, and the marker needs to
|
||||
-- come at the start of a line.
|
||||
|
@ -63,5 +67,6 @@ getMarked h marker = go =<< catchMaybeIO (hGetLine h)
|
|||
|
||||
req :: Stage -> Marker -> (String -> IO ()) -> IO ()
|
||||
req stage marker a = do
|
||||
sendMarked stdout statusMarker (show stage)
|
||||
debug ["requested marked", marker]
|
||||
sendMarked' stdout statusMarker (show stage)
|
||||
maybe noop a =<< getMarked stdin marker
|
||||
|
|
Loading…
Reference in New Issue