From 638bc3e317b7c2b0d88bd02edaa85a76cb60079a Mon Sep 17 00:00:00 2001 From: Ben Lippmeier Date: Thu, 25 Nov 2010 06:09:04 +0000 Subject: [PATCH] vectoriser: fix conflicts --- compiler/vectorise/Vectorise/Type/PADict.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4