diff options
Diffstat (limited to 'Presence')
-rw-r--r-- | Presence/XMPPTypes.hs | 3 | ||||
-rw-r--r-- | Presence/main.hs | 3 |
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 |
55 | data JID = JID { name :: Maybe ByteString | 58 | 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 | |||
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 | ||
234 | subscribeToChan tmvar = | 237 | subscribeToChan tmvar = |