diff options
Diffstat (limited to 'Presence/Server.hs')
-rw-r--r-- | Presence/Server.hs | 4 |
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 | |||
60 | -> IO Socket | 60 | -> IO Socket |
61 | -} | 61 | -} |
62 | doServer port g startCon = do | 62 | doServer port g startCon = do |
63 | -- doServer' AF_INET port g startCon | ||
64 | doServer' AF_INET6 port g startCon | 63 | doServer' AF_INET6 port g startCon |
64 | -- doServer' AF_INET port g startCon | ||
65 | 65 | ||
66 | doServer' family port g startCon = runServer2 port (runConn2 g) | 66 | doServer' family port g startCon = runServer2 port (runConn2 g) |
67 | where | 67 | where |
@@ -88,7 +88,7 @@ doServer' family port g startCon = runServer2 port (runConn2 g) | |||
88 | setSocketOption sock ReuseAddr 1 | 88 | setSocketOption sock ReuseAddr 1 |
89 | case family of | 89 | case family of |
90 | AF_INET -> bindSocket sock (SockAddrInet port iNADDR_ANY) | 90 | AF_INET -> bindSocket sock (SockAddrInet port iNADDR_ANY) |
91 | AF_INET6 -> bindSocket sock (SockAddrInet6 port 0 iN6ADDR_ANY 8) | 91 | AF_INET6 -> bindSocket sock (SockAddrInet6 port 0 iN6ADDR_ANY 0) |
92 | listen sock 2 | 92 | listen sock 2 |
93 | forkIO $ do | 93 | forkIO $ do |
94 | mainLoop sock (ConnId 0) go | 94 | mainLoop sock (ConnId 0) go |