--- a/gameServer/NetRoutines.hs	Sat Jun 05 20:49:51 2010 +0000
+++ b/gameServer/NetRoutines.hs	Sun Jun 06 15:29:33 2010 +0000
@@ -1,4 +1,4 @@
-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}
 module NetRoutines where
 
 import Network.Socket
@@ -18,8 +18,6 @@
         do
         (sock, sockAddr) <- Network.Socket.accept servSock
 
-        cHandle <- socketToHandle sock ReadWriteMode
-        hSetBuffering cHandle LineBuffering
         clientHost <- sockAddr2String sockAddr
 
         currentTime <- getCurrentTime
@@ -29,7 +27,7 @@
         let newClient =
                 (ClientInfo
                     sendChan'
-                    cHandle
+                    sock
                     clientHost
                     currentTime
                     ""