diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-03-05 20:30:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-03-05 20:30:37 +0000 |
| commit | 65d841bc1bd8c63a154bbc674d447dcabdd34400 (patch) | |
| tree | 893c25c44ca4b13f8abb09f8fbef8643ce633b82 /src/GF/Shell/ShellCommands.hs | |
| parent | 2657c51e040964d9704f5c69945685ebd546eb6a (diff) | |
make help and treebank options
Diffstat (limited to 'src/GF/Shell/ShellCommands.hs')
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index 0b08f3f9d..160f7bc22 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -168,11 +168,11 @@ testValidFlag st co f x = case f of optionsOfCommand :: Command -> ([String],[String]) optionsOfCommand co = case co of - CSetFlag -> both "utf8 table struct record all multi" - "cat lang lexer parser number depth rawtrees unlexer optimize path conversion printer" - + CSetFlag -> + both "utf8 table struct record all multi" + "cat lang lexer parser number depth rawtrees unlexer optimize path conversion printer" CImport _ -> - both "old v s src gfc retain nocf nocheckcirc cflexer noemit o make ex prob treebank" + both "old v s src make gfc retain nocf nocheckcirc cflexer noemit o make ex prob treebank" "abs cnc res path optimize conversion cat preproc probs noparse" CRemoveLanguage _ -> none CEmptyState -> none |