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

2010-03-21 22:48:47 -07:00 · 2010-03-21 22:48:47 -07:00 · 483a591eba
commit 483a591eba
parent 9cc54751ec
1 changed files with 5 additions and 3 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -465,9 +465,11 @@ inlineToHtml opts inline =
                                  case texMathToMathML dt str of
                                        Right r -> return $ primHtml $
                                                    ppcElement conf r
-                                        Left  _ -> inlineToHtml opts
-                                                     (Math t str)
-                               PlainMath -> 
+                                        Left  _ -> inlineListToHtml opts
+                                                    (readTeXMath str) >>=
+                                                      return . (thespan !
+                                                      [theclass "math"])
+                               PlainMath ->
                                  inlineListToHtml opts (readTeXMath str) >>=
                                  return . (thespan ! [theclass "math"]) ) 
    (TeX str)        -> case writerHTMLMathMethod opts of