@@ -292,8 +292,8 @@ enclosed start end parser = try $
292-- | Parse string, case insensitive.
292-- | Parse string, case insensitive.
293stringAnyCase :: [Char] -> CharParser st String
293stringAnyCase :: [Char] -> CharParser st String
294stringAnyCase [] = string ""
294stringAnyCase [] = string ""
295−stringAnyCase (x:xs) = try $ do
295+stringAnyCase (x:xs) = do
296− firstChar <- choice [ char (toUpper x), char (toLower x) ]
296+ firstChar <- char (toUpper x) <|> char (toLower x)
297 rest <- stringAnyCase xs
297 rest <- stringAnyCase xs
298 return (firstChar:rest)
298 return (firstChar:rest)