diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-03-23 14:08:26 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-03-27 11:25:02 +0100 |
| commit | a6ce7f338c88920f380a2ed3f3f82b0184aeb341 (patch) | |
| tree | dd24373e35ad99cbc7c903515d92a005ba23c168 /compiler/rename/RnEnv.hs | |
| parent | e8a27410d0e51062422cb4782913bbbdf9deea74 (diff) | |
| download | haskell-a6ce7f338c88920f380a2ed3f3f82b0184aeb341.tar.gz | |
Remove unused argument from importSuggestions
Reviewers: austin, bgamari
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3376
Diffstat (limited to 'compiler/rename/RnEnv.hs')
| -rw-r--r-- | compiler/rename/RnEnv.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnEnv.hs b/compiler/rename/RnEnv.hs index 7c05994c0a..ae647f19a9 100644 --- a/compiler/rename/RnEnv.hs +++ b/compiler/rename/RnEnv.hs @@ -1843,7 +1843,7 @@ unknownNameSuggestions_ :: WhereLooking -> DynFlags -> RdrName -> SDoc unknownNameSuggestions_ where_look dflags global_env local_env imports tried_rdr_name = similarNameSuggestions where_look dflags global_env local_env tried_rdr_name $$ - importSuggestions dflags imports tried_rdr_name + importSuggestions imports tried_rdr_name similarNameSuggestions :: WhereLooking -> DynFlags @@ -1964,8 +1964,8 @@ similarNameSuggestions where_look dflags global_env | i <- is, let ispec = is_decl i, is_qual ispec ] -- | Generate helpful suggestions if a qualified name Mod.foo is not in scope. -importSuggestions :: DynFlags -> ImportAvails -> RdrName -> SDoc -importSuggestions _dflags imports rdr_name +importSuggestions :: ImportAvails -> RdrName -> SDoc +importSuggestions imports rdr_name | not (isQual rdr_name || isUnqual rdr_name) = Outputable.empty | null interesting_imports , Just name <- mod_name |