Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

RST reader: Support ".. code::".

Browse source
This commit is contained in:
John MacFarlane 2012-09-28 22:20:31 -04:00
parent 58909aaf21
commit 2fbdf9e002
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/RST.hs
View file

@ -366,7 +366,11 @@ codeBlockBody = try $ B.codeBlock . stripTrailingNewlines <$> indentedBlock
-- specified. -- specified.
customCodeBlock :: Parser [Char] st Blocks customCodeBlock :: Parser [Char] st Blocks
customCodeBlock = try $ do customCodeBlock = try $ do
string ".. code-block:: " string ".. "
string "code"
optional $ string "-block"
string "::"
skipSpaces
language <- manyTill anyChar newline language <- manyTill anyChar newline
blanklines blanklines
result <- indentedBlock result <- indentedBlock