Commit 1353d1ef authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Fix over-zealous ASSERT in TcUnify

parent f6f881f0
......@@ -244,7 +244,7 @@ matchExpectedTyConApp tc orig_ty
-- (a::*) ~ Maybe
-- because that'll make types that are utterly ill-kinded.
-- This happened in Trac #7368
defer = ASSERT2( isLiftedTypeKind res_kind, ppr tc )
defer = ASSERT2( isSubOpenTypeKind res_kind, ppr tc )
do { kappa_tys <- mapM (const newMetaKindVar) kvs
; let arg_kinds' = map (substKiWith kvs kappa_tys) arg_kinds
; tau_tys <- mapM newFlexiTyVarTy arg_kinds'
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