--- a/gameServer/ClientIO.hs	Tue Jul 07 00:17:05 2020 +0200
+++ b/gameServer/ClientIO.hs	Wed Jul 08 17:02:45 2020 +0300
@@ -23,7 +23,7 @@
 import Control.Monad.State
 import Control.Concurrent.Chan
 import Control.Concurrent
-import Network
+import Network.Socket hiding (recv)
 import Network.Socket.ByteString
 import qualified Data.ByteString.Char8 as B
 ----------------
@@ -90,7 +90,7 @@
             sendAll s $ B.unlines answer `B.snoc` '\n'
 
     if isQuit answer then
-        sClose s
+        close s
         else
         clientSendLoop s tId chan ci