diff options
| author | krasimir <krasimir@chalmers.se> | 2010-05-19 12:31:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-05-19 12:31:36 +0000 |
| commit | 31856ebb4cf9aa181b2875c88e964cefae319c96 (patch) | |
| tree | 3a933cbff8c17c1ccb1073adfcf0dd0ca6925dfc /src/compiler/GF/Command/Commands.hs | |
| parent | ec227abe43d73817325b7e7c121fcda047f56dca (diff) | |
now the parser could return partial parse results
Diffstat (limited to 'src/compiler/GF/Command/Commands.hs')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 2de7fb9cf..2ea3e169c 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -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)) |