Fix bug in vectorised DataCon worker generation

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

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index b6f11b2..96745c5 100644 (file)
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -352,7 +352,7 @@ vectDataConWorker shape vect_tc arr_tc arr_dc orig_dc vect_dc pre (dc_tys : post
                 args    <- mapM (newLocalVar FSLIT("xs")) arr_tys
                 shapes  <- shapeReplicate shape
                                           (Var len)
-                                          (mkIntLitInt $ dataConTag vect_dc)
+                                          (mkDataConTag vect_dc)
                 
                 empty_pre  <- mapM emptyPA (concat pre)
                 empty_post <- mapM emptyPA (concat post)