GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

generate PMCFG only for complete modules

Browse Source
This commit is contained in:
krangelov
2021-12-15 09:53:45 +01:00
parent b61e870783
commit f793ed4413
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -29,10 +29,11 @@ import Data.Maybe(fromMaybe)
generatePMCFG :: Options -> FilePath -> SourceGrammar -> SourceModule -> Check SourceModule generatePMCFG :: Options -> FilePath -> SourceGrammar -> SourceModule -> Check SourceModule
generatePMCFG opts cwd gr cmo@(cm,cmi) generatePMCFG opts cwd gr cmo@(cm,cmi)
| isModCnc cmi = do let gr' = prependModule gr cmo | mstatus cmi == MSComplete && isModCnc cmi =
js <- mapM (addPMCFG opts cwd gr' cmi) (Map.toList (jments cmi)) do let gr' = prependModule gr cmo
return (cm,cmi{jments = (Map.fromAscList js)}) js <- mapM (addPMCFG opts cwd gr' cmi) (Map.toList (jments cmi))
| otherwise = return cmo return (cm,cmi{jments = (Map.fromAscList js)})
| otherwise = return cmo
addPMCFG opts cwd gr cmi (id,CncCat mty@(Just (L loc ty)) mdef mref mprn Nothing) = do addPMCFG opts cwd gr cmi (id,CncCat mty@(Just (L loc ty)) mdef mref mprn Nothing) = do
defs <- case mdef of defs <- case mdef of