PA is now a class instead of a record

[ghc-hetmet.git] / compiler / vectorise / Vectorise.hs

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index df9fdb9..29774d1 100644 (file)
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -181,7 +181,7 @@ paArgType ty (FunTy k1 k2)
 paArgType ty k
   | isLiftedTypeKind k
   = do
-      tc <- builtin paTyCon
+      tc <- builtin paDictTyCon
       return . Just $ TyConApp tc [ty]
 
   | otherwise