diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 12:31:00 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 12:31:00 -0400 |
| commit | 74a6f413f2e7b01f40cc192044a23fa126e47907 (patch) | |
| tree | ffd37e43487ca23afefd8f728080194de03b93b8 /Propellor/CmdLine.hs | |
| parent | 546e3282a08b9eb9d590ed932e28bba368cf080b (diff) | |
propellor spin
Diffstat (limited to 'Propellor/CmdLine.hs')
| -rw-r--r-- | Propellor/CmdLine.hs | 10 |
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 |