style, pointfree and trailing spaces0.9_release

darcs-hash:20080429125953-d6583-02a6653c15d3166ad264c45ec44082bdae30260e.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Parsers.hs b/Parsers.hs
index 4c9cc8e..5c086ff 100644
--- a/Parsers.hs
+++ b/Parsers.hs
@@ -79,7 +79,7 @@ templateParser = many . templateStringParser
 -- | Actually runs the template parsers
 parseTemplate :: Config -> String -> IO [(Runnable,String,String)]
 parseTemplate c s =
-    do str <- case (parse (templateParser c) "" s) of
+    do str <- case parse (templateParser c) "" s of
                 Left _  -> return [("","","")]
                 Right x -> return x
        let cl = map alias (commands c)