From 665c363b77c7f7a564b711bec6b3d3443388abfb Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 1 Mar 2001 15:51:46 +0000 Subject: [PATCH] [project @ 2001-03-01 15:51:46 by simonpj] Sub-wibble 2 (sigh) --- ghc/compiler/main/MkIface.lhs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs index 87436d3..665683b 100644 --- a/ghc/compiler/main/MkIface.lhs +++ b/ghc/compiler/main/MkIface.lhs @@ -576,14 +576,14 @@ pprRulesAndDeprecs rules deprecs pp_rules [] = empty pp_rules rules = ptext SLIT("__R") <+> vcat (map ppr rules) - ppr_deprecs NoDeprecs = empty - ppr_deprecs deprecs = ptext SLIT("__D") <+> guts + pp_deprecs NoDeprecs = empty + pp_deprecs deprecs = ptext SLIT("__D") <+> guts where guts = case deprecs of DeprecAll txt -> doubleQuotes (ptext txt) - DeprecSome env -> pp_deprecs env + DeprecSome env -> ppr_deprec_env env -pp_deprecs env = vcat (punctuate semi (map pp_deprec (nameEnvElts env))) - where - pp_deprec (name, txt) = pprOcc name <+> doubleQuotes (ptext txt) +ppr_deprec_env env = vcat (punctuate semi (map pp_deprec (nameEnvElts env))) + where + pp_deprec (name, txt) = pprOcc name <+> doubleQuotes (ptext txt) \end{code} -- 1.7.10.4