diff options
Diffstat (limited to 'testsuite/tests/regalloc/regalloc_unit_tests.hs')
| -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 |