summaryrefslogtreecommitdiff
path: root/Remote
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-12-09 12:35:45 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-12-09 12:35:45 -0400
commit2aed73a7e5fe72e6827dec72ced94c014ee7e262 (patch)
tree3f06d83fc382f06325b8a0a4c3fe772a034229c1 /Remote
parentb443077e8a1c3a60c0e21472f9165316f9dfa3bf (diff)
improve warning on connection loss
Diffstat (limited to 'Remote')
-rw-r--r--Remote/P2P.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/P2P.hs b/Remote/P2P.hs
index 0813098f1..f0848f831 100644
--- a/Remote/P2P.hs
+++ b/Remote/P2P.hs
@@ -132,7 +132,7 @@ runProto' a (OpenConnection conn) = do
-- so close it.
case v of
Left e -> do
- warning e
+ warning $ "Lost connection to peer (" ++ e ++ ")"
liftIO $ closeConnection conn
return (ClosedConnection, Nothing)
Right r -> return (OpenConnection conn, Just r)