--- a/gameServer/hedgewars-server.hs	Tue Jul 07 00:17:05 2020 +0200
+++ b/gameServer/hedgewars-server.hs	Wed Jul 08 17:02:45 2020 +0300
@@ -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}
         )