From 4b73d3043896c2d759a60894bdfdadbc10d93bf4 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Tue, 29 Apr 2008 14:59:53 +0200 Subject: style, pointfree and trailing spaces darcs-hash:20080429125953-d6583-02a6653c15d3166ad264c45ec44082bdae30260e.gz --- Parsers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Parsers.hs') 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) -- cgit v1.2.3