In shell "p" command, only try languages that have a parser.

This commit is contained in:
bjorn
2008-10-16 11:33:09 +00:00
parent 1f724b36bb
commit 67fabb0e0d

View File

@@ -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 = ([],[])