Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Work around Monoid/Semigroup-related compiler errors GHC 7.10.

Browse source
This commit is contained in:
John MacFarlane 2018-03-17 14:25:05 -07:00
parent 2eba15c181
commit 605545e024
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/Text/Pandoc/Writers/HTML.hs
View file

@ -276,17 +276,15 @@ pandocToHtml opts (Pandoc meta blocks) = do
H.script ! A.src (toValue url)
! A.type_ "text/javascript"
$ mempty
KaTeX url ->
(H.script !
A.src (toValue $ url ++ "katex.min.js") $ mempty) <>
(H.script !
A.src (toValue $ url ++ "contrib/auto-render.min.js")
$ mempty) <>
(
H.script
"document.addEventListener(\"DOMContentLoaded\", function() {\n renderMathInElement(document.body);\n});") <>
(H.link ! A.rel "stylesheet" !
A.href (toValue $ url ++ "katex.min.css"))
KaTeX url -> do
H.script !
A.src (toValue $ url ++ "katex.min.js") $ mempty
H.script !
A.src (toValue $ url ++ "contrib/auto-render.min.js") $ mempty
H.script
"document.addEventListener(\"DOMContentLoaded\", function() {\n renderMathInElement(document.body);\n});"
H.link ! A.rel "stylesheet" !
A.href (toValue $ url ++ "katex.min.css")
_ -> case lookup "mathml-script" (writerVariables opts) of
Just s | not (stHtml5 st) ->
@ -961,8 +959,9 @@ inlineToHtml opts inline = do
WrapNone -> preEscapedString " "
WrapAuto -> preEscapedString " "
WrapPreserve -> preEscapedString "\n"
LineBreak -> return $ (if html5 then H5.br else H.br)
<> strToHtml "\n"
LineBreak -> return $ do
if html5 then H5.br else H.br
strToHtml "\n"
(Span (id',classes,kvs) ils)
-> inlineListToHtml opts ils >>=
addAttrs opts attr' . H.span