Support mtl-2.3 in check-exact

3 files changed, 7 insertions, 4 deletions

diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs
index 19548f58ab..52fb4136ec 100644
--- a/utils/check-exact/ExactPrint.hs
+++ b/utils/check-exact/ExactPrint.hs
@@ -50,9 +50,11 @@ import GHC.Utils.Panic
 
 import Language.Haskell.Syntax.Basic (FieldLabelString(..))
 
-import Control.Monad.Identity
+import Control.Monad (forM, when, unless)
+import Control.Monad.Identity (Identity(..))
 import qualified Control.Monad.Reader as Reader
-import Control.Monad.RWS
+import Control.Monad.RWS (MonadReader, RWST, evalRWST, tell, modify, get, gets, ask)
+import Control.Monad.Trans (lift)
 import Data.Data ( Data )
 import Data.Dynamic
 import Data.Foldable
diff --git a/utils/check-exact/Parsers.hs b/utils/check-exact/Parsers.hs
index 695f7f2310..8bcc26a90d 100644
--- a/utils/check-exact/Parsers.hs
+++ b/utils/check-exact/Parsers.hs
@@ -47,7 +47,7 @@ module Parsers (
 
 import Preprocess
 
-import Control.Monad.RWS
+import Data.Functor (void)
 
 import qualified GHC hiding (parseModule)
 import qualified Control.Monad.IO.Class as GHC
diff --git a/utils/check-exact/Utils.hs b/utils/check-exact/Utils.hs
index ae98e7bf29..91d9cd5827 100644
--- a/utils/check-exact/Utils.hs
+++ b/utils/check-exact/Utils.hs
@@ -18,7 +18,8 @@ module Utils
   -- , isGoodDelta
   -- ) where
   where
-import Control.Monad.State
+
+import Control.Monad (when)
 import Data.Function
 import Data.Maybe (isJust)
 import Data.Ord (comparing)