[commit: ghc] ghc-kinds: Minor fix. (99aabb2)

[José Pedro Magalhães]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-kinds

http://hackage.haskell.org/trac/ghc/changeset/99aabb2566f53e8f55f690d232cd9e7aaf1ee250

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

commit 99aabb2566f53e8f55f690d232cd9e7aaf1ee250
Author: Jose Pedro Magalhaes <jpm at cs.uu.nl>
Date:   Fri Oct 21 16:29:13 2011 +0100

    Minor fix.

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

 compiler/typecheck/TcType.lhs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs
old mode 100644
new mode 100755
index 16a51b8..b122660
--- a/compiler/typecheck/TcType.lhs
+++ b/compiler/typecheck/TcType.lhs
@@ -80,6 +80,7 @@ module TcType (
   -- * Tidying type related things up for printing
   tidyType,      tidyTypes,
   tidyOpenType,  tidyOpenTypes,
+  tidyOpenKind,
   tidyTyVarBndr, tidyFreeTyVars,
   tidyOpenTyVar, tidyOpenTyVars,
   tidyTopType,
@@ -440,7 +441,7 @@ pprUserTypeCtxt GenSigCtxt       = ptext (sLit "a type expected by the context")
 -- It doesn't change the uniques at all, just the print names.
 tidyTyVarBndr :: TidyEnv -> TyVar -> (TidyEnv, TyVar)
 tidyTyVarBndr tidy_env@(occ_env, subst) tyvar
-  = case tidyOccName tidy_env occ1 of
+  = case tidyOccName occ_env occ1 of
       (tidy', occ') -> ((tidy', subst'), tyvar')
 	where
           subst' = extendVarEnv subst tyvar tyvar'