From 1f379da94beeb52c5899ee920f2d19416422f570 Mon Sep 17 00:00:00 2001
From: mb21 <mb21@users.noreply.github.com>
Date: Wed, 2 Dec 2015 23:56:44 +0100
Subject: Parse CSS that doesn't contain the optional semicolon
---
src/Text/Pandoc/CSS.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
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)]
--
cgit v1.2.3