From ffd9ca70c3d4e886e26c8ed96800f384eeb3caae Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sun, 14 Feb 2016 15:09:22 -0500 Subject: [PATCH] Responding to probes instead of broadcasts I think this is what we're actually supposed to do. --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index e5d85b0..e860afa 100644 --- a/Main.hs +++ b/Main.hs @@ -531,8 +531,8 @@ componentStanza _ _ toComponent _ (ReceivedPresence (Presence { presenceType = P presenceTo = Just from, presenceFrom = Just to } -componentStanza _ _ toComponent _ (ReceivedPresence (Presence { presenceType = PresenceAvailable, presenceFrom = Just from, presenceTo = Just to@JID { jidNode = Nothing } })) = do - log "AVAILABLE, SO ARE WE" (from, to) +componentStanza _ _ toComponent _ (ReceivedPresence (Presence { presenceType = PresenceProbe, presenceFrom = Just from, presenceTo = Just to@JID { jidNode = Nothing } })) = do + log "RESPOND TO PROBES" (from, to) writeStanzaChan toComponent $ (emptyPresence PresenceAvailable) { presenceTo = Just from, presenceFrom = Just to, -- 2.38.4