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 | |
| parent | 0c84670725da286a1fdaffcd49b2dbad7160cf03 (diff) | |
some fixes for Shae
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 4 | ||||
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 2 |
2 files changed, 4 insertions, 2 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 diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index 971097d71..451776108 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -166,7 +166,7 @@ optionsOfCommand co = case co of CHelp _ -> opts "all" CImpure ICEditSession -> opts "f" - CImpure ICTranslateSession -> both "f" "cat" + CImpure ICTranslateSession -> both "f langs" "cat" _ -> none |