diff options
| author | joe <joe@jerkface.net> | 2017-10-21 21:35:37 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-21 21:35:37 -0400 |
| commit | cbdcc6500d6bda9948268312fc0bfb17955e53c5 (patch) | |
| tree | c45cf7e0a9d362799a984d81ca502bba808c7046 /src/Network/Tox.hs | |
| parent | e508e05ae839091a109f3c253dcfeadb6f40982d (diff) | |
Now searches using store command when we own the key.
This gives us a usable token for storing when the search is complete.
Diffstat (limited to 'src/Network/Tox.hs')
| -rw-r--r-- | src/Network/Tox.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 3b5c23a2..908691df 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
| @@ -245,8 +245,8 @@ getOnionAlias :: TransportCrypto -> STM NodeInfo -> Maybe (Onion.OnionDestinatio | |||
| 245 | getOnionAlias crypto dhtself remoteNode = atomically $ do | 245 | getOnionAlias crypto dhtself remoteNode = atomically $ do |
| 246 | ni <- dhtself | 246 | ni <- dhtself |
| 247 | let alias = case remoteNode of | 247 | let alias = case remoteNode of |
| 248 | Just (Onion.OnionDestination (Onion.AnnouncingAlias uk) _ _) | 248 | Just (Onion.OnionDestination (Onion.AnnouncingAlias _ uk) _ _) |
| 249 | -> ni { nodeId = uk } | 249 | -> ni { nodeId = key2id uk } |
| 250 | _ -> ni { nodeId = key2id (onionAliasPublic crypto) } | 250 | _ -> ni { nodeId = key2id (onionAliasPublic crypto) } |
| 251 | return $ Onion.OnionDestination Onion.SearchingAlias alias Nothing | 251 | return $ Onion.OnionDestination Onion.SearchingAlias alias Nothing |
| 252 | 252 | ||