From b76ded3e5ecff4b7866a3b2b4a2beffb8c9d1f04 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sun, 16 Jun 2013 22:46:18 -0400
Subject: repaired simplechat

---
 simplechat.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'simplechat.hs')

diff --git a/simplechat.hs b/simplechat.hs
index a763a982..54545b9b 100644
--- a/simplechat.hs
+++ b/simplechat.hs
@@ -18,7 +18,7 @@ import Control.Concurrent.Chan
 import Data.HList
 
 
-startCon st  = do
+startCon socket st  = do
     let chan = hOccursFst st
         nr = hOccursFst st :: ConnId
         hdl = hOccursFst st :: Handle
@@ -60,5 +60,6 @@ main = do
     doServer (5222 .*. chan .*. HNil)
              doCon
              startCon
+    getLine
 
 
-- 
cgit v1.2.3