MUC: Two-step nominate/comit chat transactions.

1 files changed, 6 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 27403971..5279ea54 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -114,6 +114,8 @@ import XMPPToTox
 import qualified Connection.Tcp as Tcp (ConnectionEvent(..),noCleanUp,TCPStatus)
 import DPut
 import DebugTag
+import LocalChat
+import MUC
 
 
 pshow :: Show a => a -> B.ByteString
@@ -1517,7 +1519,10 @@ initJabber opts ssvar announcer mbtox toxdhts = case portxmpp opts of
             tcp <- xmppConnections sv -- :: IO ( Manager TCPStatus T.Text )
             let tman = toxman ssvar announcer toxbkts <$> mbtox
             state     <- newPresenceState cw tman sv (selectManager tman tcp)
-            forkXmpp sv (presenceHooks state (verbosity opts) (Just cport) (Just sport))
+            chat <- atomically newMUC
+            quitChatService <- forkLocalChat chat
+            let chats = Map.singleton "chat" chat
+            forkXmpp sv (presenceHooks state chats (verbosity opts) (Just cport) (Just sport))
             conns     <- xmppConnections  sv
             return (Just sv, Just conns, Just state)