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