X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectType.hs;h=9d9db538974f66f4011097673e7f59e257520e07;hp=aed3e2a2abe8448196b38f32be782c88b1b10157;hb=063aba74bac532a9747e99da2c2d9c066ac76429;hpb=8d5e92db87d0afaa3c45bb62bdde0745ffb60e34

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index aed3e2a..9d9db53 100644
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -398,7 +398,7 @@ buildReplicatePA vect_tc arr_tc
           arr_ty <- mkPArrayType ty
 
           return $ Case val wild arr_ty
-                     [(DataAlt dc, pre ++ (var : post), rep), (DEFAULT, [], empty)]
+                     [(DEFAULT, [], empty), (DataAlt dc, pre ++ (var : post), rep)]
 
 -- | Split the given tycons into two sets depending on whether they have to be
 -- converted (first list) or not (second list). The first argument contains