propellor spin
This commit is contained in:
parent
00c8a254bf
commit
12c0b5034b
|
@ -71,7 +71,7 @@ spin host = do
|
|||
status <- getstatus fromh `catchIO` error "protocol error"
|
||||
case status of
|
||||
NeedKeyRing -> do
|
||||
s <- toB64 readFile keyring
|
||||
s <- toB64 <$> readFile keyring
|
||||
hPutStrLn toh $ toMarked keyringMarker s
|
||||
HaveKeyRing -> noop
|
||||
hPutStrLn toh $ toMarked privDataMarker privdata
|
||||
|
|
Loading…
Reference in New Issue