diff options
Diffstat (limited to 'dht/src/Data/Tox/DHT/Multi.hs')
| -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 |