2 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index 3ee6d945..d612ac05 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -577,6 +577,7 @@ serializeClient c = do
                , clientLeaveQuery = \tid didRespond -> putMVar mvar ()
                }
 
+retardSend :: Int -> Client err meth tid addr x  -> IO (Client err meth tid addr x)
 retardSend micros client = do
     mvar <- newMVar () :: IO (MVar ())
     return client { clientEnterQuery = \tid -> do
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index efddc2a0..fcfa872f 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -445,8 +445,7 @@ newTox keydb addr mbSessionsState suppliedDHTKey = do
     let lookupClose _ = return Nothing
 
     mkrouting <- DHT.newRouting addr crypto updateIP updateIP
-    let ignoreErrors _ = return () -- Set this to (dput XMisc) to debug onion route building.
-    orouter <- newOnionRouter ignoreErrors
+    orouter <- newOnionRouter $ dput XRoutes
     (cryptonet,dhtcrypt,onioncrypt,dtacrypt,handshakes) <- toxTransport crypto orouter lookupClose udp
 
     let dhtnet0 = layerTransportM (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt