From a7dfe72ff378acbfc6522726f513cf1eda6df5c1 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sat, 14 Aug 2021 21:30:19 -0500 Subject: [PATCH] Fix <> caused by accidental name shadowing --- Session.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Session.hs b/Session.hs index 78a1ef9..1b8bced 100644 --- a/Session.hs +++ b/Session.hs @@ -21,13 +21,13 @@ cleanOld config source = do forM_ old $ \(muc, nick, source_nick, count) -> let Just target = XMPP.parseJID $ muc ++ s"/" ++ nick - Just source = XMPP.parseJID $ bareTxt source ++ s"/" ++ source_nick + Just source' = XMPP.parseJID $ bareTxt source ++ s"/" ++ source_nick in - if count > (1::Int) then - mkSession config XMPP.PresenceUnavailable (Just source) target - else + if count > (1::Int) then do + mkSession config XMPP.PresenceUnavailable (Just source') target + else do sendPresence config ((XMPP.emptyPresence XMPP.PresenceUnavailable) { - XMPP.presenceFrom = Just source + XMPP.presenceFrom = Just source' }) target mkSession :: (MonadIO m) => -- 2.38.5