Converted to SocketLike and quitListening interfaces.

Paving the way for conversion to conduits-based server over HaXml.

1 files changed, 4 insertions, 1 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 7ed16f6b..e8ab5490 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -4,7 +4,10 @@
 {-# LANGUAGE TupleSections       #-}
 {-# LANGUAGE TypeFamilies        #-}
 -- {-# LANGUAGE GADTs               #-}
-module XMPPServer where -- ( listenForXmppClients ) where
+module XMPPServer 
+    ( module XMPPServer
+    , quitListening 
+    )  where
 
 import Data.Char (isSpace)
 import Data.HList.TypeEqGeneric1()