From 811e3ec65c86694395b6c01409da62b6c0f8bf54 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 18 Oct 2019 14:50:49 -0400 Subject: Quit XMPP.monitor thread. --- dht/examples/dhtd.hs | 4 ++-- 1 file 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 -- cgit v1.2.3