1 files changed, 9 insertions, 3 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 369bd538..a9bd4112 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -59,7 +59,11 @@ doServer
          -> IO l)
      -> IO Socket
 -}
-doServer port g startCon = runServer2 port (runConn2 g)
+doServer port g startCon = do
+    -- doServer' AF_INET port g startCon
+    doServer' AF_INET6 port g startCon
+
+doServer' family port g startCon = runServer2 port (runConn2 g)
  where
     runConn2 g st (sock,_) = do
         h <- socketToHandle sock ReadWriteMode
@@ -80,9 +84,11 @@ doServer port g startCon = runServer2 port (runConn2 g)
       PortNumber -> (num -> (Socket, SockAddr) -> IO b -> IO b) -> IO b
     -}
     runServer2 st@(HCons port _) go = do
-        sock <- socket AF_INET Stream 0
+        sock <- socket family Stream 0
         setSocketOption sock ReuseAddr 1
-        bindSocket sock (SockAddrInet port iNADDR_ANY)
+        case family of
+          AF_INET  -> bindSocket sock (SockAddrInet port iNADDR_ANY)
+          AF_INET6 -> bindSocket sock (SockAddrInet6 port 0 iN6ADDR_ANY 8)
         listen sock 2
         forkIO $ do
             mainLoop sock (ConnId 0) go