syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update for newer Network.Socket versions

This commit is contained in:
Tony Garnock-Jones 2017-05-12 16:11:17 -04:00
parent 999280176b
commit daa5336bb2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
chat.hs
View File

@ -12,7 +12,7 @@ main = do
index <- newTVarIO [] index <- newTVarIO []
sock <- socket AF_INET Stream 0 sock <- socket AF_INET Stream 0
setSocketOption sock ReuseAddr 1 setSocketOption sock ReuseAddr 1
bindSocket sock (SockAddrInet 5999 iNADDR_ANY) bind sock (SockAddrInet 5999 iNADDR_ANY)
listen sock 2 listen sock 2
mainLoop index sock 0 mainLoop index sock 0