From f415e9e1194972baa2743a5c63cb07023d494925 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 3 Dec 2010 22:14:04 -0800
Subject: Textile reader:  parse raw by default.

It's part of the textile spec to allow raw HTML,
just as with markdown.
-R is no longer needed in test suite.
---
 src/Text/Pandoc/Readers/Textile.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 650060c3d..276f188c5 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -90,6 +90,8 @@ specialChars = "\\[]<>*#_@~-+^&,.;:!?|\"'%"
 -- | Generate a Pandoc ADT from a textile document
 parseTextile :: GenParser Char ParserState Pandoc
 parseTextile = do
+  -- textile allows raw HTML
+  updateState (\state -> state { stateParseRaw = True })
   many blankline
   blocks <- parseBlocks 
   return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME
-- 
cgit v1.2.3