diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-05-29 16:23:40 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-05-29 16:23:40 -0700 |
| commit | 60495e9fb337636b5a4098bcb1e3d324234abf83 (patch) | |
| tree | 3feaeb43be717c2f14c21ee97e69084238c14852 /src/Text | |
| parent | 3b4e4de52b658ede4b1a4d0579ca064e0d6ad567 (diff) | |
Added a couple needed trys to textile reader.
Diffstat (limited to 'src/Text')
| -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 abc686a84..bed13a491 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -505,7 +505,7 @@ escapedEqs = Str <$> (try $ surrounded (string "==") anyChar) -- | literal text escaped btw <notextile> tags escapedTag :: GenParser Char ParserState Inline escapedTag = try $ Str <$> - enclosed (string "<notextile>") (string "</notextile>") anyChar + enclosed (string "<notextile>") (try $ string "</notextile>") anyChar -- | Any special symbol defined in wordBoundaries symbol :: GenParser Char ParserState Inline @@ -533,7 +533,7 @@ attributes = choice [ enclosed (char '(') (char ')') anyChar, surrounded :: GenParser Char st t -- ^ surrounding parser -> GenParser Char st a -- ^ content parser (to be used repeatedly) -> GenParser Char st [a] -surrounded border = enclosed border border +surrounded border = enclosed border (try border) -- | Inlines are most of the time of the same form simpleInline :: GenParser Char ParserState t -- ^ surrounding parser |