@@ -102,6 +102,7 @@ import Text.ParserCombinators.Parsec
102102import Text.Pandoc.CharacterReferences ( characterReference )
103103import Data.Char ( toLower, toUpper, ord, chr, isLower, isUpper )
104104import Data.List ( find, groupBy, isPrefixOf, isSuffixOf )
105+import Control.Monad ( join )
105106
106107--
107108-- List processing
@@ -254,9 +255,11 @@ many1Till p end = do
254255-- type of parser to be specified, and succeeds only if that parser fails.
255256-- It does not consume any input.
256257notFollowedBy' :: Show b => GenParser a st b -> GenParser a st ()
257−notFollowedBy' parser = try $ (do result <- try parser
258− unexpected (show result))
259− <|> return ()
258+notFollowedBy' p = try $ join $ do a <- try p
259+ return (unexpected (show a))
260+ <|>
261+ return (return ())
262+-- (This version due to Andrew Pimlott on the Haskell mailing list.)
260263
261264-- | Parses one of a list of strings (tried in order).
262265oneOfStrings :: [String] -> GenParser Char st String
@@ -264,7 +267,7 @@ oneOfStrings listOfStrings = choice $ map (try . string) listOfStrings
264267
265268-- | Parses a space or tab.
266269spaceChar :: CharParser st Char
267−spaceChar = oneOf " \t"
270+spaceChar = char ' ' <|> char '\t'
268271
269272-- | Skips zero or more spaces or tabs.
270273skipSpaces :: GenParser Char st ()