summaryrefslogtreecommitdiff
path: root/Presence
diff options
context:
space:
mode:
Diffstat (limited to 'Presence')
-rw-r--r--Presence/XMPPTypes.hs3
-rw-r--r--Presence/main.hs3
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
50 peerSessionFactory :: session -> XMPPPeerClass session 50 peerSessionFactory :: session -> XMPPPeerClass session
51 getBuddies :: XMPPPeerClass session -> ByteString -> IO [ByteString] 51 getBuddies :: XMPPPeerClass session -> ByteString -> IO [ByteString]
52 getSubscribers :: XMPPPeerClass session -> ByteString -> IO [ByteString] 52 getSubscribers :: XMPPPeerClass session -> ByteString -> IO [ByteString]
53 getOthers :: XMPPPeerClass session -> ByteString -> IO [ByteString]
54 getPending :: XMPPPeerClass session -> ByteString -> IO [ByteString]
55 getSolicited :: XMPPPeerClass session -> ByteString -> IO [ByteString]
53 56
54-- | Jabber ID (JID) datatype 57-- | Jabber ID (JID) datatype
55data JID = JID { name :: Maybe ByteString 58data 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
229 229
230 getBuddies _ user = ConfigFiles.getBuddies user 230 getBuddies _ user = ConfigFiles.getBuddies user
231 getSubscribers _ user = ConfigFiles.getSubscribers user 231 getSubscribers _ user = ConfigFiles.getSubscribers user
232 getOthers _ user = ConfigFiles.getOthers user
233 getPending _ user = ConfigFiles.getPending user
234 getSolicited _ user = ConfigFiles.getSolicited user
232 235
233 236
234subscribeToChan tmvar = 237subscribeToChan tmvar =