GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 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)})
addPMCFG opts gr (id,CncFun mty@(Just (cat,ctxt,val)) mlin@(Just (L loc term)) mprn Nothing) = do