diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-03-21 22:48:47 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-03-21 22:48:47 -0700 |
| commit | 483a591eba6f250593fa7f26dd6491159bbb4ecb (patch) | |
| tree | a901904017f99ead3ba8549ed40ac3d5d2f8b662 /src/Text/Pandoc | |
| parent | 9cc54751ecd8046f66c583fb78f13638faede904 (diff) | |
| download | pandoc-483a591eba6f250593fa7f26dd6491159bbb4ecb.tar.gz | |
HTML writer: fixed error in Math writer that caused infinite loop.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 9bc75296d..d33dcff27 100644 --- 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 |