--- a/gameServer/HWProtoCore.hs	Fri Oct 06 22:37:44 2023 +0200
+++ b/gameServer/HWProtoCore.hs	Wed Jan 10 20:54:29 2024 +0100
@@ -19,6 +19,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module HWProtoCore where
 
+import Control.Monad
 import Control.Monad.Reader
 import Data.Maybe
 import qualified Data.ByteString.Char8 as B