diff options
author | 2016-12-09 12:35:45 -0400 | |
---|---|---|
committer | 2016-12-09 12:35:45 -0400 | |
commit | 2aed73a7e5fe72e6827dec72ced94c014ee7e262 (patch) | |
tree | 3f06d83fc382f06325b8a0a4c3fe772a034229c1 | |
parent | b443077e8a1c3a60c0e21472f9165316f9dfa3bf (diff) |
improve warning on connection loss
-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) |