diff options
| author | aarne <unknown> | 2004-06-23 11:57:17 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-06-23 11:57:17 +0000 |
| commit | 6802bcca2c9a1e7d3e079b308844ec6422a2af48 (patch) | |
| tree | 4b626417987837f7a9a7a3fca5c2cfb8b9854e8a /src/GF/Compile | |
| parent | 0c84670725da286a1fdaffcd49b2dbad7160cf03 (diff) | |
some fixes for Shae
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 2b602ecca..a306902d9 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -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 |