From 74a6f413f2e7b01f40cc192044a23fa126e47907 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 12:31:00 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 4ce33858..ab11b8fa 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -145,9 +145,17 @@ boot props = do hPutStrLn stderr $ "GOT " ++ reply hFlush stderr makePrivDataDir + hPutStrLn stderr $ "DEBUG 1" + hFlush stderr writeFileProtected privDataLocal $ fromMarked privDataMarker reply + hPutStrLn stderr $ "DEBUG 2" + hFlush stderr let keyringarmored = fromMarked keyringMarker reply - unless (null keyringarmored) $ + hPutStrLn stderr $ "DEBUG 3" + hFlush stderr + unless (null keyringarmored) $ do + hPutStrLn stderr $ "DEBUG 4" + hFlush stderr withHandle StdinHandle createProcessSuccess (proc "gpg" $ gpgopts ++ ["--import", "-a"]) $ \h -> do hPutStr h keyringarmored -- cgit v1.2.3