-import Bag ( Bag, emptyBag, isEmptyBag, snocBag, foldBag )
-import Id ( idType, isAlgCon, dataConArgTys,
- emptyIdSet, isEmptyIdSet, elementOfIdSet,
- mkIdSet, intersectIdSets,
- unionIdSets, idSetToList, SYN_IE(IdSet),
- GenId{-instanced NamedThing-}, SYN_IE(Id)
- )
-import Literal ( literalType, Literal{-instance Outputable-} )
-import Maybes ( catMaybes )
-import Name ( isLocallyDefined, getSrcLoc )
-import Outputable ( PprStyle, Outputable(..){-instance * []-} )
-import PprType ( GenType{-instance Outputable-}, TyCon )
-import Pretty -- quite a bit of it
+import Bag ( Bag, emptyBag, isEmptyBag, snocBag, bagToList )
+import Id ( Id, idType, isLocalId )
+import VarSet
+import DataCon ( DataCon, dataConArgTys, dataConRepType )
+import CoreSyn ( AltCon(..) )