From 1923a8a4ea3a1bcb55f194ff226359ea492b419a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 21 Feb 2024 22:10:39 +0100
Subject: Update to support mtl-2.3

---
 erebos-tester.cabal     | 2 +-
 src/GDB.hs              | 1 +
 src/Network/Ip.hs       | 1 +
 src/Output.hs           | 1 +
 src/Parser/Core.hs      | 2 +-
 src/Parser/Expr.hs      | 2 +-
 src/Parser/Statement.hs | 1 +
 src/Process.hs          | 1 +
 8 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/erebos-tester.cabal b/erebos-tester.cabal
index 659333c..0ea71e2 100644
--- a/erebos-tester.cabal
+++ b/erebos-tester.cabal
@@ -90,7 +90,7 @@ executable erebos-tester-core
                        HsYAML           >=0.2 && <0.3,
                        lens             >=5.0 && <5.3,
                        megaparsec       >=9.0 && <10,
-                       mtl ^>=2.2.2,
+                       mtl              >=2.2 && <2.4,
                        parser-combinators >=1.3 && <1.4,
                        process ^>=1.6.9,
                        regex-tdfa ^>=1.3.1.0,
diff --git a/src/GDB.hs b/src/GDB.hs
index e73a049..2862065 100644
--- a/src/GDB.hs
+++ b/src/GDB.hs
@@ -7,6 +7,7 @@ module GDB (
 
 import Control.Concurrent
 import Control.Concurrent.STM
+import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Identity
 import Control.Monad.Reader
diff --git a/src/Network/Ip.hs b/src/Network/Ip.hs
index ae8a2d2..8f0887a 100644
--- a/src/Network/Ip.hs
+++ b/src/Network/Ip.hs
@@ -33,6 +33,7 @@ module Network.Ip (
 ) where
 
 import Control.Concurrent.STM
+import Control.Monad
 import Control.Monad.Writer
 
 import Data.Function
diff --git a/src/Output.hs b/src/Output.hs
index 7f9341b..96bb965 100644
--- a/src/Output.hs
+++ b/src/Output.hs
@@ -8,6 +8,7 @@ module Output (
 ) where
 
 import Control.Concurrent.MVar
+import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Reader
 
diff --git a/src/Parser/Core.hs b/src/Parser/Core.hs
index 1bbdd8f..da93905 100644
--- a/src/Parser/Core.hs
+++ b/src/Parser/Core.hs
@@ -1,6 +1,6 @@
 module Parser.Core where
 
-import Control.Monad.Identity
+import Control.Monad
 import Control.Monad.State
 
 import Data.Text (Text)
diff --git a/src/Parser/Expr.hs b/src/Parser/Expr.hs
index 70649b2..894856e 100644
--- a/src/Parser/Expr.hs
+++ b/src/Parser/Expr.hs
@@ -9,7 +9,7 @@ module Parser.Expr (
 
 import Control.Applicative (liftA2)
 import Control.Monad.Combinators.Expr
-import Control.Monad.Identity
+import Control.Monad
 import Control.Monad.State
 
 import Data.Char
diff --git a/src/Parser/Statement.hs b/src/Parser/Statement.hs
index 732f417..eef0848 100644
--- a/src/Parser/Statement.hs
+++ b/src/Parser/Statement.hs
@@ -2,6 +2,7 @@ module Parser.Statement (
     testStep,
 ) where
 
+import Control.Monad
 import Control.Monad.Identity
 import Control.Monad.State
 
diff --git a/src/Process.hs b/src/Process.hs
index fc8a719..d048792 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -13,6 +13,7 @@ module Process (
 import Control.Arrow
 import Control.Concurrent
 import Control.Concurrent.STM
+import Control.Monad
 import Control.Monad.Except
 import Control.Monad.Reader
 
-- 
cgit v1.2.3