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 12:32:13 -04:00
parent 74a6f413f2
commit 46d3db4439
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Propellor/CmdLine.hs
View File

@ -85,6 +85,7 @@ spin host = do
hPutStrLn stderr "POST-PRIVDATA" hPutStrLn stderr "POST-PRIVDATA"
hFlush stderr hFlush stderr
hFlush toh hFlush toh
hClose toh
-- Propigate remaining output. -- Propigate remaining output.
void $ tryIO $ forever $ void $ tryIO $ forever $
@ -142,7 +143,7 @@ boot props = do
hPutStrLn stderr "SENT STATUS" hPutStrLn stderr "SENT STATUS"
hFlush stderr hFlush stderr
reply <- getContents reply <- getContents
hPutStrLn stderr $ "GOT " ++ reply hPutStrLn stderr $ "GOT >>" ++ reply ++ "<<"
hFlush stderr hFlush stderr
makePrivDataDir makePrivDataDir
hPutStrLn stderr $ "DEBUG 1" hPutStrLn stderr $ "DEBUG 1"