projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix recursive superclasses (again). Fixes Trac #4809.
[ghc-hetmet.git]
/
compiler
/
vectorise
/
Vectorise
/
Type
/
PADict.hs
diff --git
a/compiler/vectorise/Vectorise/Type/PADict.hs
b/compiler/vectorise/Vectorise/Type/PADict.hs
index
8af9f41
..
ed6264a
100644
(file)
--- a/
compiler/vectorise/Vectorise/Type/PADict.hs
+++ b/
compiler/vectorise/Vectorise/Type/PADict.hs
@@
-60,7
+60,8
@@
buildPADict vect_tc prepr_tc arr_tc repr
-- Set the unfolding for the inliner.
raw_dfun <- newExportedVar dfun_name dfun_ty
-- Set the unfolding for the inliner.
raw_dfun <- newExportedVar dfun_name dfun_ty
- let dfun = raw_dfun `setIdUnfolding` mkDFunUnfolding dfun_ty (map Var method_ids)
+ let dfun_unf = mkDFunUnfolding dfun_ty (map (DFunPolyArg . Var) method_ids)
+ dfun = raw_dfun `setIdUnfolding` dfun_unf
`setInlinePragma` dfunInlinePragma
-- Add the new binding to the top-level environment.
`setInlinePragma` dfunInlinePragma
-- Add the new binding to the top-level environment.