HTML writer: don't break attributes values when wrapping.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Writers/Blaze.hs b/src/Text/Pandoc/Writers/Blaze.hs
index 8233043a3..692e89e27 100644
--- a/src/Text/Pandoc/Writers/Blaze.hs
+++ b/src/Text/Pandoc/Writers/Blaze.hs
@@ -57,20 +57,20 @@ layoutMarkup = go True mempty
           (space' wrap
             <> literal (getText rawkey)
             <> char '='
-            <> doubleQuotes (fromChoiceString wrap value)
+            <> doubleQuotes (fromChoiceString False value)
             <> attrs) h
     go wrap attrs (AddCustomAttribute key value h) =
         go wrap
           (space' wrap
             <> fromChoiceString wrap key
             <> char '='
-            <> doubleQuotes (fromChoiceString wrap value)
+            <> doubleQuotes (fromChoiceString False value)
             <> attrs) h
     go wrap _ (Content content _) = fromChoiceString wrap content
     go wrap _ (Comment comment _) =
         literal "<!--"
             <> space' wrap
-            <> fromChoiceString wrap comment
+            <> fromChoiceString False comment
             <> space' wrap
             <> "-->"
     go wrap attrs (Append h1 h2) = go wrap attrs h1 <> go wrap attrs h2