diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 16:41:18 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 16:41:18 +0000 |
| commit | b360db770ca5e147066b7647b225208d531a6eaf (patch) | |
| tree | 057a4f00c2825982ed2acc753e5e8fd0c7050957 | |
| parent | 1e37b7f52ea9ac1965fd11edffbfca61b6fa0965 (diff) | |
| download | haskell-b360db770ca5e147066b7647b225208d531a6eaf.tar.gz | |
Remove mi_package from moved pprModIface
Mon Aug 7 12:40:55 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* Remove mi_package from moved pprModIface
| -rw-r--r-- | compiler/iface/LoadIface.lhs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index f76fa7811e..599762e996 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -578,7 +578,6 @@ pprModIface :: ModIface -> SDoc -- Show a ModIface pprModIface iface = vcat [ ptext SLIT("interface") - <+> ppr_package (mi_package iface) <+> ppr (mi_module iface) <+> pp_boot <+> ppr (mi_mod_vers iface) <+> pp_sub_vers <+> (if mi_orphan iface then ptext SLIT("[orphan module]") else empty) @@ -596,8 +595,6 @@ pprModIface iface where pp_boot | mi_boot iface = ptext SLIT("[boot]") | otherwise = empty - ppr_package HomePackage = empty - ppr_package (ExtPackage id) = doubleQuotes (ppr id) exp_vers = mi_exp_vers iface rule_vers = mi_rule_vers iface |