From 206413ef5a2f269acb0de19f995cf2b59ab3b2d5 Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri, 5 Aug 2011 17:40:29 +0100
Subject: [PATCH] Wibble to "Fix a long-standing bug in
HsUtils.hsTyClDeclBinders"
---
compiler/rename/RnNames.lhs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 27a3cf3812e0..482fdb183e1d 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -591,8 +591,9 @@ get_local_binders gbl_env (HsGroup {hs_valds = ValBindsIn _ val_sigs,
; return (AvailTC main_name names) }
new_ti local_tc_env ti_decl -- ONLY for type/data instances
- = do { let tc_rdr = tcdName (unLoc ti_decl)
- ; main_name <- case lookupOccEnv local_tc_env (rdrNameOcc tc_rdr) of
+ = do { let L loc tc_rdr = tcdLName (unLoc ti_decl)
+ ; main_name <- setSrcSpan loc $
+ case lookupOccEnv local_tc_env (rdrNameOcc tc_rdr) of
Nothing -> lookupGlobalOccRn tc_rdr
Just n -> return n
-- See Note [Looking up family names in family instances]
--
GitLab