summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 12:31:00 -0400
committerJoey Hess2014-03-31 12:31:00 -0400
commit74a6f413f2e7b01f40cc192044a23fa126e47907 (patch)
treeffd37e43487ca23afefd8f728080194de03b93b8
parent546e3282a08b9eb9d590ed932e28bba368cf080b (diff)
propellor spin
-rw-r--r--Propellor/CmdLine.hs10
1 files changed, 9 insertions, 1 deletions
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