@@ -736,7 +736,6 @@ defListMarker = do
737definitionListItem :: MarkdownParser (F (Inlines, [Blocks]))
737definitionListItem :: MarkdownParser (F (Inlines, [Blocks]))
738definitionListItem = try $ do
738definitionListItem = try $ do
739− guardEnabled Ext_definition_lists
740 -- first, see if this has any chance of being a definition list:
739 -- first, see if this has any chance of being a definition list:
741 lookAhead (anyLine >> optional blankline >> defListMarker)
740 lookAhead (anyLine >> optional blankline >> defListMarker)
742 term <- trimInlinesF . mconcat <$> manyTill inline newline
741 term <- trimInlinesF . mconcat <$> manyTill inline newline
@@ -763,6 +762,7 @@ defRawBlock = try $ do
764definitionList :: MarkdownParser (F Blocks)
763definitionList :: MarkdownParser (F Blocks)
765definitionList = do
764definitionList = do
765+ guardEnabled Ext_definition_lists
766 items <- fmap sequence $ many1 definitionListItem
766 items <- fmap sequence $ many1 definitionListItem
767 return $ B.definitionList <$> fmap compactify'DL items
767 return $ B.definitionList <$> fmap compactify'DL items