Commit 9db2b548 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-10-10 18:26:24 by simonpj]

Use tcIsTyVarTy
parent ffa4651e
......@@ -51,8 +51,8 @@ import TcType ( TcType, TcThetaType, TcTauType, TcPredType,
tcEqType, tcCmpPred, isClassPred,
tcSplitPhiTy, tcSplitPredTy_maybe, tcSplitAppTy_maybe,
tcSplitTyConApp_maybe, tcSplitForAllTys,
tcIsTyVarTy, tcSplitSigmaTy,
isUnLiftedType, isIPPred, isTyVarTy,
tcIsTyVarTy, tcSplitSigmaTy, tcIsTyVarTy,
isUnLiftedType, isIPPred,
mkAppTy, mkTyVarTy, mkTyVarTys,
tyVarsOfPred, getClassPredTys_maybe,
......@@ -816,7 +816,7 @@ check_class_pred_tys dflags ctxt tys
= case ctxt of
InstHeadCtxt -> True -- We check for instance-head
-- formation in checkValidInstHead
InstThetaCtxt -> undecidable_ok || all isTyVarTy tys
InstThetaCtxt -> undecidable_ok || all tcIsTyVarTy tys
other -> gla_exts || all tyvar_head tys
where
undecidable_ok = dopt Opt_AllowUndecidableInstances dflags
......
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