projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
e7f49f7
)
vectoriser: fix conflicts
author
Ben Lippmeier
<benl@ouroborus.net>
Thu, 25 Nov 2010 06:09:04 +0000
(06:09 +0000)
committer
Ben Lippmeier
<benl@ouroborus.net>
Thu, 25 Nov 2010 06:09:04 +0000
(06:09 +0000)
compiler/vectorise/Vectorise/Type/PADict.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/Vectorise/Type/PADict.hs
b/compiler/vectorise/Vectorise/Type/PADict.hs
index
5a6867d
..
5feeb2a
100644
(file)
--- 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