-import Bag ( Bag, emptyBag, isEmptyBag, snocBag, foldBag )
-import Id ( idType, isAlgCon, dataConArgTys,
- emptyIdSet, isEmptyIdSet, elementOfIdSet,
- mkIdSet, intersectIdSets,
- unionIdSets, idSetToList, IdSet,
- GenId{-instanced NamedThing-}, Id
- )
-import Literal ( literalType, Literal{-instance Outputable-} )
-import Maybes ( catMaybes )
-import Name ( isLocallyDefined, getSrcLoc )
-import ErrUtils ( ErrMsg )
+import Bag ( Bag, emptyBag, isEmptyBag, snocBag, bagToList )
+import Id ( Id, idType, isLocalId )
+import VarSet
+import DataCon ( DataCon, dataConInstArgTys, dataConRepType )
+import CoreSyn ( AltCon(..) )