X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise.hs;h=cc91e9fc9ccaa05c46ffc7c5ccb1dc03e877897f;hp=59fded3c4f01c552c081869fd34c7698b2e285d6;hb=c86161c5cf11de77e911fcb9e1e2bd1f8bd80b42;hpb=f65f61e18bb010109fd5581c44d37382b93a35b5

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 59fded3..cc91e9f 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -106,7 +106,7 @@ vectTopBinder var inline expr
       return var'
   where
     unfolding = case inline of
-                  Inline arity -> mkInlineRule InlSat expr arity
+                  Inline arity -> mkInlineRule needSaturated expr arity
                   DontInline   -> noUnfolding
 
 vectTopRhs :: Var -> CoreExpr -> VM (Inline, CoreExpr)