From 2fbdf9e0028db93b7913d3c13196e122a7fc2c74 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 28 Sep 2012 22:20:31 -0400
Subject: RST reader:  Support ".. code::".

---
 src/Text/Pandoc/Readers/RST.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 0bcffd709..75b249036 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -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
-- 
cgit v1.2.3