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:16:34 -04:00
parent e7ae49a7e7
commit ffd1928b39
Failed to extract signature
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Propellor/CmdLine.hs
View File

@ -75,9 +75,13 @@ spin host = do
case status of case status of
Nothing -> error "protocol error" Nothing -> error "protocol error"
Just NeedKeyRing -> do Just NeedKeyRing -> do
hPutStrLn stderr "SEND-KEYRING"
hFlush stderr
s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"] s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"]
hPutStr toh $ toMarked keyringMarker s hPutStr toh $ toMarked keyringMarker s
Just HaveKeyRing -> noop Just HaveKeyRing -> noop
hPutStrLn stderr "POST-KEYRING"
hFlush stderr
hPutStr toh $ toMarked privDataMarker privdata hPutStr toh $ toMarked privDataMarker privdata
hFlush toh hFlush toh
hClose fromh hClose fromh