
isValid c = isOpSymbol c || isAlphaNum c || isSpace c || elem c "(){}"

---------------------
isValid :: Char -> Bool
isValid c = isOpSymbol c || isAlphaNum c || isSpace c || elem c "(){}"
isValid c = isOpSymbol c || isAlphaNum c || isSpace c || elem c "(){}"