HTML writer: fixed error in Math writer that caused infinite loop.

This commit is contained in:
John MacFarlane 2010-03-21 22:48:47 -07:00
parent 9cc54751ec
commit 483a591eba

View file

@ -465,9 +465,11 @@ inlineToHtml opts inline =
case texMathToMathML dt str of case texMathToMathML dt str of
Right r -> return $ primHtml $ Right r -> return $ primHtml $
ppcElement conf r ppcElement conf r
Left _ -> inlineToHtml opts Left _ -> inlineListToHtml opts
(Math t str) (readTeXMath str) >>=
PlainMath -> return . (thespan !
[theclass "math"])
PlainMath ->
inlineListToHtml opts (readTeXMath str) >>= inlineListToHtml opts (readTeXMath str) >>=
return . (thespan ! [theclass "math"]) ) return . (thespan ! [theclass "math"]) )
(TeX str) -> case writerHTMLMathMethod opts of (TeX str) -> case writerHTMLMathMethod opts of