From cbdcc6500d6bda9948268312fc0bfb17955e53c5 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 21 Oct 2017 21:35:37 -0400
Subject: Now searches using store command when we own the key.

This gives us a usable token for storing when the search is complete.
---
 src/Network/Tox.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network/Tox.hs')

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
 getOnionAlias crypto dhtself remoteNode = atomically $ do
     ni <- dhtself
     let alias = case remoteNode of
-            Just (Onion.OnionDestination (Onion.AnnouncingAlias uk) _ _)
-              -> ni { nodeId = uk }
+            Just (Onion.OnionDestination (Onion.AnnouncingAlias _ uk) _ _)
+              -> ni { nodeId = key2id uk }
             _ -> ni { nodeId = key2id (onionAliasPublic crypto) }
     return $ Onion.OnionDestination Onion.SearchingAlias alias Nothing
 
-- 
cgit v1.2.3