diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-12-14 03:09:12 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:26:05 -0500 |
| commit | 8c04d9cca70241bebe4b94b779fe7bbfe6140f51 (patch) | |
| tree | b9cfd6956feb2180e7eee560d065a3cf132a91f8 /dht/src/Data/Tox/Onion.hs | |
| parent | b3dedb534768756c74448ed4066184e28a539c52 (diff) | |
Tox.DHT.Transport: polymorphic address type.
Diffstat (limited to 'dht/src/Data/Tox/Onion.hs')
| -rw-r--r-- | dht/src/Data/Tox/Onion.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Data/Tox/Onion.hs b/dht/src/Data/Tox/Onion.hs index e0d7c744..e19f71b6 100644 --- a/dht/src/Data/Tox/Onion.hs +++ b/dht/src/Data/Tox/Onion.hs | |||
| @@ -198,7 +198,7 @@ parseOnionAddr lookupSender (msg,saddr) | |||
| 198 | (return . Left . \od -> (msg,od)) | 198 | (return . Left . \od -> (msg,od)) |
| 199 | maddr | 199 | maddr |
| 200 | Just (Right msg@(OnionToRouteResponse asym)) -> do | 200 | Just (Right msg@(OnionToRouteResponse asym)) -> do |
| 201 | let ni = asymNodeInfo saddr asym | 201 | let ni = asymNodeInfo nodeInfo saddr asym |
| 202 | return $ Left (msg, OnionDestination SearchingAlias ni Nothing) | 202 | return $ Left (msg, OnionDestination SearchingAlias ni Nothing) |
| 203 | _ -> return right | 203 | _ -> return right |
| 204 | 204 | ||