import FastString
import Module
-import Data.List
-import Data.Maybe
-
infixl 3 &&&
\end{code}
data IfaceIdDetails
= IfVanillaId
- | IfRecSelId Bool
+ | IfRecSelId IfaceTyCon Bool
| IfDFunId
data IfaceIdInfo
------------------
instance Outputable IfaceIdDetails where
ppr IfVanillaId = empty
- ppr (IfRecSelId b) = ptext (sLit "RecSel")
- <> if b then ptext (sLit "<naughty>") else empty
+ ppr (IfRecSelId tc b) = ptext (sLit "RecSel") <+> ppr tc
+ <+> if b then ptext (sLit "<naughty>") else empty
ppr IfDFunId = ptext (sLit "DFunId")
instance Outputable IfaceIdInfo where