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 14:26:01 -04:00
parent 3690257a9c
commit 69c39a087b
Failed to extract signature
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Propellor/CmdLine.hs
View File

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