diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-09 12:35:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-09 12:35:45 -0400 |
| commit | 2aed73a7e5fe72e6827dec72ced94c014ee7e262 (patch) | |
| tree | 3f06d83fc382f06325b8a0a4c3fe772a034229c1 /Remote | |
| parent | b443077e8a1c3a60c0e21472f9165316f9dfa3bf (diff) | |
improve warning on connection loss
Diffstat (limited to 'Remote')
| -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) |