From 8afb450eb104e5335f4b1b976512842f7059142c Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 21 Aug 2011 19:09:15 +0200
Subject: Show invalid input in case of parsing error in template

As a side-effect, parts without substitution vars will be displayed
as-is, fixing a bug reported by RC in the mailing list.
---
 src/Parsers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Parsers.hs')

diff --git a/src/Parsers.hs b/src/Parsers.hs
index 1450a0e..baaa287 100644
--- a/src/Parsers.hs
+++ b/src/Parsers.hs
@@ -87,7 +87,7 @@ templateParser = many . templateStringParser
 parseTemplate :: Config -> String -> IO [(Runnable,String,String)]
 parseTemplate c s =
     do str <- case parse (templateParser c) "" s of
-                Left _  -> return [("","","")]
+                Left _  -> return [("", s, "")]
                 Right x -> return x
        let cl = map alias (commands c)
            m  = Map.fromList $ zip cl (commands c)
-- 
cgit v1.2.3