Commit aed7d431 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add HasDebugStack for typeKind

typeKind can fail, and it's called all over the place, so
it's helpful to know where
parent a6c448b4
......@@ -2306,7 +2306,7 @@ nonDetCmpTc tc1 tc2
************************************************************************
-}
typeKind :: Type -> Kind
typeKind :: HasDebugCallStack => Type -> Kind
typeKind (TyConApp tc tys) = piResultTys (tyConKind tc) tys
typeKind (AppTy fun arg) = piResultTy (typeKind fun) arg
typeKind (LitTy l) = typeLiteralKind l
......
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