diff options
Diffstat (limited to 'src/Text/ParserCombinators/Pandoc.hs')
-rw-r--r-- | src/Text/ParserCombinators/Pandoc.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/Text/ParserCombinators/Pandoc.hs b/src/Text/ParserCombinators/Pandoc.hs index 93494241a..ced0cb7ca 100644 --- a/src/Text/ParserCombinators/Pandoc.hs +++ b/src/Text/ParserCombinators/Pandoc.hs @@ -30,7 +30,6 @@ Special parser combinators for Pandoc readers. module Text.ParserCombinators.Pandoc ( anyLine, many1Till, - followedBy', notFollowedBy', oneOfStrings, spaceChar, @@ -119,15 +118,6 @@ notFollowedBy' :: Show b => GenParser a st b -> GenParser a st () notFollowedBy' parser = try (do { c <- try parser; unexpected (show c) } <|> return ()) --- | The inverse of @notFollowedBy'@. Fails if parser will fail, otherwise --- returns @()@ (but does not consume any input). -followedBy' :: (Show b) => GenParser a st b -> GenParser a st () -followedBy' parser = do - isNotFollowed <- option False (do{ notFollowedBy' parser; return True}) - if isNotFollowed - then fail "not followed by parser" - else return () - -- | Parses one of a list of strings (tried in order). oneOfStrings :: [String] -> GenParser Char st String oneOfStrings listOfStrings = choice $ map (try . string) listOfStrings |