X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPADict.hs;h=ed6264a2252201eb5711482ca5c870ba84ecc723;hp=a15f671352e2b4ac75011b5033d4009272b68a5b;hb=a3bab0506498db41853543558c52a4fda0d183af;hpb=d70f8919d9fde9bf0ec1438cafb617588400e09c

diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs
index a15f671..ed6264a 100644
--- a/compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/compiler/vectorise/Vectorise/Type/PADict.hs
@@ -19,7 +19,6 @@ import TypeRep
 import Id
 import Var
 import Name
-import Class
 import Outputable
 
 -- debug		= False
@@ -54,7 +53,6 @@ buildPADict vect_tc prepr_tc arr_tc repr
 
       -- Build the type of the dictionary function.
       pa_tc		<- builtin paTyCon
-      let pa_opitems	= [(id, NoDefMeth) | id <- method_ids]
       let Just pa_cls	= tyConClass_maybe pa_tc
 
       let dfun_ty	= mkForAllTys tvs
@@ -62,7 +60,8 @@ buildPADict vect_tc prepr_tc arr_tc repr
 
       -- Set the unfolding for the inliner.
       raw_dfun <- newExportedVar dfun_name dfun_ty
-      let dfun = raw_dfun `setIdUnfolding`  mkDFunUnfolding dfun_ty (map Var method_ids)
+      let dfun_unf = mkDFunUnfolding dfun_ty (map (DFunPolyArg . Var) method_ids)
+          dfun = raw_dfun `setIdUnfolding`  dfun_unf
                           `setInlinePragma` dfunInlinePragma
 
       -- Add the new binding to the top-level environment.