@@ -133,13 +133,13 @@ failUnlessSmart = do
133133-- between balanced pairs of @opener@ and a @closer@.
134134inlinesInBalanced :: String -> String -> GenParser Char ParserState [Inline]
135135inlinesInBalanced opener closer = try $ do
136− let nonOpenerSymbol = try $ do -- succeeds if next inline would be Str opener
137− res <- inline -- fails if next inline merely begins with opener
136+ let openerSymbol = try $ do
137+ res <- inline
138138 if res == Str opener
139− then pzero
140− else return ' '
139+ then return res
140+ else pzero
141141 try (string opener)
142− result <- manyTill ( (do notFollowedBy nonOpenerSymbol
142+ result <- manyTill ( (do lookAhead openerSymbol
143143 bal <- inlinesInBalanced opener closer
144144 return $ [Str opener] ++ bal ++ [Str closer])
145145 <|> (count 1 inline))