Merge remote branch 'origin/master'

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

diff --git a/compiler/vectorise/Vectorise/Utils/Hoisting.hs b/compiler/vectorise/Vectorise/Utils/Hoisting.hs
index a604927..d0785e5 100644 (file)
--- a/compiler/vectorise/Vectorise/Utils/Hoisting.hs
+++ b/compiler/vectorise/Vectorise/Utils/Hoisting.hs
@@ -11,18 +11,17 @@ 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
 import CoreUnfold
 import Type
-import Var
 import Id
-import BasicTypes
+import BasicTypes( Arity )
 import FastString
 import Control.Monad
 
@@ -58,7 +57,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