From ff0835842b1771decdffc0369c4683e359df2785 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Fri, 17 Mar 2023 22:16:14 -0500 Subject: [PATCH] Respond to group text porcelein presence probes first --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index d9d7363..36c90ca 100644 --- a/Main.hs +++ b/Main.hs @@ -789,11 +789,11 @@ componentStanza (ComponentContext { db, componentJid, sendIQ, maybeAvatar }) (Re messageFrom = Just to, messagePayloads = [payload] }) . avatarMetadata) (justZ maybeAvatar) -componentStanza (ComponentContext { db, smsJid = (Just smsJid), componentJid }) (ReceivedPresence (Presence { presenceType = PresenceProbe, presenceFrom = Just from, presenceTo = Just to@JID { jidNode = Just _ } })) = do - routeDiscoOrReply db componentJid from smsJid "CHEOGRAM%query-then-send-presence" Nothing $ telAvailable to from [] componentStanza _ (ReceivedPresence (Presence { presenceType = PresenceProbe, presenceFrom = Just from, presenceTo = Just to@JID { jidNode = Just node } })) | Just multipleTo <- mapM localpartToURI (T.split (==',') $ strNode node) = do return $ [mkStanzaRec $ telAvailable to from []] +componentStanza (ComponentContext { db, smsJid = (Just smsJid), componentJid }) (ReceivedPresence (Presence { presenceType = PresenceProbe, presenceFrom = Just from, presenceTo = Just to@JID { jidNode = Just _ } })) = do + routeDiscoOrReply db componentJid from smsJid "CHEOGRAM%query-then-send-presence" Nothing $ telAvailable to from [] componentStanza (ComponentContext { maybeAvatar = Just (Avatar hash _ b64) }) (ReceivedIQ (iq@IQ { iqType = IQGet, iqTo = Just to@JID { jidNode = Nothing }, iqFrom = Just from, iqID = Just id, iqPayload = Just p })) | [items] <- isNamed (s"{http://jabber.org/protocol/pubsub}items") =<< elementChildren =<< -- 2.38.5