X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPADict.hs;h=d3d2213e67827ddf8004ca4e460a830599254a7a;hb=fb9d21af24d076b12abb9e22251aa327f82e8ea8;hp=7fdc31acae45ce72c4e95f8bd1fd7e89079d9d92;hpb=f86c92d05b404383e0a98cd5de8c2ba649804fc8;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs
index 7fdc31a..d3d2213 100644
--- a/compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/compiler/vectorise/Vectorise/Type/PADict.hs
@@ -2,13 +2,12 @@
 module Vectorise.Type.PADict
 	(buildPADict)
 where
-import VectUtils
 import Vectorise.Monad
 import Vectorise.Builtins
 import Vectorise.Type.Repr
 import Vectorise.Type.PRepr
 import Vectorise.Type.PRDict
-import Vectorise.Utils.Hoisting
+import Vectorise.Utils
 
 import BasicTypes
 import CoreSyn
@@ -16,7 +15,6 @@ import CoreUtils
 import CoreUnfold
 import TyCon
 import Type
-import OccName
 import Id
 import Var
 import Name
@@ -58,7 +56,7 @@ buildPADict 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))
+                      `setIdUnfolding` mkInlineUnfolding (Just (length args)) body
                       `setInlinePragma` alwaysInlinePragma
           hoistBinding var body
           return var