From c6972cb91440649ed568a4dda53ca14aa86eada6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 8 Dec 2016 16:02:26 -0400
Subject: [PATCH] better format error
---
Remote/P2P.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Remote/P2P.hs b/Remote/P2P.hs
index bc0e2f9230..0813098f18 100644
--- a/Remote/P2P.hs
+++ b/Remote/P2P.hs
@@ -188,7 +188,7 @@ openConnection u addr = do
liftIO $ closeConnection conn
return ClosedConnection
Left e -> do
- warning e
+ warning $ "Problem communicating with peer. (" ++ e ++ ")"
liftIO $ closeConnection conn
return ClosedConnection
Left e -> do