- tys = concat $ map tyBound (hs_tyclds group)
- where tyBound ltcd = case unLoc ltcd of
- ForeignType { tcdLName = n } -> [found n]
- TyData { tcdLName = tycon, tcdCons = cons } ->
- dataNames tycon cons
- TySynonym { tcdLName = n } -> [found n]
- ClassDecl { tcdLName = n } -> [found n]
- _ -> error "boundValues: tys"