Fix regression: allow blank lines in HTML attributes.

The commit 7a9832166e
had the effect that blank lines would be collapsed
in HTML attributes.

We also roll back a change that collapsed multiple
spaces into one.

src/Text/Pandoc/Writers/Blaze.hs

@@ -113,8 +113,8 @@ toChunks :: Text -> [Doc Text]
 toChunks = map toDoc . T.groupBy sameStatus
   where
    toDoc t
-     | T.any (== ' ')  t = space
-     | T.any (== '\n') t = cr
+     | t == " " = space
+     | t == "\n" = cr
      | otherwise         = literal t
    sameStatus c d =
      (c == ' ' && d == ' ') ||

test/command/4639.md

@@ -5,6 +5,6 @@
 \end{equation}
 ^D
 <p><span class="math display">\[\begin{equation}
-E=mc^2
+  E=mc^2
 \end{equation}\]</span></p>
 ```