From 0c475bfd4792a29e5527f63d3adfa4256d75af68 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 28 Aug 2007 06:58:20 +0000
Subject: Refactored setext header parsing in Markdown reader for greater
 speed.

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

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 600742bee..057aec2ee 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -231,12 +231,10 @@ atxHeader = try $ do
 
 atxClosing = try $ skipMany (char '#') >> blanklines
 
-setextHeader = choice $ map setextH $ enumFromTo 1 (length setextHChars)
-
-setextH level = try $ do
+setextHeader = try $ do
   text <- many1Till inline newline >>= return . normalizeSpaces
-  many1 $ char (setextHChars !! (level - 1))
-  blanklines
+  level <- choice $ zipWith (\ch lev -> try (many1 $ char ch) >> blanklines >> return lev)
+                    setextHChars [1..(length setextHChars)]
   return $ Header level text
 
 --
-- 
cgit v1.2.3