~singpolyma/cheogram

9a5533c21327152ba2dcb9765924c5037f8f3af4 — Stephen Paul Weber 8 years ago c2f3ab8
Send "failed to join" message on MUC join error of any kind
1 files changed, 4 insertions(+), 0 deletions(-)

M Main.hs
M Main.hs => Main.hs +4 -0
@@ 206,6 206,10 @@ componentStanza db toVitelity toComponent componentHost (ReceivedMessage (m@Mess
		}
	where
	resourceFrom = strResource <$> jidResource from
componentStanza _ toVitelity _ _ (ReceivedPresence p@(Presence { presenceType = PresenceError, presenceFrom = Just from, presenceTo = Just to }))
	| Just tel <- strNode <$> jidNode to,
	  [_] <- isNamed (fromString "{http://jabber.org/protocol/muc}x") =<< presencePayloads p =
		writeStanzaChan toVitelity $ mkSMS tel (fromString "* Failed to join " <> bareTxt from)
componentStanza db toVitelity toComponent _ (ReceivedPresence p@(Presence { presenceType = PresenceAvailable, presenceFrom = Just from, presenceTo = Just to }))
	| Just tel <- strNode <$> jidNode to,
	  [x] <- isNamed (fromString "{http://jabber.org/protocol/muc#user}x") =<< presencePayloads p,