diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-01-31 04:26:26 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-01-31 04:26:26 -0500 |
| commit | 63371d9b1220a42ef9feb73b94bb865dfb7f9d1d (patch) | |
| tree | 7f7abe053d2a52f747819e2dbf53fa8960a903c8 /src/Network/Tox/TCP.hs | |
| parent | adb133efa0edf247a3a99b07872d418d899b67d3 (diff) | |
Debug prints.
Diffstat (limited to 'src/Network/Tox/TCP.hs')
| -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 |