diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-01-17 18:07:41 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-25 19:18:12 -0500 |
| commit | 938ef8b447e975a39121104b4206cd149a2f911e (patch) | |
| tree | b4c5680e48f4cc082ee46f7a206de8638a499c46 /dht/src/Data/Tox | |
| parent | 81489b13ee734bf5c618e1b826971725df8ed808 (diff) | |
Improved debug prints.
Diffstat (limited to 'dht/src/Data/Tox')
| -rw-r--r-- | dht/src/Data/Tox/DHT/Multi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Data/Tox/DHT/Multi.hs b/dht/src/Data/Tox/DHT/Multi.hs index 878b47e6..4067ab46 100644 --- a/dht/src/Data/Tox/DHT/Multi.hs +++ b/dht/src/Data/Tox/DHT/Multi.hs | |||
| @@ -149,4 +149,4 @@ showSessionAddr :: SessionAddress -> String | |||
| 149 | showSessionAddr (SessionUDP :=> Identity udp) = | 149 | showSessionAddr (SessionUDP :=> Identity udp) = |
| 150 | show (SockAddr.canonize udp) | 150 | show (SockAddr.canonize udp) |
| 151 | showSessionAddr (SessionTCP :=> Identity (ViaRelay mcon _ tcp)) = | 151 | showSessionAddr (SessionTCP :=> Identity (ViaRelay mcon _ tcp)) = |
| 152 | "TCP:" ++ maybe "" (\(ConId con) -> "(" ++ show con ++ ")") mcon ++ show tcp | 152 | "TCP:" ++ maybe "(oob)" (\(ConId con) -> "(" ++ show con ++ ")") mcon ++ show tcp |