--- a/gameServer/Votes.hs	Wed Aug 28 15:31:51 2024 +0200
+++ b/gameServer/Votes.hs	Wed Aug 28 15:34:49 2024 +0200
@@ -19,6 +19,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Votes where
 
+import Control.Monad
 import Control.Monad.Reader
 import Control.Monad.State.Strict
 import ServerState