@@ -610,8 +610,8 @@ inlineToHtml opts inline =
610 DisplayMath -> brtag >> m >> brtag
610 DisplayMath -> brtag >> m >> brtag
611 GladTeX ->
611 GladTeX ->
612 return $ case t of
612 return $ case t of
613− InlineMath -> preEscapedString "<EQ ENV=\"math\">" >> toHtml str >> preEscapedString "</EQ>"
613+ InlineMath -> preEscapedString $ "<EQ ENV=\"math\">" ++ str ++ "</EQ>"
614− DisplayMath -> preEscapedString "<EQ ENV=\"displaymath\">" >> toHtml str >> preEscapedString "</EQ>"
614+ DisplayMath -> preEscapedString $ "<EQ ENV=\"displaymath\">" ++ str ++ "</EQ>"
615 MathML _ -> do
615 MathML _ -> do
616 let dt = if t == InlineMath
616 let dt = if t == InlineMath
617 then DisplayInline
617 then DisplayInline