~singpolyma/cheogram

85091d9ce6ea625ecf9a2aec6718e6714fe1d107 — Stephen Paul Weber 7 years ago 261f330
Don't put myself in my own list
1 files changed, 3 insertions(+), 2 deletions(-)

M Main.hs
M Main.hs => Main.hs +3 -2
@@ 605,13 605,14 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d
				find (mucShortMatch tel (strDomain $ jidDomain room)) bookmarks)
		Just Leave -> leaveRoom db toComponent componentHost tel "Typed /leave"
		Just Who -> do
			let snick = T.unpack nick
			let room = maybe "" (T.unpack . bareTxt) existingRoom
			presence <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (room <> "\0presence"))
			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ mconcat [
					"You are joined to ", room,
					" as ", T.unpack nick,
					" as ", snick,
					" along with\n",
					intercalate ", " presence
					intercalate ", " (filter (/= snick) presence)
				]
		Just List -> do
			bookmarks <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (tcKey tel "bookmarks"))