WIP: Support for sending onion queries to TCP relays.

1 files changed, 1 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 163226cb..d014a611 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1710,7 +1710,7 @@ main = do
         let defaultToxData = do
                 rster <- Tox.newContactInfo
                 crypto <- newCrypto
-                orouter <- newOnionRouter crypto (dput XMisc)
+                (orouter,_) <- newOnionRouter crypto (dput XMisc)
                 return (rster, orouter)
         (rstr,orouter) <- fromMaybe defaultToxData $ do
             tox <- mbtox