ma -status; sep lines for l -all

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:" ++

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"

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