Haskell obtient des éléments spécifiques d'une chaîne

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