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

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 14:24:15 -04:00
parent 5c814d3780
commit 3690257a9c
Failed to extract signature
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Propellor/CmdLine.hs
View File

@ -81,7 +81,7 @@ spin host = do
-- Display remaining output. -- Display remaining output.
void $ tryIO $ forever $ void $ tryIO $ forever $
putStrLn =<< hGetLine fromh showremote =<< hGetLine fromh
hClose fromh hClose fromh
where where
@ -104,9 +104,10 @@ spin host = do
l <- hGetLine h l <- hGetLine h
case readish =<< fromMarked statusMarker l of case readish =<< fromMarked statusMarker l of
Nothing -> do Nothing -> do
putStrLn l showremote l
getstatus h getstatus h
Just status -> return status Just status -> return status
showremote s = putStrLn $ host ++ ": " ++ s
data BootStrapStatus = HaveKeyRing | NeedKeyRing data BootStrapStatus = HaveKeyRing | NeedKeyRing
deriving (Read, Show, Eq) deriving (Read, Show, Eq)