From 0cd9825fb2744ce4d79f1a94698e112a8d78f359 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 24 Nov 2015 15:41:33 -0500 Subject: [PATCH] Remove when you leave room --- Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index da97c50..07a97ec 100644 --- a/Main.hs +++ b/Main.hs @@ -179,12 +179,13 @@ viteltiy db toVitelity toComponent = do (Just tel, Just txt) -> case parseCommand txt tel of Just (Join room) -> do existingRoom <- (parseJID . fromString =<<) <$> TC.runTCM (TC.get db $ T.unpack tel) - forM_ existingRoom $ \leaveRoom -> + forM_ existingRoom $ \leaveRoom -> do writeStanzaChan toComponent $ (emptyPresence PresenceUnavailable) { presenceTo = Just leaveRoom, presenceFrom = parseJID $ tel <> fromString "@sms.singpolyma.net", presencePayloads = [Element (fromString "{jabber:component:accept}status") [] [NodeContent $ ContentText $ fromString "Joined a different room."]] } + TC.runTCM $ TC.out db $ T.unpack tel writeStanzaChan toComponent $ (emptyPresence PresenceAvailable) { presenceTo = Just room, -- 2.38.5