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.
This commit is contained in:
parent
dd706bc49c
commit
6f739cdb4d
2 changed files with 3 additions and 3 deletions
|
@ -113,8 +113,8 @@ toChunks :: Text -> [Doc Text]
|
||||||
toChunks = map toDoc . T.groupBy sameStatus
|
toChunks = map toDoc . T.groupBy sameStatus
|
||||||
where
|
where
|
||||||
toDoc t
|
toDoc t
|
||||||
| T.any (== ' ') t = space
|
| t == " " = space
|
||||||
| T.any (== '\n') t = cr
|
| t == "\n" = cr
|
||||||
| otherwise = literal t
|
| otherwise = literal t
|
||||||
sameStatus c d =
|
sameStatus c d =
|
||||||
(c == ' ' && d == ' ') ||
|
(c == ' ' && d == ' ') ||
|
||||||
|
|
|
@ -5,6 +5,6 @@
|
||||||
\end{equation}
|
\end{equation}
|
||||||
^D
|
^D
|
||||||
<p><span class="math display">\[\begin{equation}
|
<p><span class="math display">\[\begin{equation}
|
||||||
E=mc^2
|
E=mc^2
|
||||||
\end{equation}\]</span></p>
|
\end{equation}\]</span></p>
|
||||||
```
|
```
|
||||||
|
|
Loading…
Add table
Reference in a new issue