@@ -505,7 +505,7 @@ escapedEqs = Str <$> (try $ surrounded (string "==") anyChar)
505505-- | literal text escaped btw <notextile> tags
506506escapedTag :: GenParser Char ParserState Inline
507507escapedTag = try $ Str <$>
508− enclosed (string "<notextile>") (string "</notextile>") anyChar
508+ enclosed (string "<notextile>") (try $ string "</notextile>") anyChar
509509
510510-- | Any special symbol defined in wordBoundaries
511511symbol :: GenParser Char ParserState Inline
@@ -533,7 +533,7 @@ attributes = choice [ enclosed (char '(') (char ')') anyChar,
533533surrounded :: GenParser Char st t -- ^ surrounding parser
534534 -> GenParser Char st a -- ^ content parser (to be used repeatedly)
535535 -> GenParser Char st [a]
536−surrounded border = enclosed border border
536+surrounded border = enclosed border (try border)
537537
538538-- | Inlines are most of the time of the same form
539539simpleInline :: GenParser Char ParserState t -- ^ surrounding parser