git.iko.soy/typeable/pandoc
on master help sign in
hlint fixes.
a7f6241John MacFarlane
src/Text/Pandoc/CSS.hs+1−3
compare with master
unifiedsplit
@@ -14,9 +14,7 @@ ruleParser = do
14 return (trim p, trim v)
14 return (trim p, trim v)
15
15
16styleAttrParser :: Parser [(String, String)]
16styleAttrParser :: Parser [(String, String)]
17−styleAttrParser = do
18− p <- many1 ruleParser
17+styleAttrParser = many1 ruleParser
19− return p
20
18
21orElse :: Eq a => a -> a -> a -> a
19orElse :: Eq a => a -> a -> a -> a
22orElse v x y = if v == x then y else x
20orElse v x y = if v == x then y else x