more linting and adding Log module

src-client/Client/Types.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE StrictData #-}
 module Client.Types where
 
 import qualified Control.Concurrent.STM as STM

src-lib/Library/Types/Communication.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
 module Library.Types.Communication where
 
 import Data.Aeson

src-server/Server/Log.hs

@@ -0,0 +1,29 @@
+module Server.Log where
+
+import Control.Monad (when)
+
+import Control.Monad.RWS (asks, MonadIO (liftIO))
+
+import Debug.Trace
+
+-- internal imports
+
+import Server.Types (LogLevel, Game, ReaderContainer (rcLogLevel))
+
+logPrint
+  :: LogLevel
+  -> String
+  -> Game ()
+logPrint level msg = do
+  curLevel <- asks rcLogLevel
+  when (level <= curLevel) $
+    liftIO $ traceIO $ show level <> ": " <> msg
+
+logPrintIO
+  :: LogLevel
+  -> LogLevel
+  -> String
+  -> IO ()
+logPrintIO curLevel level msg = do
+  when (level <= curLevel) $
+    liftIO $ traceIO $ show level <> ": " <> msg