@@ -230,10 +230,6 @@ pandocToHtml opts (Pandoc meta blocks) = do
230230 H.script ! A.src (toValue url)
231231 ! A.type_ "text/javascript"
232232 $ mempty
233− MathML (Just url) ->
234− H.script ! A.src (toValue url)
235− ! A.type_ "text/javascript"
236− $ mempty
237233 MathJax url ->
238234 H.script ! A.src (toValue url)
239235 ! A.type_ "text/javascript"
@@ -903,7 +899,7 @@ inlineToHtml opts inline = do
903899 return $ case t of
904900 InlineMath -> preEscapedString $ "<EQ ENV=\"math\">" ++ str ++ "</EQ>"
905901 DisplayMath -> preEscapedString $ "<EQ ENV=\"displaymath\">" ++ str ++ "</EQ>"
906− MathML _ -> do
902+ MathML -> do
907903 let conf = useShortEmptyTags (const False)
908904 defaultConfigPP
909905 res <- lift $ convertMath writeMathML t str
@@ -1061,6 +1057,6 @@ isMathEnvironment s = "\\begin{" `isPrefixOf` s &&
10611057
10621058allowsMathEnvironments :: HTMLMathMethod -> Bool
10631059allowsMathEnvironments (MathJax _) = True
1064−allowsMathEnvironments (MathML _) = True
1060+allowsMathEnvironments (MathML) = True
10651061allowsMathEnvironments (WebTeX _) = True
10661062allowsMathEnvironments _ = False