diff options
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/HelpFile.hs | 1 | ||||
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 2 | ||||
| -rw-r--r-- | src/GF/Shell/TeachYourself.hs | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Shell/HelpFile.hs b/src/GF/Shell/HelpFile.hs index eebaebd57..a54646710 100644 --- a/src/GF/Shell/HelpFile.hs +++ b/src/GF/Shell/HelpFile.hs @@ -375,6 +375,7 @@ txtHelpFile = "\n the results line by line." ++ "\n options:" ++ "\n -short show analyses in bracketed words, instead of separate lines" ++ + "\n -status show just the work at success, prefixed with \"*\" at failure" ++ "\n flags:" ++ "\n -lang" ++ "\n examples:" ++ diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index 1ed778188..fba8a80a7 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -195,7 +195,7 @@ optionsOfCommand co = case co of CLookupTreebank -> both "assocs raw strings trees" "treebank" CWrapTerm _ -> opts "c" CApplyTransfer _ -> flags "lang transfer" - CMorphoAnalyse -> both "short" "lang" + CMorphoAnalyse -> both "short status" "lang" CTestTokenizer -> flags "lexer" CComputeConcrete _ -> both "table" "res" CShowOpers _ -> flags "res" diff --git a/src/GF/Shell/TeachYourself.hs b/src/GF/Shell/TeachYourself.hs index 5c2170f55..7e5a8afe2 100644 --- a/src/GF/Shell/TeachYourself.hs +++ b/src/GF/Shell/TeachYourself.hs @@ -58,7 +58,7 @@ morphoTrainList opts ig number = do mkOnes gen ts where mkOnes gen (t:ts) = do - psss <- ioeErr $ allLinTables gr cnc t + psss <- ioeErr $ allLinTables True gr cnc t let pss = concat $ map snd $ concat psss let (i,gen') = randomR (0, length pss - 1) gen (ps,ss) <- ioeErr $ pss !? i |