diff options
| author | aarne <aarne@chalmers.se> | 2011-03-12 11:22:21 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-03-12 11:22:21 +0000 |
| commit | 3ddc29f2dcf57f46c1bd8ff5cc5ebbb910545afd (patch) | |
| tree | b960ff6d911551008cc87a29860ff37e1315285d /src/compiler/GF | |
| parent | 1599ce4ba94b2ed332a10e7e5fbec1db33b5455e (diff) | |
make later flags take priority over earlier ones in PGF generation
Diffstat (limited to 'src/compiler/GF')
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToPGF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index 211535b41..6a0c90db7 100644 --- 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) |