From c2ab44af840021c4269e12adcadd53f7345b9192 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 15 Jul 2015 08:15:08 -0700 Subject: `--self-contained`: Fixed overaggressive CSS minimization. Previously `--self-contained` wiped out all spaces in CSS, including semantically significant spaces! Closes #2301. Closes #2286. --- src/Text/Pandoc/SelfContained.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/SelfContained.hs') diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs index 896e4327a..a77127286 100644 --- a/src/Text/Pandoc/SelfContained.hs +++ b/src/Text/Pandoc/SelfContained.hs @@ -103,8 +103,9 @@ parseCSSUrls :: MediaBag -> Maybe String -> FilePath parseCSSUrls media sourceURL d = B.concat <$> P.many (pCSSWhite <|> pCSSComment <|> pCSSUrl media sourceURL d <|> pCSSOther) +-- Note: some whitespace in CSS is significant, so we can't collapse it! pCSSWhite :: ParsecT ByteString () IO ByteString -pCSSWhite = P.space >> P.spaces >> return B.empty +pCSSWhite = B.singleton <$> P.space <* P.spaces pCSSComment :: ParsecT ByteString () IO ByteString pCSSComment = P.try $ do -- cgit v1.2.3