From 61e76eb99c74aa4c0769e2fe7f280b9a4530171d Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 27 Jun 2013 22:06:31 -0400 Subject: Converted to SocketLike and quitListening interfaces. Paving the way for conversion to conduits-based server over HaXml. --- Presence/XMPPServer.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Presence/XMPPServer.hs') 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() -- cgit v1.2.3