diff options
| author | Alfredo Di Napoli <alfredo@well-typed.com> | 2021-04-19 14:29:18 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-26 16:03:15 -0400 |
| commit | cdbce8fc22448837e53515946f16e9571e06f412 (patch) | |
| tree | a07372a960e55eaeff036ed717272b47f821711b /testsuite/tests/regalloc | |
| parent | 2023b344a7567492881745609c494a9427dc8c30 (diff) | |
| download | haskell-cdbce8fc22448837e53515946f16e9571e06f412.tar.gz | |
Support new parser types in GHC
This commit converts the lexers and all the parser machinery to use the
new parser types and diagnostics infrastructure. Furthermore, it cleans
up the way the parser code was emitting hints.
As a result of this systematic approach, the test output of the
`InfixAppPatErr` and `T984` tests have been changed. Previously they
would emit a `SuggestMissingDo` hint, but this was not at all helpful in
resolving the error, and it was even confusing by just looking at the
original program that triggered the errors.
Update haddock submodule
Diffstat (limited to 'testsuite/tests/regalloc')
| -rw-r--r-- | testsuite/tests/regalloc/regalloc_unit_tests.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/testsuite/tests/regalloc/regalloc_unit_tests.hs b/testsuite/tests/regalloc/regalloc_unit_tests.hs index 4e84261264..f68cd040df 100644 --- a/testsuite/tests/regalloc/regalloc_unit_tests.hs +++ b/testsuite/tests/regalloc/regalloc_unit_tests.hs @@ -120,11 +120,9 @@ compileCmmForRegAllocStats logger dflags' cmmFile ncgImplF us = do -- parse the cmm file and output any warnings or errors let fake_mod = mkHomeModule (hsc_home_unit hscEnv) (mkModuleName "fake") (warnings, errors, parsedCmm) <- parseCmmFile dflags fake_mod (hsc_home_unit hscEnv) cmmFile - let warningMsgs = fmap (mkParserWarn dflags') warnings - errorMsgs = fmap mkParserErr errors -- print parser errors or warnings - mapM_ (printMessages logger dflags . mkMessages) [warningMsgs, errorMsgs] + mapM_ (printMessages logger dflags) [warnings, errors] let initTopSRT = emptySRT thisMod cmmGroup <- fmap snd $ cmmPipeline hscEnv initTopSRT $ fst $ fromJust parsedCmm |