[commit: ghc] master: More comments and white space (12698ff)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/12698ff4eb88146f45e2e1e1fe7b2da608365957/ghc

>---------------------------------------------------------------

commit 12698ff4eb88146f45e2e1e1fe7b2da608365957
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Feb 10 21:07:18 2015 +0000

    More comments and white space


>---------------------------------------------------------------

12698ff4eb88146f45e2e1e1fe7b2da608365957
 compiler/typecheck/TcEnv.hs    | 2 +-
 compiler/typecheck/TcSplice.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/typecheck/TcEnv.hs b/compiler/typecheck/TcEnv.hs
index 564b1f3..e66eaea 100644
--- a/compiler/typecheck/TcEnv.hs
+++ b/compiler/typecheck/TcEnv.hs
@@ -413,7 +413,7 @@ Note especially that
    That's important because some are not closed (ie have free tyvars)
    and the compiler assumes that the global type env (tcg_type_env) has
    no free tyvars.  Actually, only ones with Internal names can be non-closed
-   so we jsut add those
+   so we just add those
 
  * The tct_closed flag depends on whether the thing has free (RuntimeUnk)
    type variables
diff --git a/compiler/typecheck/TcSplice.hs b/compiler/typecheck/TcSplice.hs
index 1611a99..3928a98 100644
--- a/compiler/typecheck/TcSplice.hs
+++ b/compiler/typecheck/TcSplice.hs
@@ -941,9 +941,9 @@ getThing th_name
         -- ToDo: this tcLookup could fail, which would give a
         --       rather unhelpful error message
   where
-    ppr_ns (TH.Name _ (TH.NameG TH.DataName _pkg _mod)) = text "data"
+    ppr_ns (TH.Name _ (TH.NameG TH.DataName  _pkg _mod)) = text "data"
     ppr_ns (TH.Name _ (TH.NameG TH.TcClsName _pkg _mod)) = text "tc"
-    ppr_ns (TH.Name _ (TH.NameG TH.VarName _pkg _mod)) = text "var"
+    ppr_ns (TH.Name _ (TH.NameG TH.VarName   _pkg _mod)) = text "var"
     ppr_ns _ = panic "reify/ppr_ns"
 
 reify :: TH.Name -> TcM TH.Info