diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-09-23 09:18:27 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-09-23 09:18:27 +0000 |
| commit | 14061ef4df8da8cad6f1c88b40d29bd5913a5155 (patch) | |
| tree | e3033216527a53130f1a8b23418429661896d4bf /src/compiler/GF/Compile/GrammarToPGF.hs | |
| parent | 9cbd28e9cec5d6270f2a03fa4fbeefb60169e217 (diff) | |
GF.Grammar.Grammar.allExtends now returns a list of source modules instead of just the module names. This saves extra lookups later
Diffstat (limited to 'src/compiler/GF/Compile/GrammarToPGF.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToPGF.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index b1a2c5d33..41f6f8ff0 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -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 |