From 67fabb0e0d2666d32bdbd6d31b871f8a0296afe7 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 16 Oct 2008 11:33:09 +0000
Subject: [PATCH] In shell "p" command, only try languages that have a parser.

---
 src/GF/Command/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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