diff options
| -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 |