[project @ 2003-10-13 10:41:30 by simonpj]

Cosmetics

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 09bb56e..b98b18f 100644 (file)
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -349,8 +349,7 @@ pprIdRule (id,rule) = pprCoreRule (ppr id) rule
 
 pprCoreRule :: SDoc -> CoreRule -> SDoc
 pprCoreRule pp_fn (BuiltinRule name _)
-  = ifPprDebug (ptext SLIT("Built in rule for") <+> pp_fn <> colon
-                <+> doubleQuotes (ftext name))
+  = ptext SLIT("Built in rule for") <+> pp_fn <> colon <+> doubleQuotes (ftext name)
 
 pprCoreRule pp_fn (Rule name act tpl_vars tpl_args rhs)
   = doubleQuotes (ftext name) <+> ppr act <+>

diff --git a/ghc/compiler/coreSyn/Subst.lhs b/ghc/compiler/coreSyn/Subst.lhs
index 1994caa..2fba197 100644 (file)
--- a/ghc/compiler/coreSyn/Subst.lhs
+++ b/ghc/compiler/coreSyn/Subst.lhs
@@ -130,7 +130,7 @@ lookupInScope (InScope in_scope n) v
 uniqAway :: InScopeSet -> Var -> Var
 -- (uniqAway in_scope v) finds a unique that is not used in the
 -- in-scope set, and gives that to v.  It starts with v's current unique, of course,
--- in the hope that it won't have to change it, nad thereafter uses a combination
+-- in the hope that it won't have to change it, and thereafter uses a combination
 -- of that and the hash-code found in the in-scope set
 uniqAway (InScope set n) var
   | not (var `elemVarSet` set) = var                           -- Nothing to do