[commit: ghc] master: Fix comment to placate Haddock (d75ca39)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/d75ca39b2ff8132dde6eb6aee946d75ba0a3f3ef

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

commit d75ca39b2ff8132dde6eb6aee946d75ba0a3f3ef
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Apr 30 09:50:40 2013 +0100

    Fix comment to placate Haddock

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

 compiler/typecheck/TcHsType.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs
index d559f99..7bfa518 100644
--- a/compiler/typecheck/TcHsType.lhs
+++ b/compiler/typecheck/TcHsType.lhs
@@ -395,7 +395,7 @@ tc_hs_type hs_ty@(HsForAllTy _ hs_tvs context ty) exp_kind
                    tc_lhs_type ty exp_kind    -- Why exp_kind?  See Note [Body kind of forall]
                 else     
                    -- If there is a context, then this forall is really a
-                   -- *function*, so the kind of the result really is *
+                   -- _function_, so the kind of the result really is *
                    -- The body kind (result of the function can be * or #, hence ekOpen
                    do { checkExpectedKind hs_ty liftedTypeKind exp_kind
                       ; tc_lhs_type ty ekOpen }