diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 22:14:04 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 23:10:52 -0800 |
| commit | f415e9e1194972baa2743a5c63cb07023d494925 (patch) | |
| tree | b2310b81ed05cf9b1ff32265570eb650b4e90d80 /src | |
| parent | c3866f3c6671300f27ae40927fe6f8a2a85cb28b (diff) | |
| download | pandoc-f415e9e1194972baa2743a5c63cb07023d494925.tar.gz | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |