From 659eb31b7a40f0aa2ba43c3454b5d9006fde837d Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Wed, 19 Aug 2020 11:53:24 +0200 Subject: NCG: Dwarf configuration * remove references to DynFlags in GHC.CmmToAsm.Dwarf * add specific Dwarf options in NCGConfig instead of directly querying the debug level --- testsuite/tests/hiefile/should_run/HieQueries.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'testsuite/tests') diff --git a/testsuite/tests/hiefile/should_run/HieQueries.hs b/testsuite/tests/hiefile/should_run/HieQueries.hs index f0b3ee5ba2..2446be5963 100644 --- a/testsuite/tests/hiefile/should_run/HieQueries.hs +++ b/testsuite/tests/hiefile/should_run/HieQueries.hs @@ -14,7 +14,7 @@ import GHC.Iface.Ext.Utils import Data.Maybe (fromJust) import GHC.Driver.Session import GHC.SysTools -import GHC.Utils.Outputable ( Outputable, renderWithStyle, ppr, defaultUserStyle, text) +import GHC.Utils.Outputable ( Outputable, renderWithContext, ppr, defaultUserStyle, text) import qualified Data.Map as M import Data.Foldable @@ -78,5 +78,5 @@ explainEv df hf refmap point = do pretty = unlines . (++["└"]) . ("┌":) . map ("│ "++) . lines - pprint = pretty . renderWithStyle (initSDocContext df sty) . ppr + pprint = pretty . renderWithContext (initSDocContext df sty) . ppr sty = defaultUserStyle -- cgit v1.2.1