diff options
| author | David Terei <davidterei@gmail.com> | 2011-04-25 12:12:56 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 18:19:48 -0700 |
| commit | f8279ea9fef8c16782a3cd5bc81cf90de3e46cb5 (patch) | |
| tree | 6a0e792dfb74b5275bfa9eee7eba3c4f4092e58e /compiler/iface/LoadIface.lhs | |
| parent | 745e073efcb84037d629cd38c18aaaddd4f56e31 (diff) | |
| download | haskell-f8279ea9fef8c16782a3cd5bc81cf90de3e46cb5.tar.gz | |
SafeHaskell: Add Safe & Trustworthy pragmas
Diffstat (limited to 'compiler/iface/LoadIface.lhs')
| -rw-r--r-- | compiler/iface/LoadIface.lhs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index 97acc5226a..ccaaf6928a 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -666,7 +666,9 @@ pprModIface iface , vcat (map ppr (mi_fam_insts iface)) , vcat (map ppr (mi_rules iface)) , pprVectInfo (mi_vect_info iface) + , pprVectInfo (mi_vect_info iface) , ppr (mi_warns iface) + , pprTrustInfo (mi_trust iface) ] where pp_boot | mi_boot iface = ptext (sLit "[boot]") @@ -743,6 +745,9 @@ pprVectInfo (IfaceVectInfo { ifaceVectInfoVar = vars , ptext (sLit "scalar tycons:") <+> hsep (map ppr scalarTyCons) ] +pprTrustInfo :: IfaceTrustInfo -> SDoc +pprTrustInfo trust = ptext (sLit "trusted:") <+> ppr trust + instance Outputable Warnings where ppr = pprWarns |