Started conduits-based XMPP module (will replace XMPPServer)

1 files changed, 36 insertions, 0 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
new file mode 100644
index 00000000..f361641e
--- /dev/null
+++ b/Presence/XMPP.hs
@@ -0,0 +1,36 @@
+{-# LANGUAGE FlexibleContexts #-}
+module XMPP 
+    ( module XMPP
+    , module XMPPTypes
+    , quitListening
+    )  where
+
+import ServerC
+import XMPPTypes
+
+import Data.HList
+import Network.Socket (Family)
+import Network.BSD (PortNumber)
+import Control.Concurrent.STM
+
+listenForXmppClients
+  :: (HList t1, HExtend e l (HCons PortNumber t1), XMPPSession t) =>
+     Family -> XMPPClass t -> e -> l -> IO ServerHandle
+listenForXmppClients addr_family session_factory port st = do
+    putStrLn "unimplemented: listenForXmppClients"
+    dummyServerHandle
+    -- TODO
+
+listenForRemotePeers
+  :: (HList t1, HExtend e l (HCons PortNumber t1), XMPPSession t) =>
+     Family -> XMPPClass t -> e -> l -> IO ServerHandle
+listenForRemotePeers addrfamily session_factory port st = do
+    putStrLn "unimplemented: listenForRemotePeers"
+    dummyServerHandle
+    -- TODO
+
+seekRemotePeers :: XMPPConfig config =>
+     config -> TChan Presence -> IO ()
+seekRemotePeers config chan = do
+    putStrLn "unimplemented: seekRemotePeers"
+    return ()