--- a/gameServer/hedgewars-server.hs	Mon Sep 12 10:44:55 2022 -0400
+++ b/gameServer/hedgewars-server.hs	Mon Sep 12 12:50:37 2022 -0400
@@ -50,10 +50,11 @@
     proto <- getProtocolNumber "tcp"
     E.bracket
         (socket AF_INET Stream proto)
-        sClose
+        close
         (\sock -> do
             setSocketOption sock ReuseAddr 1
-            bindSocket sock (SockAddrInet (listenPort si) iNADDR_ANY)
+            iNADDR_ANY <- addrAddress . head <$> getAddrInfo Nothing (Just "0") (Just (show (listenPort si)))
+            bind sock iNADDR_ANY
             listen sock maxListenQueue
             startServer si{serverSocket = Just sock}
         )