From c2ab44af840021c4269e12adcadd53f7345b9192 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 15 Jul 2015 08:15:08 -0700
Subject: [PATCH] `--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(-)

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