git.iko.soy/typeable/pandoc
on master help sign in
Markdown reader: Fix parsing bug with nested fenced divs.
ac08a88John MacFarlane
src/Text/Pandoc/Readers/Markdown.hs−2
@@ -1971,7 +1971,6 @@ divHtml = try $ do
1971divFenced :: PandocMonad m => MarkdownParser m (F Blocks)
1971divFenced :: PandocMonad m => MarkdownParser m (F Blocks)
1972divFenced = try $ do
1972divFenced = try $ do
1973 guardEnabled Ext_fenced_divs
1973 guardEnabled Ext_fenced_divs
1974− nonindentSpaces
1975 string ":::"
1974 string ":::"
1976 skipMany (char ':')
1975 skipMany (char ':')
1977 skipMany spaceChar
1976 skipMany spaceChar
@@ -1986,7 +1985,6 @@ divFenced = try $ do
1986
1985
1987divFenceEnd :: PandocMonad m => MarkdownParser m ()
1986divFenceEnd :: PandocMonad m => MarkdownParser m ()
1988divFenceEnd = try $ do
1987divFenceEnd = try $ do
1989− nonindentSpaces
1990 string ":::"
1988 string ":::"
1991 skipMany (char ':')
1989 skipMany (char ':')
1992 blanklines
1990 blanklines
test/command/4281.mdnew file+18
@@ -0,0 +1,18 @@
1+```
2+% pandoc -t native
3+:::: {.a}
4+- ::: {.b}
5+ text
6+ :::
7+ ::: {.c}
8+ text
9+ :::
10+::::
11+^D
12+[Div ("",["a"],[])
13+ [BulletList
14+ [[Div ("",["b"],[])
15+ [Para [Str "text"]]
16+ ,Div ("",["c"],[])
17+ [Para [Str "text"]]]]]]
18+```