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 <[email protected]> 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] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
