diff options
| -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" |