Ability to send onion messages when given a path.

1 files changed, 5 insertions, 2 deletions

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