From d408e6c3148106c6dbc8afe24a1488619adf34e1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sun, 1 Oct 2017 05:26:36 -0400
Subject: Ability to send onion messages when given a path.

---
 src/Network/Tox.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 8df1a09d..3c5fc955 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -192,7 +192,7 @@ newClient drg net classify selfAddr handlers modifynet = do
 
 data Tox = Tox
     { toxDHT :: DHT.Client
-    , toxOnion :: Onion.Client
+    , toxOnion :: Onion.Client RouteId
     , toxCrypto :: Transport String SockAddr NetCrypto
     , toxRouting :: DHT.Routing
     , toxTokens :: TVar SessionTokens
@@ -237,7 +237,10 @@ newTox keydb addr = do
     oniondrg <- drgNew
     let onionnet = layerTransport (Onion.decrypt crypto) (Onion.encrypt crypto) onioncrypt
     onionclient <- newClient oniondrg onionnet Onion.classify
-                    (const $ return $ either (const $ error "bad sockaddr") Onion.OnionDestination $ nodeInfo zeroID addr)
+                    (const $ return
+                           $ either (const $ error "bad sockaddr")
+                                    (flip Onion.OnionDestination Nothing)
+                           $ nodeInfo zeroID addr)
                     (Onion.handlers onionnet routing toks keydb)
                     (const id)
     return Tox
-- 
cgit v1.2.3