diff options
| author | Wojciech Baranowski <wbaranowski@protonmail.com> | 2019-04-24 22:03:26 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-04-29 21:02:38 -0400 |
| commit | e23f78bab62d3a353eb7f67c1e0db60f5845286d (patch) | |
| tree | 453b39afd680e440cf13f35f72cb2e3fa20d9564 /compiler/rename | |
| parent | 8ee474320d849cc14b51706892665376e8ede629 (diff) | |
| download | haskell-e23f78bab62d3a353eb7f67c1e0db60f5845286d.tar.gz | |
Use pp_item
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnEnv.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/rename/RnEnv.hs b/compiler/rename/RnEnv.hs index 436e34220f..82aa50810e 100644 --- a/compiler/rename/RnEnv.hs +++ b/compiler/rename/RnEnv.hs @@ -1504,9 +1504,7 @@ lookupBindGroupOcc ctxt what rdr_name candidates names_in_scope = case similar_names of [] -> Outputable.empty - [n] -> text "Perhaps you meant" <+> - quotes (ppr n) <+> - parens (pprDefinedAt n) + [n] -> text "Perhaps you meant" <+> pp_item n _ -> sep [ text "Perhaps you meant one of these:" , nest 2 (pprWithCommas pp_item similar_names) ] where |