[commit: ghc] master: Typos in comments (b33f321)

[git at git.haskell.org]

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

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

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

commit b33f321a57fd75c89c2daffb4d207fee1fb26fee
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri May 23 19:04:12 2014 +0200

    Typos in comments


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

b33f321a57fd75c89c2daffb4d207fee1fb26fee
 compiler/types/Kind.lhs | 2 +-
 compiler/types/Type.lhs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/types/Kind.lhs b/compiler/types/Kind.lhs
index b82556e..e4dc783 100644
--- a/compiler/types/Kind.lhs
+++ b/compiler/types/Kind.lhs
@@ -104,7 +104,7 @@ kindFunResult _ (ForAllTy kv res) arg = substKiWith [kv] [arg] res
 #ifdef DEBUG
 kindFunResult doc k _ = pprPanic "kindFunResult" (ppr k $$ doc)
 #else
--- Without DEUBG, doc becomes an unsed arg, and will be optimised away
+-- Without DEBUG, doc becomes an unsed arg, and will be optimised away
 kindFunResult _ _ _ = panic "kindFunResult"
 #endif
 
diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs
index e65a1c7..13ceb44 100644
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -1653,7 +1653,7 @@ typeKind orig_ty = go orig_ty
     go (TyVarTy tyvar)      = tyVarKind tyvar
     go _ty@(FunTy _arg res)
         -- Hack alert.  The kind of (Int -> Int#) is liftedTypeKind (*),
-        --              not unliftedTypKind (#)
+        --              not unliftedTypeKind (#)
         -- The only things that can be after a function arrow are
         --   (a) types (of kind openTypeKind or its sub-kinds)
         --   (b) kinds (of super-kind TY) (e.g. * -> (* -> *))