From 93c0c44f4e127cd731c4007dec145e3e61407025 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 15 Jun 2000 11:50:14 +0000
Subject: [PATCH] [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)
---
 ghc/compiler/basicTypes/MkId.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4