diff options
| author | Mauro Bieg <mb21@users.noreply.github.com> | 2019-01-02 20:36:37 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-01-02 11:36:37 -0800 |
| commit | f1d83aea12b93b31f5218bed75bd0e9d8d373cb6 (patch) | |
| tree | ee6606c10b3790213c553f9fe6b5ea519f1a8dce /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 9097ec41a9c333f24fec63085806da392f8108d4 (diff) | |
| download | pandoc-f1d83aea12b93b31f5218bed75bd0e9d8d373cb6.tar.gz | |
Implement task lists (#5139)
Closes #3051
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 94d1157a6..dd1bedc91 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -958,7 +958,8 @@ listItem fourSpaceRule start = try $ do let raw = concat (first:continuations) contents <- parseFromString' parseBlocks raw updateState (\st -> st {stateParserContext = oldContext}) - return contents + exts <- getOption readerExtensions + return $ B.fromList . taskListItemFromAscii exts . B.toList <$> contents orderedList :: PandocMonad m => MarkdownParser m (F Blocks) orderedList = try $ do |