From 872fd2fb9c6966024618f89dfa136aeac25ac9bc Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 11 Aug 2012 16:36:54 -0700
Subject: Revert "Implemented Ext_markdown_attribute."

This reverts commit 78d3a0fb9d3f862d5e2b61bd45434f7af9cd9f18.
---
 src/Text/Pandoc/Readers/Markdown.hs | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Markdown.hs')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index fbcdeeb14..8a1299de6 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -736,19 +736,10 @@ rawTeXBlock = do
   spaces
   return $ return result
 
-addMarkdownAttribute :: (Tag String, String) -> Parser [Char] ParserState String
-addMarkdownAttribute (t,s) = do
-  (guardDisabled Ext_markdown_attribute >> return s)
- <|>  case t of
-       TagOpen x attrs
-         | "markdown" `elem` map fst attrs -> return s
-         | otherwise -> return $ renderTags [TagOpen x (("markdown","1"):attrs)]
-       _ -> return s
-
 rawHtmlBlocks :: Parser [Char] ParserState String
 rawHtmlBlocks = do
   htmlBlocks <- many1 $ do blk <- rawVerbatimBlock <|>
-                                   (htmlTag isBlockTag >>= addMarkdownAttribute)
+                                   liftM snd (htmlTag isBlockTag)
                            sps <- do sp1 <- many spaceChar
                                      sp2 <- option "" (blankline >> return "\n")
                                      sp3 <- many spaceChar
-- 
cgit v1.2.3