Use NDP's own (:*:) and (:+:)

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

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index 22b776e..d407b38 100644 (file)
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -98,9 +98,9 @@ initBuiltins
       preprTyCon   <- dsLookupTyCon preprTyConName
       embedTyCon   <- dsLookupTyCon embedTyConName
       let [embedDataCon] = tyConDataCons embedTyCon
-      crossTyCon   <- dsLookupTyCon crossTyConName
+      crossTyCon   <- dsLookupTyCon ndpCrossTyConName
       let [crossDataCon] = tyConDataCons crossTyCon
-      plusTyCon    <- dsLookupTyCon plusTyConName
+      plusTyCon    <- dsLookupTyCon ndpPlusTyConName
       let [leftDataCon, rightDataCon] = tyConDataCons plusTyCon
       closureTyCon <- dsLookupTyCon closureTyConName