From: simonmar Date: Thu, 15 Jun 2000 11:50:14 +0000 (+0000) Subject: [project @ 2000-06-15 11:50:14 by simonmar] X-Git-Tag: Approximately_9120_patches~4192 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=93c0c44f4e127cd731c4007dec145e3e61407025;p=ghc-hetmet.git [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) --- diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs index 3bf5e6f..2643dff 100644 --- a/ghc/compiler/basicTypes/MkId.lhs +++ b/ghc/compiler/basicTypes/MkId.lhs @@ -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