diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 12:32:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 12:32:13 -0400 |
| commit | 46d3db44398055650a74252fca1e7dec8bad9942 (patch) | |
| tree | 40008a82c79047075db42a251e6fe755d16293ff | |
| parent | 74a6f413f2e7b01f40cc192044a23fa126e47907 (diff) | |
propellor spin
| -rw-r--r-- | Propellor/CmdLine.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index ab11b8fa..9217f892 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -85,6 +85,7 @@ spin host = do hPutStrLn stderr "POST-PRIVDATA" hFlush stderr hFlush toh + hClose toh -- Propigate remaining output. void $ tryIO $ forever $ @@ -142,7 +143,7 @@ boot props = do hPutStrLn stderr "SENT STATUS" hFlush stderr reply <- getContents - hPutStrLn stderr $ "GOT " ++ reply + hPutStrLn stderr $ "GOT >>" ++ reply ++ "<<" hFlush stderr makePrivDataDir hPutStrLn stderr $ "DEBUG 1" |