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

some fixes for Shae

Browse Source
This commit is contained in:
aarne
2004-06-23 11:57:17 +00:00
parent 0c84670725
commit 6802bcca2c
6 changed files with 174 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/ShellState.hs
View File

@@ -67,6 +67,8 @@ emptyShellState = ShSt {
statistics = []
}
optInitShellState os = addGlobalOptions os emptyShellState
type Language = Ident
language = identC
prLanguage = prIdent
@@ -225,7 +227,7 @@ greatestAbstract gr = case allAbstracts gr of
-- all resource modules
allResources :: G.SourceGrammar -> [Ident]
allResources gr = [i | (i,M.ModMod m) <- M.modules gr, M.mtype m == M.MTResource]
allResources gr = [i | (i,M.ModMod m) <- M.modules gr, M.isModRes m]
-- the greatest resource in dependency order