From 3ddc29f2dcf57f46c1bd8ff5cc5ebbb910545afd Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 12 Mar 2011 11:22:21 +0000 Subject: [PATCH] make later flags take priority over earlier ones in PGF generation --- src/compiler/GF/Compile/GrammarToPGF.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)