now the parser could return partial parse results

This commit is contained in:
krasimir
2010-05-19 12:31:36 +00:00
parent b196d8b640
commit 529447f56f
4 changed files with 56 additions and 30 deletions

View File

@@ -1004,9 +1004,7 @@ allCommands env@(pgf, mos) = Map.fromList [
toString = unwords . toStrings
fromParse opts ts parses
| isOpt "bracket" opts = case catMaybes bss of
[] -> ([], "no brackets found")
bss -> ([], unlines $ map showBracketedString bss)
| isOpt "bracket" opts = ([], unlines $ map showBracketedString bss)
| otherwise = case ts of
[] -> ([], "no trees found" ++
missingWordMsg (optMorpho opts) (concatMap words (toStrings ts))