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:30:05 -04:00
parent 8331629fa7
commit 546e3282a0
Failed to extract signature
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Propellor/CmdLine.hs
View File

@ -82,7 +82,11 @@ spin host = do
hPutStrLn stderr "POST-KEYRING" hPutStrLn stderr "POST-KEYRING"
hFlush stderr hFlush stderr
hPutStrLn toh $ toMarked privDataMarker privdata hPutStrLn toh $ toMarked privDataMarker privdata
hPutStrLn stderr "POST-PRIVDATA"
hFlush stderr
hFlush toh hFlush toh
-- Propigate remaining output.
void $ tryIO $ forever $ void $ tryIO $ forever $
putStrLn =<< hGetLine fromh putStrLn =<< hGetLine fromh
hClose fromh hClose fromh
@ -148,6 +152,8 @@ boot props = do
(proc "gpg" $ gpgopts ++ ["--import", "-a"]) $ \h -> do (proc "gpg" $ gpgopts ++ ["--import", "-a"]) $ \h -> do
hPutStr h keyringarmored hPutStr h keyringarmored
hFlush h hFlush h
hPutStrLn stderr $ "READY"
hFlush stderr
ensureProperties props ensureProperties props
addKey :: String -> IO () addKey :: String -> IO ()