diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-29 08:09:17 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-29 08:09:17 +0000 |
| commit | 576ddc1b99bdb09c5ba8dcc19360701b9119ae35 (patch) | |
| tree | 5f49dafc110b5b3c0039d3834454f880e84f2b9f | |
| parent | 7f4fd9ab3d2f5b0dcbe2cd4b38d6089f7d0f096d (diff) | |
Modified markdown reader for new Math block.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1115 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs index ded9f2136..75b9ad134 100644 --- a/Text/Pandoc/Readers/Markdown.hs +++ b/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)) >>= |