From ae7455811461a7f5c7e1130dc1a31e45f6684c55 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 25 Jan 2013 19:43:30 -0800 Subject: Markdown reader: Moved guardEnabled to definitionList. From definitionListItem. Slight performance improvement. --- src/Text/Pandoc/Readers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') 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 -- cgit v1.2.3