Update for newer Network.Socket versions

2017-05-12 16:11:17 -04:00 · 2017-05-12 16:11:17 -04:00 · daa5336bb2
parent 999280176b
commit daa5336bb2
1 changed files with 1 additions and 1 deletions
--- 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