improve warning on connection loss

diff --git a/Remote/P2P.hs b/Remote/P2P.hs
index 0813098f18beb948047752f95cce5c02026f25cf..f0848f83180da1eeaadd7c83fbf4cba88dbac8d3 100644 (file)
--- 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)