@@ -103,8 +103,9 @@ parseCSSUrls :: MediaBag -> Maybe String -> FilePath
103103parseCSSUrls media sourceURL d = B.concat <$> P.many
104104 (pCSSWhite <|> pCSSComment <|> pCSSUrl media sourceURL d <|> pCSSOther)
105105
106+-- Note: some whitespace in CSS is significant, so we can't collapse it!
106107pCSSWhite :: ParsecT ByteString () IO ByteString
107−pCSSWhite = P.space >> P.spaces >> return B.empty
108+pCSSWhite = B.singleton <$> P.space <* P.spaces
108109
109110pCSSComment :: ParsecT ByteString () IO ByteString
110111pCSSComment = P.try $ do