diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-21 09:00:30 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-21 09:00:30 -0800 |
| commit | c468272e340233ef0bdd75c9422c6167e05d5898 (patch) | |
| tree | 6349d97d35af9b36058f5f23e348eb4b42972073 /src | |
| parent | 24e3a65167236465aeb2e384bc4aa394be8b47cd (diff) | |
| download | pandoc-c468272e340233ef0bdd75c9422c6167e05d5898.tar.gz | |
HTML writer: Don't escape contents of EQ tags with --gladtex.
This fixes a regression from 1.8.x. Closes #428.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index f35b29370..9dd29f183 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -610,8 +610,8 @@ inlineToHtml opts inline = DisplayMath -> brtag >> m >> brtag GladTeX -> return $ case t of - InlineMath -> preEscapedString "<EQ ENV=\"math\">" >> toHtml str >> preEscapedString "</EQ>" - DisplayMath -> preEscapedString "<EQ ENV=\"displaymath\">" >> toHtml str >> preEscapedString "</EQ>" + InlineMath -> preEscapedString $ "<EQ ENV=\"math\">" ++ str ++ "</EQ>" + DisplayMath -> preEscapedString $ "<EQ ENV=\"displaymath\">" ++ str ++ "</EQ>" MathML _ -> do let dt = if t == InlineMath then DisplayInline |