@ -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