Implement INLINABLE pragma

[ghc-hetmet.git] / compiler / vectorise / Vectorise / Exp.hs

diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index d35c947..42efe37 100644 (file)
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -3,9 +3,9 @@
 module Vectorise.Exp
        (vectPolyExpr)
 where
-import VectUtils
-import VectVar
-import VectType
+import Vectorise.Utils
+import Vectorise.Type.Type
+import Vectorise.Var
 import Vectorise.Vect
 import Vectorise.Env
 import Vectorise.Monad
@@ -22,7 +22,7 @@ import Var
 import VarEnv
 import VarSet
 import Id
-import BasicTypes
+import BasicTypes( isLoopBreaker )
 import Literal
 import TysWiredIn
 import TysPrim