Commit 93c0c44f authored by simonmar's avatar simonmar
Browse files

[project @ 2000-06-15 11:50:14 by simonmar]

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)
parent 0779a545
......@@ -409,7 +409,7 @@ mkRecordSelId tycon field_label unpack_id
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment