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

This commit is contained in:
John MacFarlane 2012-09-28 22:20:31 -04:00
parent 58909aaf21
commit 2fbdf9e002

View file

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