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

GrammarToPGF now looks only at the top modules for the PGF flags

Browse Source
This commit is contained in:
kr.angelov
2013-09-23 09:30:45 +00:00
parent 54c3924a11
commit 1402225a6e
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -45,8 +45,7 @@ mkCanon2pgf opts gr am = do
mkAbstr am = return (i2i am, D.Abstr flags funs cats bcode) mkAbstr am = return (i2i am, D.Abstr flags funs cats bcode)
where where
aflags = aflags = err (const noOptions) mflags (lookupModule gr am)
concatOptions (reverse [mflags mo | (_,mo) <- modules gr, isModAbs mo])
(adefs,bcode) = (adefs,bcode) =
generateByteCode $ generateByteCode $
@@ -65,7 +64,7 @@ mkCanon2pgf opts gr am = do
[(0,i2i f) | ((m,f),AbsFun (Just (L _ ty)) _ _ (Just True),_) <- adefs, snd (GM.valCat ty) == cat] [(0,i2i f) | ((m,f),AbsFun (Just (L _ ty)) _ _ (Just True),_) <- adefs, snd (GM.valCat ty) == cat]
mkConcr cm = do mkConcr cm = do
let cflags = concatOptions [mflags mo | (i,mo) <- modules gr, isModCnc mo] let cflags = err (const noOptions) mflags (lookupModule gr cm)
(seqs,cdefs) <- addMissingPMCFGs (seqs,cdefs) <- addMissingPMCFGs
Map.empty Map.empty