diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-10-18 13:57:48 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-10-18 13:58:08 -0700 |
| commit | 328ff8e71fc9d933b37a4c0273c92a42ceea533c (patch) | |
| tree | 12fb2aa6f911823ce60a6733f3bd6fee666a01f5 /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | 84f6b1e41a9d0c44ec4a87dfbb5de9f19407b919 (diff) | |
Markdown reader: allow `startnum` to work without `fancy_lists`.
Formerly `pandoc -f markdown-fancy_lists+startnum` did not work
properly.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 02a787670..7a3be8291 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -735,9 +735,9 @@ anyOrderedListStart = try $ do skipNonindentSpaces notFollowedBy $ string "p." >> spaceChar >> digit -- page number res <- do guardDisabled Ext_fancy_lists - many1 digit + start <- many1 digit >>= safeRead char '.' - return (1, DefaultStyle, DefaultDelim) + return (start, DefaultStyle, DefaultDelim) <|> do (num, style, delim) <- anyOrderedListMarker -- if it could be an abbreviated first name, -- insist on more than one space |