Removed followedBy' parser from Text/ParserCombinators/Pandoc,

replacing it with the 'lookAhead' parser from
Text/ParserCombinators/Parsec.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@535 788f1e2b-df1e-0410-8736-df70ead52e1b

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