-import CostCentre
-import Id ( mkSysLocal, idType, getIdArity, addIdArity )
-import IdInfo -- SIGH: ( arityMaybe, ArityInfo, OptIdInfo(..) )
-import SrcLoc ( mkUnknownSrcLoc, SrcLoc )
-import UniqSupply
-import Util
-import Maybes
-
-type Arity = Int
+import IdInfo ( arityMaybe )
+import SrcLoc ( mkUnknownSrcLoc )
+import UniqSupply ( returnUs, thenUs, mapUs, getUnique, UniqSM(..) )
+import Util ( panic, assertPanic )
+
+splitTypeWithDictsAsArgs = panic "SatStgRhs.splitTypeWithDictsAsArgs (ToDo)"
+