aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Readers
diff options
context:
space:
mode:
Diffstat (limited to 'Text/Pandoc/Readers')
-rw-r--r--Text/Pandoc/Readers/LaTeX.hs6
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