X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fvectorise%2FVectorise%2FType%2FPADict.hs;h=5feeb2aaafa6dd0254878a2da6e075fd90b81f30;hb=638bc3e317b7c2b0d88bd02edaa85a76cb60079a;hp=5a6867d29ef4dff4b51e1bf8975eeb9546893e9c;hpb=e7f49f77492af621de30b69046a3f6b1f81650dc;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs
index 5a6867d..5feeb2a 100644
--- a/compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/compiler/vectorise/Vectorise/Type/PADict.hs
@@ -63,9 +63,9 @@ buildPADict vect_tc prepr_tc arr_tc repr
       $ do
           expr     <- build vect_tc prepr_tc arr_tc repr
           let body = mkLams (tvs ++ args) expr
-          raw_var <- newExportedVar (method_name name) (exprType body)
-          let var = raw_var
-                      `setIdUnfolding` mkInlineRule body (Just (length args))
+          raw_var  <- newExportedVar (method_name name) (exprType body)
+          let var  = raw_var
+                      `setIdUnfolding` mkInlineUnfolding (Just (length args)) body
                       `setInlinePragma` alwaysInlinePragma
           hoistBinding var body
           return var