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

use prependModule to make the current module available

Browse Source
This commit is contained in:
krangelov
2021-10-08 11:56:28 +02:00
parent 6a9254816d
commit 15e3ca9acd
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,7 +23,8 @@ import qualified Data.Map.Strict as Map
generatePMCFG :: Options -> SourceGrammar -> SourceModule -> Check SourceModule generatePMCFG :: Options -> SourceGrammar -> SourceModule -> Check SourceModule
generatePMCFG opts gr cmo@(cm,cmi) = do generatePMCFG opts gr cmo@(cm,cmi) = do
js <- mapM (addPMCFG opts gr) (Map.toList (jments cmi)) let gr' = prependModule gr cmo
js <- mapM (addPMCFG opts gr') (Map.toList (jments cmi))
return (cm,cmi{jments = (Map.fromAscList js)}) return (cm,cmi{jments = (Map.fromAscList js)})
addPMCFG opts gr (id,CncFun mty@(Just (cat,ctxt,val)) mlin@(Just (L loc term)) mprn Nothing) = do addPMCFG opts gr (id,CncFun mty@(Just (cat,ctxt,val)) mlin@(Just (L loc term)) mprn Nothing) = do