import TysPrim ( intPrimTy )
import Unique
-import UniqFM
+import LazyUniqFM
import UniqSet
import Util ( singleton )
import Digraph ( SCC(..), stronglyConnComp )
sumShapeTys :: VM [Type]
sumShapeTys = do
- int_arr <- builtin parrayIntPrimTyCon
- return [intPrimTy, mkTyConApp int_arr [], mkTyConApp int_arr []]
+ int_arr <- builtin intPrimArrayTy
+ return [intPrimTy, int_arr, int_arr]
arrShapeVars :: Repr -> VM [Var]