diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-22 07:38:51 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-22 07:38:51 -0800 |
| commit | a7f6241f508eb78047889c8e7c391d39f99b59ae (patch) | |
| tree | ad02abd2bd7f1c9f5e17895049a5060aa148ce9e | |
| parent | 4b293a6a547cf6b9264a2f257e6fc88a0fc0f5ad (diff) | |
| download | pandoc-a7f6241f508eb78047889c8e7c391d39f99b59ae.tar.gz | |
hlint fixes.
| -rw-r--r-- | src/Text/Pandoc/CSS.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |