diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2022-02-06 07:59:19 +0000 |
|---|---|---|
| committer | John Ericson <John.Ericson@Obsidian.Systems> | 2022-06-07 05:06:38 +0000 |
| commit | a1651a3afab9b195440436432385d839abb7d389 (patch) | |
| tree | 2ac9b0b97c663459ae1d4b259c7aee0813642e2c /testsuite/tests/callarity | |
| parent | a7fece19cb56b6aa3ae7f81d1a34276ad55fdf2a (diff) | |
| download | haskell-a1651a3afab9b195440436432385d839abb7d389.tar.gz | |
Core.Lint: Reduce `DynFlags` and `HscEnv`wip/no-state-core-lint
Co-Authored-By: Andre Marianiello <andremarianiello@users.noreply.github.com>
Diffstat (limited to 'testsuite/tests/callarity')
| -rw-r--r-- | testsuite/tests/callarity/unittest/CallArity1.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/callarity/unittest/CallArity1.hs b/testsuite/tests/callarity/unittest/CallArity1.hs index 7f51426823..462bdd144d 100644 --- a/testsuite/tests/callarity/unittest/CallArity1.hs +++ b/testsuite/tests/callarity/unittest/CallArity1.hs @@ -8,6 +8,7 @@ import GHC.Core.Make import GHC.Core.Opt.CallArity (callArityRHS) import GHC.Types.Id.Make import GHC.SysTools +import GHC.Driver.Config.Core.Lint import GHC.Driver.Session import GHC.Utils.Error import GHC.Utils.Outputable as Outputable @@ -172,7 +173,7 @@ main = do dflags <- getSessionDynFlags logger <- getLogger liftIO $ forM_ exprs $ \(n,e) -> do - case lintExpr dflags [f,scrutf,scruta] e of + case lintExpr (initLintConfig dflags [f,scrutf,scruta]) e of Just errs -> putMsg logger (pprMessageBag errs $$ text "in" <+> text n) Nothing -> return () putMsg logger (text n Outputable.<> char ':') |