Commit b33f321a authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Typos in comments

parent 4dea15a0
...@@ -104,7 +104,7 @@ kindFunResult _ (ForAllTy kv res) arg = substKiWith [kv] [arg] res ...@@ -104,7 +104,7 @@ kindFunResult _ (ForAllTy kv res) arg = substKiWith [kv] [arg] res
#ifdef DEBUG #ifdef DEBUG
kindFunResult doc k _ = pprPanic "kindFunResult" (ppr k $$ doc) kindFunResult doc k _ = pprPanic "kindFunResult" (ppr k $$ doc)
#else #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" kindFunResult _ _ _ = panic "kindFunResult"
#endif #endif
......
...@@ -1653,7 +1653,7 @@ typeKind orig_ty = go orig_ty ...@@ -1653,7 +1653,7 @@ typeKind orig_ty = go orig_ty
go (TyVarTy tyvar) = tyVarKind tyvar go (TyVarTy tyvar) = tyVarKind tyvar
go _ty@(FunTy _arg res) go _ty@(FunTy _arg res)
-- Hack alert. The kind of (Int -> Int#) is liftedTypeKind (*), -- Hack alert. The kind of (Int -> Int#) is liftedTypeKind (*),
-- not unliftedTypKind (#) -- not unliftedTypeKind (#)
-- The only things that can be after a function arrow are -- The only things that can be after a function arrow are
-- (a) types (of kind openTypeKind or its sub-kinds) -- (a) types (of kind openTypeKind or its sub-kinds)
-- (b) kinds (of super-kind TY) (e.g. * -> (* -> *)) -- (b) kinds (of super-kind TY) (e.g. * -> (* -> *))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment