X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectType.hs;h=96745c500516baa9f98c70a7397705f22ce92adf;hb=263a30f1db8fc4f5b6cecc26176c6f881807e348;hp=b6f11b218944261bb84140e18f1e4fdb614610bc;hpb=cd8f2b536384f33503810bd2691294b14d16b074;p=ghc-hetmet.git

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index b6f11b2..96745c5 100644
--- 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)