diff options
Diffstat (limited to 'src/GF/Shell/ShellCommands.hs')
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index a0c40f3a6..650364d45 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -91,7 +91,7 @@ isValidOption st co op = case op of testValidFlag st o x _ -> Bad $ "impossible option" +++ prOpt op where - optsOf co = fst $ optionsOfCommand co + optsOf co = ("tr" :) $ fst $ optionsOfCommand co flagsOf co = snd $ optionsOfCommand co testValidFlag :: ShellState -> OptFunId -> String -> Err () @@ -134,7 +134,7 @@ optionsOfCommand co = case co of CTransformGrammar _ -> flags "printer" CConvertLatex _ -> none CLinearize _ -> both "table struct record" "lang number unlexer" - CParse -> both "n ign raw v" "cat lang lexer parser number" + CParse -> both "new n ign raw v" "cat lang lexer parser number" CTranslate _ _ -> opts "cat lexer parser" CGenerateRandom -> flags "cat lang number depth" CGenerateTrees -> both "metas" "depth alts cat lang number" |