squelch protocol error on shutdown
This commit is contained in:
parent
38d61f934d
commit
0ba205f125
1 changed files with 3 additions and 2 deletions
|
@ -84,8 +84,9 @@ runRequests readh writeh a = do
|
|||
(TransferRequest direction remote key file)
|
||||
_ -> sendresult False
|
||||
go rest
|
||||
go [] = return ()
|
||||
go _ = error "transferkeys protocol error"
|
||||
go [] = noop
|
||||
go [""] = noop
|
||||
go v = error $ "transferkeys protocol error: " ++ show v
|
||||
|
||||
readrequests = liftIO $ split fieldSep <$> hGetContents readh
|
||||
sendresult b = liftIO $ do
|
||||
|
|
Loading…
Add table
Reference in a new issue