cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-11-18 15:15:56 -04:00
parent 781e35a333
commit 9dfae00bd3
Failed to extract signature
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Propellor/Protocol.hs
View File

@ -28,7 +28,7 @@ gitPushMarker :: String
gitPushMarker = "GITPUSH"
toMarked :: Marker -> String -> String
toMarked marker = ++
toMarked = (++)
fromMarked :: Marker -> Marked -> Maybe String
fromMarked marker s
@ -47,11 +47,13 @@ getMarked :: Handle -> Marker -> IO (Maybe String)
getMarked h marker = go =<< catchMaybeIO (hGetLine h)
where
go Nothing = return Nothing
go (Just l) = case fromMarked marker l of
Nothing -> do
putStrLn l
getMarked h marker
Just v -> return (Just v)
go (Just l) = do
hPutStrLn stderr $ show ("got ", l)
case fromMarked marker l of
Nothing -> do
putStrLn l
getMarked h marker
Just v -> return (Just v)
req :: Stage -> Marker -> (String -> IO ()) -> IO ()
req stage marker a = do