Move VectCore to Vectorise tree

7 files changed, 26 insertions, 22 deletions

diff --git a/compiler/ghc.cabal.in b/compiler/ghc.cabal.in
index 925014e8a6..6251a8e8c7 100644
--- a/compiler/ghc.cabal.in
+++ b/compiler/ghc.cabal.in
@@ -455,10 +455,12 @@ Library
         UniqSet
         Util
         VectBuiltIn
-        VectCore
         VectMonad
         VectType
         VectUtils
+        VectVar
+        Vectorise.Env
+        Vectorise.Vect
         Vectorise
 
     -- We only need to expose more modules as some of the ncg code is used
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index e24ed0e6d2..6ac6d8d1db 100644
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -39,6 +39,7 @@ module VectMonad (
 
 import VectBuiltIn
 import Vectorise.Env
+import Vectorise.Vect
 
 import HscTypes hiding  ( MonadThings(..) )
 import Module           ( PackageId )
diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index eec036ac40..5d8f2a8943 100644
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -8,8 +8,8 @@ where
 
 import VectMonad
 import VectUtils
-import VectCore
 import Vectorise.Env
+import Vectorise.Vect
 
 import HscTypes          ( TypeEnv, extendTypeEnvList, typeEnvTyCons )
 import BasicTypes
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs
index 1b24f14031..37dbecb446 100644
--- a/compiler/vectorise/VectUtils.hs
+++ b/compiler/vectorise/VectUtils.hs
@@ -21,10 +21,9 @@ module VectUtils (
   buildClosure, buildClosures,
   mkClosureApp
 ) where
-
-import VectCore
 import VectMonad
 import Vectorise.Env
+import Vectorise.Vect
 
 import MkCore ( mkCoreTup, mkWildCase )
 import CoreSyn
diff --git a/compiler/vectorise/VectVar.hs b/compiler/vectorise/VectVar.hs
index 041a393f86..1c40ed9d0e 100644
--- a/compiler/vectorise/VectVar.hs
+++ b/compiler/vectorise/VectVar.hs
@@ -11,10 +11,10 @@ module VectVar (
 	vectLiteral
 ) where
 import VectUtils
-import VectCore
 import VectMonad
 import VectType
 import Vectorise.Env
+import Vectorise.Vect
 import CoreSyn
 import Type
 import Var
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index da10ff1c1d..aad5144b6b 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -7,7 +7,7 @@ import VectMonad
 import VectUtils
 import VectVar
 import VectType
-import VectCore
+import Vectorise.Vect
 import Vectorise.Env
 
 import HscTypes hiding      ( MonadThings(..) )
diff --git a/compiler/vectorise/VectCore.hs b/compiler/vectorise/Vectorise/Vect.hs
index 39341ef179..6dcffa2509 100644
--- a/compiler/vectorise/VectCore.hs
+++ b/compiler/vectorise/Vectorise/Vect.hs
@@ -1,22 +1,24 @@
 
 -- | Simple vectorised constructors and projections.
-module VectCore (
-  Vect, VVar, VExpr, VBind,
-
-  vectorised, lifted,
-  mapVect,
-
-  vVarType,
-
-  vNonRec, vRec,
-
-  vVar, vType, vNote, vLet,
-  vLams, vLamsWithoutLC, vVarApps,
-  vCaseDEFAULT
+module Vectorise.Vect (
+	Vect, VVar, VExpr, VBind,
+
+	vectorised,
+	lifted,
+	mapVect,
+
+	vVarType,
+	vNonRec,
+	vRec,
+	vVar,
+	vType,
+	vNote,
+	vLet,
+	vLams,
+	vLamsWithoutLC,
+	vVarApps,
+	vCaseDEFAULT
 ) where
-
-#include "HsVersions.h"
-
 import CoreSyn
 import Type           ( Type )
 import Var