From a7f6241f508eb78047889c8e7c391d39f99b59ae Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 22 Nov 2015 07:38:51 -0800 Subject: hlint fixes. --- src/Text/Pandoc/CSS.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text/Pandoc/CSS.hs') diff --git a/src/Text/Pandoc/CSS.hs b/src/Text/Pandoc/CSS.hs index 9d0c84243..f829ebf82 100644 --- a/src/Text/Pandoc/CSS.hs +++ b/src/Text/Pandoc/CSS.hs @@ -14,9 +14,7 @@ ruleParser = do return (trim p, trim v) styleAttrParser :: Parser [(String, String)] -styleAttrParser = do - p <- many1 ruleParser - return p +styleAttrParser = many1 ruleParser orElse :: Eq a => a -> a -> a -> a orElse v x y = if v == x then y else x -- cgit v1.2.3