Added outbound initiation addresses to the Onion transport.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 17585dfd..7893d84a 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -235,7 +235,8 @@ newTox keydb addr = do
         atomically $ newTVar nil { maxInterval = 20 } -- 20 second timeout on announce ping-ids.
     oniondrg <- drgNew
     let onionnet = layerTransport (Onion.decrypt crypto) (Onion.encrypt crypto) onioncrypt
-    onionclient <- newClient oniondrg onionnet Onion.classify (const $ return $ Onion.OnionToMe addr)
+    onionclient <- newClient oniondrg onionnet Onion.classify
+                    (const $ return $ either (const $ error "bad sockaddr") Onion.OnionDestination $ nodeInfo zeroID addr)
                     (Onion.handlers onionnet routing toks keydb)
                     (const id)
     return Tox