Missing parens around prefix `*` even with NoStarIsType

[harpocrates]

We have some logic in wrapInfix to try to detect the now-deprecated * kind. This logic just checks that the string representation matches (although it fails to check the unicode case) and that the name is in the TcClsName namespace.

Yet this catches more operators than it should.

{-# LANGUAGE TypeOperators, NoStarIsType #-}
module GiveMeMyParens where
type (*) a = (,) a

Note that the output is missing parens around the *: