From: simonpj <unknown>
Date: Thu, 1 Mar 2001 15:51:46 +0000 (+0000)
Subject: [project @ 2001-03-01 15:51:46 by simonpj]
X-Git-Tag: Approximately_9120_patches~2499
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=665c363b77c7f7a564b711bec6b3d3443388abfb;p=ghc-hetmet.git

[project @ 2001-03-01 15:51:46 by simonpj]
Sub-wibble 2 (sigh)
---

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}