@@ -366,7 +366,11 @@ codeBlockBody = try $ B.codeBlock . stripTrailingNewlines <$> indentedBlock
366-- specified.
366-- specified.
367customCodeBlock :: Parser [Char] st Blocks
367customCodeBlock :: Parser [Char] st Blocks
368customCodeBlock = try $ do
368customCodeBlock = try $ do
369− string ".. code-block:: "
369+ string ".. "
371+ optional $ string "-block"
370 language <- manyTill anyChar newline
374 language <- manyTill anyChar newline
371 blanklines
375 blanklines
372 result <- indentedBlock
376 result <- indentedBlock