diff options
-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) |