Skip to content
Snippets Groups Projects
Commit 206413ef authored by Simon Peyton Jones's avatar Simon Peyton Jones Committed by Ian Lynagh
Browse files

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

parent 4dac67eb
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/rename/RnNames.lhs
+ 3
− 2
View file @ 206413ef
...@@ -591,8 +591,9 @@ get_local_binders gbl_env (HsGroup {hs_valds = ValBindsIn _ val_sigs, ...@@ -591,8 +591,9 @@ get_local_binders gbl_env (HsGroup {hs_valds = ValBindsIn _ val_sigs,
; return (AvailTC main_name names) } ; return (AvailTC main_name names) }
new_ti local_tc_env ti_decl -- ONLY for type/data instances new_ti local_tc_env ti_decl -- ONLY for type/data instances
= do { let tc_rdr = tcdName (unLoc ti_decl) = do { let L loc tc_rdr = tcdLName (unLoc ti_decl)
; main_name <- case lookupOccEnv local_tc_env (rdrNameOcc tc_rdr) of ; main_name <- setSrcSpan loc $
case lookupOccEnv local_tc_env (rdrNameOcc tc_rdr) of
Nothing -> lookupGlobalOccRn tc_rdr Nothing -> lookupGlobalOccRn tc_rdr
Just n -> return n Just n -> return n
-- See Note [Looking up family names in family instances] -- See Note [Looking up family names in family instances]
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment