propellor spin

This commit is contained in:
Joey Hess 2014-03-31 14:28:24 -04:00
parent 3f6cb342c6
commit 48b3c546b7
Failed to extract signature
1 changed files with 2 additions and 1 deletions

View File

@ -74,7 +74,8 @@ spin host = do
putStr $ "Sending " ++ keyring ++ " to " ++ host ++ "..."
hFlush stdout
s <- toB64 <$> readFile keyring
putStrLn $ toMarked keyringMarker s
putStrLn $ show $ toMarked keyringMarker s
hFlush stdout
hPutStrLn toh $ toMarked keyringMarker s
hFlush toh
putStrLn "done"