From daa5336bb2cc5bb76b43365dac6808ae35dc8e77 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Fri, 12 May 2017 16:11:17 -0400
Subject: [PATCH] Update for newer Network.Socket versions

---
 chat.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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