From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 26 Jul 2007 05:22:39 +0000 (+0000)
Subject: Make sure DEFAULT always comes first in generated PA dictionaries
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=063aba74bac532a9747e99da2c2d9c066ac76429

Make sure DEFAULT always comes first in generated PA dictionaries
---

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