From: Ben Lippmeier <benl@ouroborus.net>
Date: Thu, 25 Nov 2010 06:23:49 +0000 (+0000)
Subject: vectoriser: follow changes in mkClass
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=cd0f87f46cfe3be19ae44e4f124322ae5331fb0b;ds=sidebyside

vectoriser: follow changes in mkClass
---

diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs
index 6b67f66..8b6ad92 100644
--- a/compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/compiler/vectorise/Vectorise/Type/PADict.hs
@@ -60,6 +60,7 @@ buildPADict vect_tc prepr_tc arr_tc repr
 			tvs		-- tyvars of class
 			[]		-- fundeps
 			[]		-- superclass predicates
+			0		-- number of equalities
 			[]		-- superclass dict selectors
 			[]		-- associated type families
 			pa_opitems	-- class op items