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

GF.Grammar.Grammar.allExtends now returns a list of source modules instead of just the module names. This saves extra lookups later

Browse Source
This commit is contained in:
kr.angelov
2013-09-23 09:18:27 +00:00
parent a7469a694b
commit e6dbd74dc9
4 changed files with 30 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,8 +65,7 @@ mkCanon2pgf opts gr am = do
[(0,i2i f) | ((m,f),AbsFun (Just (L _ ty)) _ _ (Just True),_) <- adefs, snd (GM.valCat ty) == cat]
mkConcr cm = do
let cflags = concatOptions [mflags mo | (i,mo) <- modules gr, isModCnc mo,
Just r <- [lookup i (allExtendSpecs gr cm)]]
let cflags = concatOptions [mflags mo | (i,mo) <- modules gr, isModCnc mo]
(seqs,cdefs) <- addMissingPMCFGs
Map.empty