--- a/gameServer/ClientIO.hs	Mon Sep 12 10:44:55 2022 -0400
+++ b/gameServer/ClientIO.hs	Mon Sep 12 12:50:37 2022 -0400
@@ -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