1 files changed, 2 insertions, 1 deletions

diff --git a/dht/examples/testTox.hs b/dht/examples/testTox.hs
index 67c4daef..57601422 100644
--- a/dht/examples/testTox.hs
+++ b/dht/examples/testTox.hs
@@ -42,10 +42,11 @@ makeToxNode :: UDPTransport -> Maybe SecretKey
         -> IO (Tox extra)
 makeToxNode udp sec onSessionF = do
     keysdb <- newKeysDatabase
+    crypto <- newToxCrypto sec
     newToxOverTransport keysdb
                         (SockAddrInet 0 0)
                         onSessionF
-                        sec
+                        crypto
                         udp
                         (\_ _ -> return ())