diff -r acfa0869b579 -r 9d4ba1912e71 gameServer/OfficialServer/checker.hs --- a/gameServer/OfficialServer/checker.hs Mon Sep 12 10:44:55 2022 -0400 +++ b/gameServer/OfficialServer/checker.hs Mon Sep 12 12:50:37 2022 -0400 @@ -28,8 +28,7 @@ import Control.Monad.State import Control.Concurrent.Chan import Control.Concurrent -import Network -import Network.BSD +import Network.BSD hiding (recv) import Network.Socket hiding (recv, sClose) import Network.Socket.ByteString import qualified Data.ByteString.Char8 as B @@ -207,7 +206,7 @@ Exception.bracket setupConnection - (\s -> noticeM "Core" "Shutting down" >> sClose s) + (\s -> noticeM "Core" "Shutting down" >> close s) (session login password (d ++ "/.hedgewars") exeFullname dataPrefix) where setupConnection = do