urk! the arity of a record selector Id didn't take into account any
dictionary arguments due to the context on the datatype...
(fixes bug on H/OpenGL reported by Sven)
mkFunTys dict_tys $ mkFunTy data_ty field_tau
info = mkIdInfo (RecordSelId field_label)
mkFunTys dict_tys $ mkFunTy data_ty field_tau
info = mkIdInfo (RecordSelId field_label)
- `setArityInfo` exactArity 1
+ `setArityInfo` exactArity (1 + length dict_tys)
`setUnfoldingInfo` unfolding
`setCafInfo` NoCafRefs
-- ToDo: consider adding further IdInfo
`setUnfoldingInfo` unfolding
`setCafInfo` NoCafRefs
-- ToDo: consider adding further IdInfo