aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/CSS.hs
diff options
context:
space:
mode:
authormb21 <mb21@users.noreply.github.com>2015-12-02 23:56:44 +0100
committermb21 <mb21@users.noreply.github.com>2015-12-02 23:56:44 +0100
commit1f379da94beeb52c5899ee920f2d19416422f570 (patch)
treed11adfe33ac8d833ba437e26d1b2ee6845d3f6f6 /src/Text/Pandoc/CSS.hs
parentad6578f6732a397a453249a5b66e1c5f63a6d847 (diff)
downloadpandoc-1f379da94beeb52c5899ee920f2d19416422f570.tar.gz
Parse CSS that doesn't contain the optional semicolon
Diffstat (limited to 'src/Text/Pandoc/CSS.hs')
-rw-r--r--src/Text/Pandoc/CSS.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/CSS.hs b/src/Text/Pandoc/CSS.hs
index f829ebf82..2287a5958 100644
--- a/src/Text/Pandoc/CSS.hs
+++ b/src/Text/Pandoc/CSS.hs
@@ -10,7 +10,7 @@ import Text.Parsec.String
ruleParser :: Parser (String, String)
ruleParser = do
p <- many1 (noneOf ":") <* char ':'
- v <- many1 (noneOf ":;") <* char ';' <* spaces
+ v <- many1 (noneOf ":;") <* (optional $ char ';') <* spaces
return (trim p, trim v)
styleAttrParser :: Parser [(String, String)]