make later flags take priority over earlier ones in PGF generation

2011-03-12 11:22:21 +00:00
parent 1599ce4ba9
commit 3ddc29f2dc
1 changed files with 1 additions and 1 deletions
--- a/src/compiler/GF/Compile/GrammarToPGF.hs
+++ b/src/compiler/GF/Compile/GrammarToPGF.hs
@@ -156,7 +156,7 @@ reorder abs cg =
            | cnc <- M.allConcretes cg abs, let (cflags,cdefs) = concr cnc]
  where
    aflags = 
-      concatOptions [M.flags mo | (_,mo) <- M.modules cg, M.isModAbs mo]
+      concatOptions (reverse [M.flags mo | (_,mo) <- M.modules cg, M.isModAbs mo])

    adefs = 
      Map.fromList (predefADefs ++ Look.allOrigInfos cg abs)