Quit XMPP.monitor thread.

1 files changed, 2 insertions, 2 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 26e01c75..68c847c5 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1637,9 +1637,9 @@ initJabber opts ssvar announcer mbtox toxdhts toxchat = case portxmpp opts of
             quitChatService <- forkLocalChat chat
             let chats = Map.fromList [ ("local", chat)
                                      , ("ngc", toxchat) ]
-            forkXmpp sv (presenceHooks state chats (verbosity opts) (Just cport) (Just sport))
+            xmpp_thread <- forkXmpp sv (presenceHooks state chats (verbosity opts) (Just cport) (Just sport))
             conns     <- xmppConnections  sv
-            return (Just sv, Just conns, Just state, quitChatService)
+            return (Just sv, Just conns, Just state, killThread xmpp_thread >> quitChatService)
 
 main :: IO ()
 main = do