1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index 224d3282..7a784fa1 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -170,6 +170,11 @@ presenceHooks state verbosity mclient mpeer = XMPPServerParameters
     , xmppPeerInformSubscription    = peerInformSubscription state
     , xmppVerbosity                 = return verbosity
     , xmppGroupChat                 = Map.singleton "chat" MUC
+        { mucRoomList      = return [("testroom",Just "testroom")]
+        , mucRoomOccupants = \case
+            "testroom" -> return [("fakeperson",Nothing)]
+            _          -> return []
+        }
     , xmppClientBind                = mclient
     , xmppPeerBind                  = mpeer
     }