-occNameUserString_with_parens :: OccName -> String
-occNameUserString_with_parens occ
- | isSymOcc occ = '(':nm ++ ")"
- | otherwise = nm
- where
- nm = occNameUserString occ
+wrapOpParens :: String -> String
+wrapOpParens s | isSym s = '(' : s ++ ")"
+ | otherwise = s
+
+wrapOpBackquotes :: String -> String
+wrapOpBackquotes s | isSym s = s
+ | otherwise = '`' : s ++ "`"
+
+isSym :: String -> Bool
+isSym "" = False
+isSym (c:cs) = startsVarSym c || startsConSym c