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 | |
| 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.
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 2 | ||||
| -rw-r--r-- | tests/RunTests.hs | 2 |
2 files changed, 3 insertions, 1 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 diff --git a/tests/RunTests.hs b/tests/RunTests.hs index bd19c10bd..76f51c4f9 100644 --- a/tests/RunTests.hs +++ b/tests/RunTests.hs @@ -105,7 +105,7 @@ main = do "html-reader.html" "html-reader.native" r10 <- runTest "latex reader" ["-r", "latex", "-w", "native", "-s", "-R"] "latex-reader.latex" "latex-reader.native" - rTextile1 <- runTest "textile reader" ["-r", "textile", "-w", "native", "-s", "-R"] + rTextile1 <- runTest "textile reader" ["-r", "textile", "-w", "native", "-s"] "textile-reader.textile" "textile-reader.native" r11 <- runTest "native reader" ["-r", "native", "-w", "native", "-s"] "testsuite.native" "testsuite.native" |