X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FUtils%2FHoisting.hs;h=12b1b6fe4f4d5154c7cd52e26b93127745f6d11f;hb=37a6a52facd1c3999ce4472c50b0030568be1e04;hp=a604927998d47cad4b28028fc0ebf27a25add1c4;hpb=d5744ef51a8b8b1e063daa98026a9f803bfc88b4;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Utils/Hoisting.hs b/compiler/vectorise/Vectorise/Utils/Hoisting.hs
index a604927..12b1b6f 100644
--- a/compiler/vectorise/Vectorise/Utils/Hoisting.hs
+++ b/compiler/vectorise/Vectorise/Utils/Hoisting.hs
@@ -11,10 +11,10 @@ module Vectorise.Utils.Hoisting (
 	takeHoisted
 )
 where
-import VectUtils
 import Vectorise.Monad
 import Vectorise.Env
 import Vectorise.Vect
+import Vectorise.Utils.Poly
 
 import CoreSyn
 import CoreUtils
@@ -22,7 +22,7 @@ import CoreUnfold
 import Type
 import Var
 import Id
-import BasicTypes
+import BasicTypes( Arity )
 import FastString
 import Control.Monad
 
@@ -58,7 +58,7 @@ hoistExpr fs expr inl
   where
     mk_inline var = case inl of
                       Inline arity -> var `setIdUnfolding`
-                                      mkInlineRule expr (Just arity)
+                                      mkInlineUnfolding (Just arity) expr
                       DontInline   -> var