1 files changed, 9 insertions, 2 deletions

diff --git a/Presence/ServerC.hs b/Presence/ServerC.hs
index 881ce5d2..3933c812 100644
--- a/Presence/ServerC.hs
+++ b/Presence/ServerC.hs
@@ -5,6 +5,8 @@
 module ServerC
     ( doServer
     , ConnId(..)
+    , ServerHandle
+    , quitListening
     ) where
 
 import Network.Socket as Socket
@@ -46,6 +48,11 @@ import SocketLike
 newtype ConnId = ConnId Int
   deriving Eq
 
+newtype ServerHandle = ServerHandle Socket
+
+quitListening :: ServerHandle -> IO ()
+quitListening (ServerHandle socket) = sClose socket
+
 
 data AcceptResult =
   GotConnection (Socket,SockAddr)
@@ -59,7 +66,7 @@ doServer ::
         -> Source m S.ByteString 
         -> Sink S.ByteString m ()
         -> IO ())
-    -> IO Socket
+    -> IO ServerHandle
 doServer (HCons family port) g = runServer port (runConn g)
  where
     runServer (HCons port st) go = do
@@ -72,7 +79,7 @@ doServer (HCons family port) g = runServer port (runConn g)
         forkIO $ do
             mainLoop sock (ConnId 0) go
             -- L.putStrLn $ "quit accept loop"
-        return sock
+        return (ServerHandle sock)
      where
         mainLoop sock idnum@(ConnId n) go = do
             let doException ioerror = do