aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-05-29 16:23:40 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-05-29 16:23:40 -0700
commit60495e9fb337636b5a4098bcb1e3d324234abf83 (patch)
tree3feaeb43be717c2f14c21ee97e69084238c14852 /src/Text/Pandoc/Readers
parent3b4e4de52b658ede4b1a4d0579ca064e0d6ad567 (diff)
downloadpandoc-60495e9fb337636b5a4098bcb1e3d324234abf83.tar.gz
Added a couple needed trys to textile reader.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs4
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