X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPADict.hs;h=8b6ad92c3e66474a529ece1ae218b148988b92b7;hp=6b67f66678614ba6bbbe3f7bb2e93d7ee6535086;hb=cd0f87f46cfe3be19ae44e4f124322ae5331fb0b;hpb=ed333003733fd3f3a3de015998f59ee1a709230a

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