maintain uniqueness of items in config lists

1 files changed, 10 insertions, 1 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index a7ff5e5a..bbaac97a 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -105,6 +105,15 @@ data ClientSession = ClientSession {
     presence_state :: PresenceState
 }
 
+addJid modify user jid = do
+    newitem <- parseHostNameJID jid
+    let cmp jid = do
+            -- putStrLn $ "Comparing "<++>bshow jid
+            olditem <- parseHostNameJID jid
+            if olditem==newitem then return Nothing
+                                else return $ Just jid
+    modify user cmp (Just jid)
+
 instance JabberClientSession ClientSession where
     data XMPPClass ClientSession = ClientSessions PresenceState
 
@@ -189,7 +198,7 @@ instance JabberClientSession ClientSession where
 
     addSolicited s jid = do
         user <- readIORef (unix_uid s) >>= getJabberUserForId
-        ConfigFiles.addSolicited user jid -- (L.show jid)
+        addJid ConfigFiles.modifySolicited user jid
         let rchan = rosterChannel . presence_state $ s
         atomically $ do
             isempty <- isEmptyTMVar rchan