diff options
Diffstat (limited to 'compiler/GHC/Rename/Source.hs')
-rw-r--r-- | compiler/GHC/Rename/Source.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Rename/Source.hs b/compiler/GHC/Rename/Source.hs index 9bb577f48b..8237e32877 100644 --- a/compiler/GHC/Rename/Source.hs +++ b/compiler/GHC/Rename/Source.hs @@ -1475,13 +1475,13 @@ dupRoleAnnotErr list quotes (ppr $ roleAnnotDeclName first_decl) <> colon) 2 (vcat $ map pp_role_annot $ NE.toList sorted_list) where - sorted_list = NE.sortBy cmp_annot list + sorted_list = NE.sortBy cmp_loc list ((L loc first_decl) :| _) = sorted_list pp_role_annot (L loc decl) = hang (ppr decl) 4 (text "-- written at" <+> ppr loc) - cmp_annot (L loc1 _) (L loc2 _) = loc1 `compare` loc2 + cmp_loc = SrcLoc.leftmost_smallest `on` getLoc dupKindSig_Err :: NonEmpty (LStandaloneKindSig GhcPs) -> RnM () dupKindSig_Err list @@ -1496,7 +1496,7 @@ dupKindSig_Err list pp_kisig (L loc decl) = hang (ppr decl) 4 (text "-- written at" <+> ppr loc) - cmp_loc (L loc1 _) (L loc2 _) = loc1 `compare` loc2 + cmp_loc = SrcLoc.leftmost_smallest `on` getLoc {- Note [Role annotations in the renamer] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |