1 files changed, 6 insertions, 1 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 55a8b57b..80a6e4ba 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -35,6 +35,11 @@ newtype ConnectionFinalizer = ConnectionFinalizer (IO ())
 
 getPacket h = do { hWaitForInput h (-1) ; fmap (fromChunks . (:[])) $ hGetNonBlocking h 1024 }
 
+newtype ServerHandle = ServerHandle Socket
+
+quitListening :: ServerHandle -> IO ()
+quitListening (ServerHandle socket) = sClose socket
+
 doServer addrfamily port g startCon = do
     doServer' addrfamily port g startCon
 
@@ -68,7 +73,7 @@ doServer' family port g startCon = runServer2 port (runConn2 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