Started conduits-based XMPP module (will replace XMPPServer)

1 files changed, 7 insertions, 0 deletions

diff --git a/Presence/ServerC.hs b/Presence/ServerC.hs
index 3933c812..36e2d7bf 100644
--- a/Presence/ServerC.hs
+++ b/Presence/ServerC.hs
@@ -7,6 +7,7 @@ module ServerC
     , ConnId(..)
     , ServerHandle
     , quitListening
+    , dummyServerHandle
     ) where
 
 import Network.Socket as Socket
@@ -39,6 +40,7 @@ import Control.Monad.Trans.Class (lift)
 import Control.Monad.IO.Class (MonadIO (liftIO))
 import qualified Data.ByteString as S (ByteString)
 import System.IO (Handle)
+import Control.Concurrent.MVar (newMVar)
 
 import ByteStringOperators
 import SocketLike
@@ -50,6 +52,11 @@ newtype ConnId = ConnId Int
 
 newtype ServerHandle = ServerHandle Socket
 
+dummyServerHandle = do
+    mvar <- newMVar Closed
+    let sock = MkSocket 0 AF_UNSPEC NoSocketType 0 mvar
+    return (ServerHandle sock)
+
 quitListening :: ServerHandle -> IO ()
 quitListening (ServerHandle socket) = sClose socket