From 0fdca5de906b243635140819298b35f1210e51ce Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 12 Jun 2012 12:42:58 +0100
Subject: Pass DynFlags down to showPpr

---
 ghc/InteractiveUI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ghc/InteractiveUI.hs')

diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs
index 4e8325238e..a57d8e7213 100644
--- a/ghc/InteractiveUI.hs
+++ b/ghc/InteractiveUI.hs
@@ -1443,7 +1443,7 @@ isSafeModule m = do
 
     let iface' = fromJust iface
 
-        trust = showPpr $ getSafeMode $ GHC.mi_trust iface'
+        trust = showPpr dflags $ getSafeMode $ GHC.mi_trust iface'
         pkgT  = packageTrusted dflags m
         pkg   = if pkgT then "trusted" else "untrusted"
         (good', bad') = tallyPkgs dflags $
-- 
cgit v1.2.1