propellor spin

This commit is contained in:
Joey Hess 2014-03-31 14:26:01 -04:00
parent 3690257a9c
commit 69c39a087b
Failed to extract signature
1 changed files with 4 additions and 1 deletions

View File

@ -71,9 +71,12 @@ spin host = do
status <- getstatus fromh `catchIO` error "protocol error"
case status of
NeedKeyRing -> do
putStrLn $ "Sending " ++ keyring ++ " to " ++ host
putStr $ "Sending " ++ keyring ++ " to " ++ host ++ "..."
hFlush stdout
s <- toB64 <$> readFile keyring
hPutStrLn toh $ toMarked keyringMarker s
hFlush toh
putStrLn "done"
HaveKeyRing -> noop
hPutStrLn toh $ toMarked privDataMarker privdata
hFlush toh