Assert

e613a567 · simonpj@microsoft.com · 4beee1c6 · e613a567
Commit e613a567 authored Sep 02, 2010 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

compiler/types/Type.lhs compiler/types/Type.lhs +2 -1

No files found.
--- a/compiler/types/Type.lhs
+++ b/compiler/types/Type.lhs
@@ -468,7 +468,8 @@ splitFunTys ty = split [] ty ty
 splitFunTysN :: Int -> Type -> ([Type], Type)
 -- ^ Split off exactly the given number argument types, and panics if that is not possible
 splitFunTysN 0 ty = ([], ty)
-splitFunTysN n ty = case splitFunTy ty of { (arg, res) ->
+splitFunTysN n ty = ASSERT2( isFunTy ty, int n <+> ppr ty )
+                    case splitFunTy ty of { (arg, res) ->
 		    case splitFunTysN (n-1) res of { (args, res) ->
 		    (arg:args, res) }}