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

Cosmetics

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 <+>

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