cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 12:31:00 -04:00
parent 546e3282a0
commit 74a6f413f2
Failed to extract signature
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Propellor/CmdLine.hs
View File

@ -145,9 +145,17 @@ boot props = do
hPutStrLn stderr $ "GOT " ++ reply hPutStrLn stderr $ "GOT " ++ reply
hFlush stderr hFlush stderr
makePrivDataDir makePrivDataDir
hPutStrLn stderr $ "DEBUG 1"
hFlush stderr
writeFileProtected privDataLocal $ fromMarked privDataMarker reply writeFileProtected privDataLocal $ fromMarked privDataMarker reply
hPutStrLn stderr $ "DEBUG 2"
hFlush stderr
let keyringarmored = fromMarked keyringMarker reply 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 withHandle StdinHandle createProcessSuccess
(proc "gpg" $ gpgopts ++ ["--import", "-a"]) $ \h -> do (proc "gpg" $ gpgopts ++ ["--import", "-a"]) $ \h -> do
hPutStr h keyringarmored hPutStr h keyringarmored