propellor spin
This commit is contained in:
parent
3f6cb342c6
commit
48b3c546b7
|
@ -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"
|
||||
|
|
Loading…
Reference in New Issue