Made three new config lists available to XMPP module.

2 files changed, 6 insertions, 0 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 6fc3e2ec..c6925aa4 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -50,6 +50,9 @@ class JabberPeerSession session where
     peerSessionFactory :: session -> XMPPPeerClass session
     getBuddies       :: XMPPPeerClass session -> ByteString -> IO [ByteString]
     getSubscribers   :: XMPPPeerClass session -> ByteString -> IO [ByteString]
+    getOthers        :: XMPPPeerClass session -> ByteString -> IO [ByteString]
+    getPending       :: XMPPPeerClass session -> ByteString -> IO [ByteString]
+    getSolicited     :: XMPPPeerClass session -> ByteString -> IO [ByteString]
 
 -- | Jabber ID (JID) datatype
 data JID = JID { name :: Maybe ByteString
diff --git a/Presence/main.hs b/Presence/main.hs
index cd7d7898..25ac994b 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -229,6 +229,9 @@ instance JabberPeerSession PeerSession where
 
     getBuddies     _ user = ConfigFiles.getBuddies user
     getSubscribers _ user = ConfigFiles.getSubscribers user
+    getOthers      _ user = ConfigFiles.getOthers user
+    getPending     _ user = ConfigFiles.getPending user
+    getSolicited   _ user = ConfigFiles.getSolicited user
 
 
 subscribeToChan tmvar =