diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 20:15:25 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-15 20:15:25 -0800 |
| commit | d5c7d66735006070fd1bfd1289d526380ea10d14 (patch) | |
| tree | 22c31a04f83f64c6934288117bf4ccac42a31107 /src/Text/Pandoc/Writers/HTML.hs | |
| parent | a5cac0a0c401b0d5c901ac734c877f6a32bddb40 (diff) | |
| parent | e6bd29e9b81ff40f59bb7f7cbca54d352a519576 (diff) | |
| download | pandoc-d5c7d66735006070fd1bfd1289d526380ea10d14.tar.gz | |
Merge pull request #1803 from mpickering/bugfixes
Bugfixes
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index e261cfca8..1760ee006 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -60,7 +60,7 @@ import qualified Text.Blaze.XHtml1.Transitional.Attributes as A import Text.Blaze.Renderer.String (renderHtml) import Text.TeXMath import Text.XML.Light.Output -import Text.XML.Light (unode, elChildren, add_attr, unqual) +import Text.XML.Light (unode, elChildren, unqual) import qualified Text.XML.Light as XML import System.FilePath (takeExtension) import Data.Monoid @@ -639,7 +639,9 @@ annotateMML e tex = math (unode "semantics" [cs, unode "annotation" (annotAttrs, [] -> unode "mrow" () [x] -> x xs -> unode "mrow" xs - math = add_attr (XML.Attr (unqual "xmlns") "http://www.w3.org/1998/Math/MathML") . unode "math" + math childs = XML.Element q as [XML.Elem childs] l + where + (XML.Element q as _ l) = e annotAttrs = [XML.Attr (unqual "encoding") "application/x-tex"] |