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

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)