X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectMonad.hs;h=aae76c93e4e12c12160b9f260f3609c0d070ef41;hp=e3d98530a8493938590028f8730749418ce5a4d3;hb=58eb6de8922742d301a6703b4a21504dd8d623a5;hpb=568c7874bb974d5a9c53b3306650b60d21f675ba

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index e3d9853..aae76c9 100644
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -67,7 +67,7 @@ data Builtins = Builtins {
                   parrayTyCon      :: TyCon
                 , paTyCon          :: TyCon
                 , paDataCon        :: DataCon
-                , reprTyCon        :: TyCon
+                , preprTyCon       :: TyCon
                 , embedTyCon       :: TyCon
                 , embedDataCon     :: DataCon
                 , crossTyCon       :: TyCon
@@ -92,7 +92,7 @@ initBuiltins
       parrayTyCon  <- dsLookupTyCon parrayTyConName
       paTyCon      <- dsLookupTyCon paTyConName
       let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
-      reprTyCon    <- dsLookupTyCon reprTyConName
+      preprTyCon   <- dsLookupTyCon preprTyConName
       embedTyCon   <- dsLookupTyCon embedTyConName
       let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc
       crossTyCon   <- dsLookupTyCon crossTyConName
@@ -117,7 +117,7 @@ initBuiltins
                  parrayTyCon      = parrayTyCon
                , paTyCon          = paTyCon
                , paDataCon        = paDataCon
-               , reprTyCon        = reprTyCon
+               , preprTyCon       = preprTyCon
                , embedTyCon       = embedTyCon
                , embedDataCon     = embedDataCon
                , crossTyCon       = crossTyCon