--- a/gameServer/NetRoutines.hs Sat Mar 05 22:16:29 2011 +0300 +++ b/gameServer/NetRoutines.hs Sat Mar 05 22:23:14 2011 +0300 @@ -44,7 +44,7 @@ False False Nothing - undefined + 0 ) writeChan chan $ Accept newClient