From 46d3db44398055650a74252fca1e7dec8bad9942 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 12:32:13 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Propellor') 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" -- cgit v1.2.3