diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-08-28 17:35:33 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-08-29 09:37:13 +0100 |
| commit | aed7d431a58bc82eae7635aed8697a71267a9076 (patch) | |
| tree | 16e8ad8c479e9290635fe75065c0cbb202068904 | |
| parent | a6c448b403dbe8720178ca82100f34baedb1f47e (diff) | |
| download | haskell-aed7d431a58bc82eae7635aed8697a71267a9076.tar.gz | |
Add HasDebugStack for typeKind
typeKind can fail, and it's called all over the place, so
it's helpful to know where
| -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 |