[commit: ghc] master: Wibble to "Fix a long-standing bug in HsUtils.hsTyClDeclBinders" (da0493e)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/da0493e48e089ce6fcb9675658ae17c35869207c

>---------------------------------------------------------------

commit da0493e48e089ce6fcb9675658ae17c35869207c
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Aug 5 17:40:29 2011 +0100

    Wibble to "Fix a long-standing bug in HsUtils.hsTyClDeclBinders"

>---------------------------------------------------------------

 compiler/rename/RnNames.lhs |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 557cdad..d58db09 100644
--- a/compiler/rename/RnNames.lhs
+++ b/compiler/rename/RnNames.lhs
@@ -581,8 +581,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]