diff -r f681c3f2eeba -r 27eb5abd5058 gameServer/OfficialServer/checker.hs --- a/gameServer/OfficialServer/checker.hs Tue Jul 07 00:17:05 2020 +0200 +++ b/gameServer/OfficialServer/checker.hs Wed Jul 08 17:02:45 2020 +0300 @@ -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