Commit 04d0ebc9 authored by's avatar
Browse files

Vital follow-up to fix of Trac #2045

Sorry -- my 'validate' didn't work right and I missed a trick.
This patch must accompany

 * Fix Trac #2045: use big-tuple machiney for implication constraints
parent 4edf8929
......@@ -61,6 +61,7 @@ import InstEnv
import FunDeps
import TcMType
import TcType
import DsUtils
import Type
import TypeRep
import Class
......@@ -76,7 +77,6 @@ import Var ( Var, TyVar )
import qualified Var
import VarEnv
import VarSet
import TysWiredIn
import PrelNames
import BasicTypes
import SrcLoc
......@@ -137,10 +137,7 @@ mkImplicTy tvs givens wanteds -- The type of an implication constraint
mkForAllTys tvs $
mkPhiTy (map dictPred givens) $
if isSingleton dict_wanteds then
instType (head dict_wanteds)
mkTupleTy Boxed (length dict_wanteds) (map instType dict_wanteds)
mkBigCoreTupTy (map instType dict_wanteds)
dictPred :: Inst -> TcPredType
dictPred (Dict {tci_pred = pred}) = pred
Supports Markdown
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