diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-06-28 01:38:40 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-06-28 01:38:40 +0000 |
commit | 32f357c1108306b35a8d7ccbf2503a733ca9b529 (patch) | |
tree | 20a138b9bea4a749ac9b522d888dd34e8aed600e /src/Text/Pandoc | |
parent | 313405f59aa09b6f1a027002d35bc75cb15c976e (diff) | |
download | pandoc-32f357c1108306b35a8d7ccbf2503a733ca9b529.tar.gz |
RST reader: Allow # to continue list...
...even if the list was started with an explicit
marker. For example:
A. my list
#. continued
Resolves Issue #140. Test case also added.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1584 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 82ae08601..b67e169c8 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -612,8 +612,9 @@ orderedListMarker :: ListNumberStyle -> ListNumberDelim -> GenParser Char st Int orderedListMarker style delim = do - let num = case style of - DefaultStyle -> decimal <|> defaultNum + let num = defaultNum <|> -- # can continue any kind of list + case style of + DefaultStyle -> decimal Decimal -> decimal UpperRoman -> upperRoman LowerRoman -> lowerRoman |