diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-25 19:43:30 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-25 19:43:30 -0800 |
| commit | ae7455811461a7f5c7e1130dc1a31e45f6684c55 (patch) | |
| tree | 6bbb17e98854687c38de9fef7591e64906450251 /src | |
| parent | 846be80c268697a3ee07a292db6dd78208aaabe2 (diff) | |
| download | pandoc-ae7455811461a7f5c7e1130dc1a31e45f6684c55.tar.gz | |
Markdown reader: Moved guardEnabled to definitionList.
From definitionListItem.
Slight performance improvement.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 558043b3c..88ce86d38 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -736,7 +736,6 @@ defListMarker = do definitionListItem :: MarkdownParser (F (Inlines, [Blocks])) definitionListItem = try $ do - guardEnabled Ext_definition_lists -- first, see if this has any chance of being a definition list: lookAhead (anyLine >> optional blankline >> defListMarker) term <- trimInlinesF . mconcat <$> manyTill inline newline @@ -763,6 +762,7 @@ defRawBlock = try $ do definitionList :: MarkdownParser (F Blocks) definitionList = do + guardEnabled Ext_definition_lists items <- fmap sequence $ many1 definitionListItem return $ B.definitionList <$> fmap compactify'DL items |