From 83243937b55862136a0d41303d318d07e51db982 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 9 Apr 2009 13:38:19 +0200 Subject: trailing space and variable name for the XFT version of printString Ignore-this: f39d8322665f04683ec99758d290cf49 darcs-hash:20090409113819-d6583-71f93fdd720f5c83fa833062ec4aaf991b432aec.gz --- Parsers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Parsers.hs') diff --git a/Parsers.hs b/Parsers.hs index 8792a69..8867dba 100644 --- a/Parsers.hs +++ b/Parsers.hs @@ -73,7 +73,7 @@ templateStringParser c = do templateCommandParser :: Config -> Parser String templateCommandParser c = let chr = char . head . sepChar - in between (chr c) (chr c) (allTillSep c) + in between (chr c) (chr c) (allTillSep c) -- | Combines the template parsers templateParser :: Config -> Parser [(String,String,String)] -- cgit v1.2.3