From 0ba205f12506aae107d111d509a0a7e3a23a6a5e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 2 Apr 2013 15:18:03 -0400
Subject: [PATCH] squelch protocol error on shutdown

---
 Command/TransferKeys.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs
index 5fc993dc10..458fb31c10 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