Export non-ResourceT interface to xmppServer.

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f6c57130..b635f04e 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -27,7 +27,7 @@ import Control.Exception
 import Control.Monad
 import Control.Monad.IO.Class (liftIO)
 import Control.Monad.Trans.Control
-import Control.Monad.Trans.Resource (runResourceT)
+import Control.Monad.Trans.Resource (runResourceT,allocate)
 import Data.Bool
 import Data.Char
 import Data.Conduit as C
@@ -1707,7 +1707,7 @@ main = runResourceT $ liftBaseWith $ \resT -> do
 
             state     <- newPresenceState cw (toxman announcer toxbkts <$> mbtox) serverVar
 
-            sv    <- resT $ xmppServer (presenceHooks state (verbosity opts) (Just cport) (Just sport))
+            sv    <- resT $ xmppServer allocate (presenceHooks state (verbosity opts) (Just cport) (Just sport))
             -- We now have a server object but it's not ready to use until
             -- we put it into the 'server' field of our /state/ record.
             conns     <- xmppConnections  sv