From ea3a9edda14f952042fa262abd37cc4fa0c1dd6d Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 25 May 2011 17:40:23 +0100
Subject: [PATCH] More DynFlags + SDoc
---
compiler/utils/Outputable.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index ca2adbb1183b..3fd0915a2200 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -897,10 +897,10 @@ pprDefiniteTrace :: String -> SDoc -> a -> a
-- ^ Same as pprTrace, but show even if -dno-debug-output is on
pprDefiniteTrace str doc x = pprAndThen trace str doc x
-pprPanicFastInt :: String -> SDoc -> FastInt
+pprPanicFastInt :: DynFlags -> String -> SDoc -> FastInt
-- ^ Specialization of pprPanic that can be safely used with 'FastInt'
-pprPanicFastInt heading pretty_msg =
- panicFastInt (show (runSDoc doc (initSDocContext PprDebug)))
+pprPanicFastInt dflags heading pretty_msg =
+ panicFastInt (show (runSDoc doc (initSDocContext' dflags PprDebug)))
where
doc = text heading <+> pretty_msg
--
GitLab