quiet debug prints

1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index a9bd4112..b611fae8 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -60,8 +60,8 @@ doServer
      -> IO Socket
 -}
 doServer port g startCon = do
-    -- doServer' AF_INET port g startCon
     doServer' AF_INET6 port g startCon
+    -- doServer' AF_INET port g startCon
 
 doServer' family port g startCon = runServer2 port (runConn2 g)
  where
@@ -88,7 +88,7 @@ doServer' family port g startCon = runServer2 port (runConn2 g)
         setSocketOption sock ReuseAddr 1
         case family of
           AF_INET  -> bindSocket sock (SockAddrInet port iNADDR_ANY)
-          AF_INET6 -> bindSocket sock (SockAddrInet6 port 0 iN6ADDR_ANY 8)
+          AF_INET6 -> bindSocket sock (SockAddrInet6 port 0 iN6ADDR_ANY 0)
         listen sock 2
         forkIO $ do
             mainLoop sock (ConnId 0) go