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:17:58 -04:00
parent ffd1928b39
commit ceab15aef5
Failed to extract signature
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Propellor/CmdLine.hs
View File

@ -78,11 +78,11 @@ spin host = do
hPutStrLn stderr "SEND-KEYRING" hPutStrLn stderr "SEND-KEYRING"
hFlush stderr hFlush stderr
s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"] s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"]
hPutStr toh $ toMarked keyringMarker s hPutStrLn toh $ toMarked keyringMarker s
Just HaveKeyRing -> noop Just HaveKeyRing -> noop
hPutStrLn stderr "POST-KEYRING" hPutStrLn stderr "POST-KEYRING"
hFlush stderr hFlush stderr
hPutStr toh $ toMarked privDataMarker privdata hPutStrLn toh $ toMarked privDataMarker privdata
hFlush toh hFlush toh
hClose fromh hClose fromh