aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-07-23 23:10:05 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-07-23 23:10:05 +0000
commit06983c9ba5e7c051b9c85969f1cf5fa1922044fc (patch)
tree2ae6c7b7bd26e1dbd1decc44674614eb9a46fcbf /Text/Pandoc
parent4725e7b1a7cae831d8b4a72acf2e95084c5bc501 (diff)
downloadpandoc-06983c9ba5e7c051b9c85969f1cf5fa1922044fc.tar.gz
Markdown reader: Parse setext headers before atx headers.
Test case: # hi ==== parsed by Markdown.pl as an H1 header with contents "# hi". git-svn-id: https://pandoc.googlecode.com/svn/trunk@1334 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc')
-rw-r--r--Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index db9e214b0..712d66a37 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -284,7 +284,7 @@ block = do
--
header :: GenParser Char ParserState Block
-header = atxHeader <|> setextHeader <?> "header"
+header = setextHeader <|> atxHeader <?> "header"
atxHeader :: GenParser Char ParserState Block
atxHeader = try $ do