X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fvectorise%2FVectUtils.hs;fp=compiler%2Fvectorise%2FVectUtils.hs;h=d823690da9c194b880848d0937c3a864e22a9f0a;hb=0e82126ed0bd2d16a1925d8a8a6c5eb6d7762ac5;hp=37dbecb446d79a5e4f10c9f2a412c03a2b36dd12;hpb=7e399d96eca4f5274f8c9364448f0b4a5f8e1a74;p=ghc-hetmet.git

diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs
index 37dbecb..d823690 100644
--- a/compiler/vectorise/VectUtils.hs
+++ b/compiler/vectorise/VectUtils.hs
@@ -21,9 +21,10 @@ module VectUtils (
   buildClosure, buildClosures,
   mkClosureApp
 ) where
-import VectMonad
+import Vectorise.Monad
 import Vectorise.Env
 import Vectorise.Vect
+import Vectorise.Builtins
 
 import MkCore ( mkCoreTup, mkWildCase )
 import CoreSyn
@@ -101,7 +102,7 @@ mkBuiltinTyConApps get_tc tys ty
     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]