Remove unused argument from importSuggestions
authorMatthew Pickering <matthewtpickering@gmail.com>
Thu, 23 Mar 2017 14:08:26 +0000 (14:08 +0000)
committerMatthew Pickering <matthewtpickering@gmail.com>
Mon, 27 Mar 2017 10:25:02 +0000 (11:25 +0100)
Reviewers: austin, bgamari

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3376

compiler/rename/RnEnv.hs

index 7c05994..ae647f1 100644 (file)
@@ -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