From: simonpj <unknown>
Date: Mon, 13 Oct 2003 10:41:31 +0000 (+0000)
Subject: [project @ 2003-10-13 10:41:30 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~367
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3058c4a9633090cc1c74d1bf99429ef845b2c1bb;p=ghc-hetmet.git

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