From 7f4fd9ab3d2f5b0dcbe2cd4b38d6089f7d0f096d Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Thu, 29 Nov 2007 08:09:13 +0000
Subject: Modified LaTeX reader for new Math blocks.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1114 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/LaTeX.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Text')

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
-- 
cgit v1.2.3