diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-16 11:33:09 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-16 11:33:09 +0000 |
| commit | 176dc3e730c5b8faf82457fd164135fc36faa291 (patch) | |
| tree | f1312b7652edf347fd1a089e64ca44972da95db1 /src/GF/Command | |
| parent | b0351dc6536dafc00860634a6098c56d134df6b6 (diff) | |
In shell "p" command, only try languages that have a parser.
Diffstat (limited to 'src/GF/Command')
| -rw-r--r-- | src/GF/Command/Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs index 2aa616739..57303f53f 100644 --- a/src/GF/Command/Commands.hs +++ b/src/GF/Command/Commands.hs @@ -530,7 +530,7 @@ allCommands cod pgf = Map.fromList [ where enc = encodeUnicode cod lin opts t = unlines [linearize pgf lang t | lang <- optLangs opts] - par opts s = concat [parse pgf lang (optCat opts) s | lang <- optLangs opts] + par opts s = concat [parse pgf lang (optCat opts) s | lang <- optLangs opts, canParse pgf lang] void = ([],[]) |