X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectType.hs;h=69a93f8ad8a042ce028b6c35c877006892d3296c;hb=e1364f66b4e743237e942e0826ed096f5e06de76;hp=fad264448d756f30e8d38b7515eb41094b37abdc;hpb=f5cbabe851fa8adb9e86daa5c7ec8c9138acc0b7;p=ghc-hetmet.git

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index fad2644..69a93f8 100644
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -320,7 +320,7 @@ buildPADict (PAInstance {
                painstInstance  = inst
              , painstVectTyCon = vect_tc
              , painstArrTyCon  = arr_tc })
-  = localV . abstractOverTyVars (tyConTyVars arr_tc) $ \abstract ->
+  = polyAbstract (tyConTyVars arr_tc) $ \abstract ->
     do
       shape <- tyConShape vect_tc
       meth_binds <- mapM (mk_method shape) paMethods