diff options
-rw-r--r-- | Remote/P2P.hs | 2 |
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) |