import Digraph ( SCC(..), stronglyConnComp )
import Outputable
+import FastString
import Control.Monad ( liftM, liftM2, zipWithM, zipWithM_, mapAndUnzipM )
import Data.List ( inits, tails, zipWith4, zipWith5 )
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]