1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/TCP.hs b/src/Network/Tox/TCP.hs
index 9c1ffe48..13da804f 100644
--- a/src/Network/Tox/TCP.hs
+++ b/src/Network/Tox/TCP.hs
@@ -110,7 +110,7 @@ tcpStream crypto = StreamHandshake
            , streamDecode =
                let go h = decode <$> hGet h 2 >>= \case
                        Left e    -> do
-                            dput XTCP $ "TCP: Failed to get length: " ++ e
+                            dput XTCP $ "TCP: (" ++ show addr ++ ") Failed to get length: " ++ e
                            return Nothing
                        Right len -> do
                            decode <$> hGet h (fromIntegral (len :: Word16)) >>= \case

diff --git a/src/Network/Tox/TCP.hs b/src/Network/Tox/TCP.hs index 9c1ffe48..13da804f 100644 --- a/src/Network/Tox/TCP.hs +++ b/src/Network/Tox/TCP.hs
@@ -110,7 +110,7 @@ tcpStream crypto = StreamHandshake
110	, streamDecode =	110	, streamDecode =
111	let go h = decode <$> hGet h 2 >>= \case	111	let go h = decode <$> hGet h 2 >>= \case
112	Left e -> do	112	Left e -> do
113	dput XTCP $ "TCP: Failed to get length: " ++ e	113	dput XTCP $ "TCP: (" ++ show addr ++ ") Failed to get length: " ++ e
114	return Nothing	114	return Nothing
115	Right len -> do	115	Right len -> do
116	decode <$> hGet h (fromIntegral (len :: Word16)) >>= \case	116	decode <$> hGet h (fromIntegral (len :: Word16)) >>= \case