GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-05 11:45:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

use prependModule to make the current module available

Browse Source
This commit is contained in:
krangelov committed 2021-10-08 11:56:28 +02:00
1 parent 6a9254816d
commit 15e3ca9acd
1 file changed
+2 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Compile/GeneratePMCFG.hs
+2 -1
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