@@ -212,7 +212,7 @@ mathBlockWith start end = try $ do
212212 spaces
213213 result <- manyTill anyChar end
214214 spaces
215− return $ BlockQuote [Para [TeX ("$" ++ result ++ "$")]]
215+ return $ BlockQuote [Para [Math result]]
216216
217217--
218218-- list blocks
@@ -594,13 +594,13 @@ math1 = try $ do
594594 char '$'
595595 result <- many (noneOf "$")
596596 char '$'
597− return $ TeX ("$" ++ result ++ "$")
597+ return $ Math result
598598
599599math2 = try $ do
600600 string "\\("
601601 result <- many (noneOf "$")
602602 string "\\)"
603− return $ TeX ("$" ++ result ++ "$")
603+ return $ Math result
604604
605605--
606606-- links and images