RST reader: Allow :: before lhs code block.
The RST spec requires the :: before verbatim blocks.
This :: should not be treated as literal colons.
Resolves Issue #189.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1668 788f1e2b-df1e-0410-8736-df70ead52e1b
commit5df3ec11c02820eb3a828336295aa3d68bbb1755
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateTue 22 Dec 2009, 07:27 (17 years ago)
parent593601f
src/Text/Pandoc/Readers/RST.hs+1
@@ -345,6 +345,7 @@ customCodeBlock = try $ do
345345lhsCodeBlock :: GenParser Char ParserState Block
346346lhsCodeBlock = try $ do
347347 failUnlessLHS
348+ optional codeBlockStart
348349 pos <- getPosition
349350 when (sourceColumn pos /= 1) $ fail "Not in first column"
350351 lns <- many1 birdTrackLine