From 60495e9fb337636b5a4098bcb1e3d324234abf83 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 29 May 2012 16:23:40 -0700
Subject: Added a couple needed trys to textile reader.

---
 src/Text/Pandoc/Readers/Textile.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

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
-- 
cgit v1.2.3