trailing space and variable name for the XFT version of printString

Ignore-this: f39d8322665f04683ec99758d290cf49

darcs-hash:20090409113819-d6583-71f93fdd720f5c83fa833062ec4aaf991b432aec.gz

1 files changed, 1 insertions, 1 deletions

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)]