HTML writer: Don't escape contents of EQ tags with --gladtex.

This fixes a regression from 1.8.x.  Closes #428.
This commit is contained in:
John MacFarlane 2012-02-21 09:00:30 -08:00
parent 24e3a65167
commit c468272e34

View file

@ -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