@@ -606,8 +606,8 @@ langAttr = do
607-- | Parses material surrounded by a parser.
607-- | Parses material surrounded by a parser.
608surrounded :: Parser [Char] st t -- ^ surrounding parser
608surrounded :: Parser [Char] st t -- ^ surrounding parser
609− -> Parser [Char] st a -- ^ content parser (to be used repeatedly)
609+ -> Parser [Char] st a -- ^ content parser (to be used repeatedly)
610− -> Parser [Char] st [a]
610+ -> Parser [Char] st [a]
611surrounded border =
611surrounded border =
612 enclosed (border *> notFollowedBy (oneOf " \t\n\r")) (try border)
612 enclosed (border *> notFollowedBy (oneOf " \t\n\r")) (try border)