mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

squelch protocol error on shutdown

Browse source
This commit is contained in:
Joey Hess 2013-04-02 15:18:03 -04:00
parent 38d61f934d
commit 0ba205f125
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/TransferKeys.hs
View file

@ -84,8 +84,9 @@ runRequests readh writeh a = do
(TransferRequest direction remote key file) (TransferRequest direction remote key file)
_ -> sendresult False _ -> sendresult False
go rest go rest
go [] = return () go [] = noop
go _ = error "transferkeys protocol error" go [""] = noop
go v = error $ "transferkeys protocol error: " ++ show v
readrequests = liftIO $ split fieldSep <$> hGetContents readh readrequests = liftIO $ split fieldSep <$> hGetContents readh
sendresult b = liftIO $ do sendresult b = liftIO $ do