diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Blaze.hs | 6 |
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 |