diff options
author | Bodigrim <andrew.lelechenko@gmail.com> | 2022-11-21 02:11:40 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-12-08 22:46:47 -0500 |
commit | 3807a46c6ee6b3ae52b888c4add6416f0d381e87 (patch) | |
tree | 00deaf26f2e47043ddc6f5671a8348f61e78c57a | |
parent | 08d8fe2a6878fc27a49d4c3fea97dd34b9c06350 (diff) | |
download | haskell-3807a46c6ee6b3ae52b888c4add6416f0d381e87.tar.gz |
Support mtl-2.3 in check-exact
-rw-r--r-- | utils/check-exact/ExactPrint.hs | 6 | ||||
-rw-r--r-- | utils/check-exact/Parsers.hs | 2 | ||||
-rw-r--r-- | utils/check-exact/Utils.hs | 3 |
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) |