diff options
Diffstat (limited to 'Text')
| -rw-r--r-- | Text/Pandoc/Readers/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Text/Pandoc/Readers/LaTeX.hs b/Text/Pandoc/Readers/LaTeX.hs index 79f9fc0f7..ac338c106 100644 --- a/Text/Pandoc/Readers/LaTeX.hs +++ b/Text/Pandoc/Readers/LaTeX.hs @@ -212,7 +212,7 @@ mathBlockWith start end = try $ do spaces result <- manyTill anyChar end spaces - return $ BlockQuote [Para [TeX ("$" ++ result ++ "$")]] + return $ BlockQuote [Para [Math result]] -- -- list blocks @@ -594,13 +594,13 @@ math1 = try $ do char '$' result <- many (noneOf "$") char '$' - return $ TeX ("$" ++ result ++ "$") + return $ Math result math2 = try $ do string "\\(" result <- many (noneOf "$") string "\\)" - return $ TeX ("$" ++ result ++ "$") + return $ Math result -- -- links and images |