repaired simplechat

1 files changed, 2 insertions, 1 deletions

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