squelch protocol error on shutdown

diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs
index 5fc993dc10aaa9619b483ded01cada22294835fa..458fb31c1051bca1bd337a4de03629d43231e361 100644 (file)
--- 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