Use pp_item
authorWojciech Baranowski <wbaranowski@protonmail.com>
Wed, 24 Apr 2019 19:03:26 +0000 (22:03 +0300)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Tue, 30 Apr 2019 01:02:38 +0000 (21:02 -0400)
compiler/rename/RnEnv.hs

index 436e342..82aa508 100644 (file)
@@ -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