@@ -189,7 +189,8 @@ doc = mdo para // plain para <- newRule $ many1 inline <<- newline <<- many1 blankline ## Para plain <- newRule $ many1 inline <<- optional blankline ## Plain - blockquote <- newRule $ many1 blockquoteLine <++> many blankline ## (\ls -> BlockQuote [Markdown $ concat ls ++ "\n"]) + blockquote <- newRule $ many1 (many1 blockquoteLine <++> many (doesNotMatch blankline ->> anyline) <++> + many blankline ## concat) ## (\ls -> BlockQuote [Markdown $ concat ls ++ "\n"]) let setextHeadingWith lev c = many1 (doesNotMatch endline ->> inline) <<- newline <<- text (replicate 3 c) <<- (many (char c)) <<- newline ## Heading lev Markdown.hs ba78b2e030a4470aa8b9d22b01abf6b15290e99b John MacFarlane jgm@berkeley.edu http://github.com/jgm/markdown-peg/commit/dd79c1b3bc794e3f795f4c06224e24d5d053500d dd79c1b3bc794e3f795f4c06224e24d5d053500d 2008-05-15T22:54:47-07:00 2008-05-15T22:54:47-07:00 Fixed blockquote parser to allow lazy syntax. ('>' at beginning of first line in a sequence only.) eedcf543d9e74a5a627d2d476393829bb4b66bf5 John MacFarlane jgm@berkeley.edu