--- a/gameServer/NetRoutines.hs	Tue May 04 21:30:25 2010 +0000
+++ b/gameServer/NetRoutines.hs	Wed May 05 08:01:37 2010 +0000
@@ -26,7 +26,7 @@
         clientHost <- sockAddr2String sockAddr
 
         currentTime <- getCurrentTime
-        
+
         sendChan <- newChan
 
         let newClient =
@@ -50,9 +50,6 @@
                     )
 
         writeChan coreChan $ Accept newClient
-
-        forkIO $ clientRecvLoop cHandle coreChan nextID
-        forkIO $ clientSendLoop cHandle coreChan sendChan nextID
         return ()
 
     acceptLoop servSock coreChan nextID