msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

make later flags take priority over earlier ones in PGF generation

Browse Source
This commit is contained in:
aarne
2011-03-12 11:22:21 +00:00
parent 1599ce4ba9
commit 3ddc29f2dc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GrammarToPGF.hs
View File

@@ -156,7 +156,7 @@ reorder abs cg =
| cnc <- M.allConcretes cg abs, let (cflags,cdefs) = concr cnc] | cnc <- M.allConcretes cg abs, let (cflags,cdefs) = concr cnc]
where where
aflags = 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 = adefs =
Map.fromList (predefADefs ++ Look.allOrigInfos cg abs) Map.fromList (predefADefs ++ Look.allOrigInfos cg abs)