Modified markdown reader for new Math block.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1115 788f1e2b-df1e-0410-8736-df70ead52e1b

Text/Pandoc/Readers/Markdown.hs

@@ -704,7 +704,7 @@ math = try $ do
   notFollowedBy space
   words <- sepBy1 mathWord (many1 space)
   char '$'
-  return $ TeX ("$" ++ (joinWithSep " " words) ++ "$")
+  return $ Math $ joinWithSep " " words
 
 emph = ((enclosed (char '*') (char '*') inline) <|>
         (enclosed (char '_') (char '_' >> notFollowedBy alphaNum) inline)) >>=