diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 22:52:46 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 23:10:52 -0800 |
| commit | 4bf9d362d22fcd7b51da7bd14a6a5b63533706c6 (patch) | |
| tree | 92460c813eeef5ebf7e2a51d2a8c24ce38ae12b0 /src/Text/Pandoc/Readers | |
| parent | 0356ad4de6f19b3804b8a635e8ce8a5582ac2c5c (diff) | |
| download | pandoc-4bf9d362d22fcd7b51da7bd14a6a5b63533706c6.tar.gz | |
Textile reader: Turn on smart punctuation by default.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index 3465eebbe..f64c9e416 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -91,8 +91,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 }) + -- textile allows raw HTML and does smart punctuation by default + updateState (\state -> state { stateParseRaw = True, stateSmart = True }) many blankline blocks <- parseBlocks return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME |