diff options
| author | David Terei <davidterei@gmail.com> | 2011-06-06 19:45:36 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:40:34 -0700 |
| commit | 2f63e686928fd6ae27f1851246cf922afb7f1edb (patch) | |
| tree | 4a6fd4c8916eb3b42ff0a988d6062245e1b713ca /ghc | |
| parent | ebdbd8bc7e023ec8ff3a6698c1dcb93094a4cff4 (diff) | |
| download | haskell-2f63e686928fd6ae27f1851246cf922afb7f1edb.tar.gz | |
SafeHaskell: Change SafeHaskellMode to use Outputable vs Show
Diffstat (limited to 'ghc')
| -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 b4fc2aa821..1869040a80 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1354,7 +1354,7 @@ isSafeModule m = do let iface = GHC.modInfoIface mi case iface of Just iface' -> do - let trust = show $ getSafeMode $ GHC.mi_trust iface' + let trust = showPpr $ getSafeMode $ GHC.mi_trust iface' pkg = if packageTrusted dflags m then "trusted" else "untrusted" liftIO $ putStrLn $ "Trust type is (Module: " ++ trust ++ ", Package: " ++ pkg ++ ")" |