diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-02 15:18:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-02 15:18:03 -0400 |
| commit | aafd1419d1310b0e45f5a055e7bfa913c974d519 (patch) | |
| tree | 4d98d1782f524afc26126f2829f4ec7d6345eec5 /Command/TransferKeys.hs | |
| parent | 56835693f551bdd07f6a840cce2d760098eebd82 (diff) | |
squelch protocol error on shutdown
Diffstat (limited to 'Command/TransferKeys.hs')
| -rw-r--r-- | Command/TransferKeys.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index 5fc993dc1..458fb31c1 100644 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -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 |