diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/types/Type.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/types/Type.hs b/compiler/types/Type.hs index 664f00164b..1e0c61207e 100644 --- a/compiler/types/Type.hs +++ b/compiler/types/Type.hs @@ -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 |