diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:42:58 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:42:58 +0100 |
| commit | 0fdca5de906b243635140819298b35f1210e51ce (patch) | |
| tree | 80602bf6714d496ded605ea4d16dba0b4ee0db6f /ghc/InteractiveUI.hs | |
| parent | 1bb4428cbc194cb959166fc8e12d0edd140e3796 (diff) | |
| download | haskell-0fdca5de906b243635140819298b35f1210e51ce.tar.gz | |
Pass DynFlags down to showPpr
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 $ |