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

6
src/Propellor/Protocol.hs
View File

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