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

fix compilation in -resource mode

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-22 09:02:03 +02:00
parent 3b36b381aa
commit ac427d63f2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/api/GF/Compile/CheckGrammar.hs
View File

@@ -65,7 +65,7 @@ checkRestrictedInheritance cwd sgr (name,mo) = checkInModule cwd mo NoLoc empty
-- the restr. modules themself, with restr. infos -- the restr. modules themself, with restr. infos
mapM_ checkRem mrs mapM_ checkRem mrs
where where
mos = modules sgr mos = [mo | mo@(_,ModInfo{}) <- modules sgr]
checkRem ((i,m),mi) = do checkRem ((i,m),mi) = do
let (incl,excl) = partition (isInherited mi) (Map.keys (jments m)) let (incl,excl) = partition (isInherited mi) (Map.keys (jments m))
let incld c = Set.member c (Set.fromList incl) let incld c = Set.member c (Set.fromList incl)