“Haskell otrzymuj określone elementy łańcucha” Kod odpowiedzi

Haskell otrzymuj określone elementy łańcucha

onlyParenthesis :: String -> String
onlyParenthesis [] = []
onlyParenthesis (x:xs)
                 | x /= '(' && x /= ')' && x /= '[' && x /= ']' && x /= '{' && x /= '}'= onlyParenthesis xs
                 | otherwise = x : onlyParenthesis xs