~singpolyma/cheogram

bdf0f4379e83781f68c63885857609407d309ede — Stephen Paul Weber 8 years ago ec22539
hlint
1 files changed, 3 insertions(+), 3 deletions(-)

M Main.hs
M Main.hs => Main.hs +3 -3
@@ 569,7 569,7 @@ createRoom _ _ [] _ _ = return False
mucShortMatch tel short muc =
	node == short || T.stripSuffix (fromString "_" <> tel) node == Just short
	where
	node = fromMaybe mempty $ fmap strNode (jidNode =<< parseJID muc)
	node = maybe mempty strNode (jidNode =<< parseJID muc)

processSMS db toVitelity toComponent componentHost conferenceServers tel txt = do
	nick <- maybe tel fromString <$> TC.runTCM (TC.get db $ tcKey tel "nick")


@@ 592,8 592,8 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d
			leaveRoom db toComponent componentHost tel "Joined a different room."
			bookmarks <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (tcKey tel "bookmarks"))
			joinRoom db toComponent componentHost tel $
				fromMaybe room $ parseJID =<< (fmap (<> fromString "/" <> nick) $
				find (mucShortMatch tel (strDomain $ jidDomain room)) bookmarks)
				fromMaybe room $ parseJID =<< fmap (<> fromString "/" <> nick)
				(find (mucShortMatch tel (strDomain $ jidDomain room)) bookmarks)
		Just Leave -> leaveRoom db toComponent componentHost tel "Typed /leave"
		Just Who -> do
			let snick = T.unpack nick