squelch protocol error on shutdown

This commit is contained in:
Joey Hess 2013-04-02 15:18:03 -04:00
parent 38d61f934d
commit 0ba205f125

View file

@ -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