From f232034ab0a97c71643901a116ed1c55c5fb7f29 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 5 Oct 2012 10:23:15 -0700
Subject: Textile reader: Implemented comment blocks.

---
 src/Text/Pandoc/Readers/Textile.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 0d516f545..922ebc44e 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -125,6 +125,7 @@ blockParsers = [ codeBlock
                , header
                , blockQuote
                , hrule
+               , commentBlock
                , anyList
                , rawHtmlBlock
                , rawLaTeXBlock'
@@ -136,6 +137,12 @@ blockParsers = [ codeBlock
 block :: Parser [Char] ParserState Block
 block = choice blockParsers <?> "block"
 
+commentBlock :: Parser [Char] ParserState Block
+commentBlock = try $ do
+  string "###."
+  manyTill anyLine blanklines
+  return Null
+
 codeBlock :: Parser [Char] ParserState Block
 codeBlock = codeBlockBc <|> codeBlockPre
 
-- 
cgit v1.2.3