diff options
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 |