Commit 063aba74 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au

Make sure DEFAULT always comes first in generated PA dictionaries

parent 8d5e92db
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment