buildClosure, buildClosures,
mkClosureApp
) where
-
-import VectCore
-import VectMonad
+import Vectorise.Monad
+import Vectorise.Env
+import Vectorise.Vect
+import Vectorise.Builtins
import MkCore ( mkCoreTup, mkWildCase )
import CoreSyn
import BasicTypes ( Boxity(..), Arity )
import Literal ( Literal, mkMachInt )
+
import Outputable
import FastString
mk tc ty1 ty2 = mkTyConApp tc [ty1,ty2]
voidType :: VM Type
-voidType = mkBuiltinTyConApp VectMonad.voidTyCon []
+voidType = mkBuiltinTyConApp voidTyCon []
mkWrapType :: Type -> VM Type
mkWrapType ty = mkBuiltinTyConApp wrapTyCon [ty]