diff options
Diffstat (limited to 'src/Network/Tox')
-rw-r--r-- | src/Network/Tox/TCP.hs | 2 |
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 | |||
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 |