From 69eb10f30b100d528812a9ebfa27f920a21a76d6 Mon Sep 17 00:00:00 2001
From: Ben Millwood <thebenmachine+git@gmail.com>
Date: Tue, 18 Jun 2024 18:48:24 +0100
Subject: [PATCH] compilation fixes

---
 Interact.hs       | 1 +
 InteractUtil.hs   | 1 +
 MainState.hs      | 1 +
 Physics.hs        | 1 +
 SDLUI.hs          | 9 +++++----
 SDLUIMInstance.hs | 1 +
 6 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Interact.hs b/Interact.hs
index 92b5120..1716c4e 100644
--- a/Interact.hs
+++ b/Interact.hs
@@ -16,6 +16,7 @@ module Interact (interactUI) where
 import           Control.Applicative
 import           Control.Concurrent
 import           Control.Concurrent.STM
+import           Control.Monad
 import           Control.Monad.Catch
 import           Control.Monad.State
 import           Control.Monad.Trans.Except
diff --git a/InteractUtil.hs b/InteractUtil.hs
index b771dd3..7ebff30 100644
--- a/InteractUtil.hs
+++ b/InteractUtil.hs
@@ -11,6 +11,7 @@
 module InteractUtil where
 
 import           Control.Applicative
+import           Control.Monad
 import           Control.Monad.State
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Writer
diff --git a/MainState.hs b/MainState.hs
index d96c687..4571fb0 100644
--- a/MainState.hs
+++ b/MainState.hs
@@ -15,6 +15,7 @@ module MainState where
 import           Control.Applicative
 import           Control.Concurrent
 import           Control.Concurrent.STM
+import           Control.Monad
 import           Control.Monad.State
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Writer
diff --git a/Physics.hs b/Physics.hs
index ba37a9c..d76467a 100644
--- a/Physics.hs
+++ b/Physics.hs
@@ -14,6 +14,7 @@ import           Control.Monad.State
 import           Control.Monad.Writer
 import           Data.Foldable        (foldrM)
 import           Data.List
+import           Data.Monoid          (Any (Any, getAny))
 import           Data.Set             (Set)
 import qualified Data.Set             as Set
 import           Data.Vector          (Vector, (!), (//))
diff --git a/SDLUI.hs b/SDLUI.hs
index 6445772..edbaae4 100644
--- a/SDLUI.hs
+++ b/SDLUI.hs
@@ -8,16 +8,17 @@
 -- You should have received a copy of the GNU General Public License
 -- along with this program.  If not, see http://www.gnu.org/licenses/.
 
-{-# LANGUAGE CPP           #-}
-{-# LANGUAGE LambdaCase    #-}
-{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE CPP              #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE LambdaCase       #-}
+{-# LANGUAGE TupleSections    #-}
 
 module SDLUI where
 
 import           Control.Applicative
 import           Control.Arrow
 import           Control.Concurrent.STM
-import           Control.Monad              ((<=<))
+import           Control.Monad
 import           Control.Monad.State
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Trans.Reader
diff --git a/SDLUIMInstance.hs b/SDLUIMInstance.hs
index f1bb948..ffa4682 100644
--- a/SDLUIMInstance.hs
+++ b/SDLUIMInstance.hs
@@ -16,6 +16,7 @@ module SDLUIMInstance () where
 import           Control.Applicative
 import           Control.Concurrent         (threadDelay)
 import           Control.Concurrent.STM
+import           Control.Monad
 import           Control.Monad.State
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Trans.Reader
-- 
2.11.4.GIT