diff --git a/chat.hs b/chat.hs
index b3837d4..d92ef01 100644
--- a/chat.hs
+++ b/chat.hs
@@ -12,7 +12,7 @@ main = do
   index <- newTVarIO []
   sock <- socket AF_INET Stream 0
   setSocketOption sock ReuseAddr 1
-  bindSocket sock (SockAddrInet 5999 iNADDR_ANY)
+  bind sock (SockAddrInet 5999 iNADDR_ANY)
   listen sock 2
   mainLoop index sock 0