1 files changed, 7 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d5310f57..ed7d5e63 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1027,10 +1027,16 @@ main = runResourceT $ liftBaseWith $ \resT -> do
 
     announcer <- forkAnnouncer
 
+    let toxman = ToxManager
+            { activateAccount        = \k pubkey -> return ()
+            , deactivateAccount      = \k pubkey -> return ()
+            , setToxConnectionPolicy = \me them policy -> return ()
+            }
+
     -- XMPP initialization
     cw        <- newConsoleWriter
     serverVar <- atomically $ newEmptyTMVar
-    state     <- newPresenceState cw serverVar
+    state     <- newPresenceState cw (Just toxman) serverVar
 
     -- XMPP stanza handling
     sv    <- resT $ xmppServer (presenceHooks state (verbosity opts))