@@ -91,8 +91,8 @@ specialChars = "\\[]<>*#_@~-+^&,.;:!?|\"'%"
9191-- | Generate a Pandoc ADT from a textile document
9292parseTextile :: GenParser Char ParserState Pandoc
9393parseTextile = do
94− -- textile allows raw HTML
95− updateState (\state -> state { stateParseRaw = True })
94+ -- textile allows raw HTML and does smart punctuation by default
95+ updateState (\state -> state { stateParseRaw = True, stateSmart = True })
9696 many blankline
9797 blocks <- parseBlocks
9898 return $ Pandoc (Meta [Str ""] [[Str ""]] [Str ""]) blocks -- FIXME