summaryrefslogtreecommitdiff
path: root/Propellor
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 12:32:13 -0400
committerJoey Hess2014-03-31 12:32:13 -0400
commit46d3db44398055650a74252fca1e7dec8bad9942 (patch)
tree40008a82c79047075db42a251e6fe755d16293ff /Propellor
parent74a6f413f2e7b01f40cc192044a23fa126e47907 (diff)
propellor spin
Diffstat (limited to 'Propellor')
-rw-r--r--Propellor/CmdLine.hs3
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"