From 8c41972a6e9bf10a2b0b887a6618a6981d4a3c7e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 8 Dec 2016 16:02:26 -0400 Subject: better format error --- Remote/P2P.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Remote/P2P.hs') diff --git a/Remote/P2P.hs b/Remote/P2P.hs index bc0e2f923..0813098f1 100644 --- a/Remote/P2P.hs +++ b/Remote/P2P.hs @@ -188,7 +188,7 @@ openConnection u addr = do liftIO $ closeConnection conn return ClosedConnection Left e -> do - warning e + warning $ "Problem communicating with peer. (" ++ e ++ ")" liftIO $ closeConnection conn return ClosedConnection Left e -> do -- cgit v1.2.3