occNameString (getDFunTyKey ty)
dfun_occ = mkDFunOcc info_string is_boot index
- ; newGlobalBinder mod dfun_occ Nothing loc }
+ ; newGlobalBinder mod dfun_occ loc }
newDFunName clas [] loc = pprPanic "newDFunName" (ppr clas <+> ppr loc)
\end{code}
= do { index <- nextDFunIndex
; mod <- getModule
; let occ = nameOccName tc_name
- ; newGlobalBinder mod (mkInstTyTcOcc index occ) Nothing loc }
+ ; newGlobalBinder mod (mkInstTyTcOcc index occ) loc }
\end{code}