From: simonpj <unknown>
Date: Tue, 16 Dec 2003 16:21:42 +0000 (+0000)
Subject: [project @ 2003-12-16 16:21:42 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~190
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ccbff992682223701536713b0a80de657a1ff01f;p=ghc-hetmet.git

[project @ 2003-12-16 16:21:42 by simonpj]
Remove unused parameter to groupAvails
---

diff --git a/ghc/compiler/iface/MkIface.lhs b/ghc/compiler/iface/MkIface.lhs
index e43b6df..4dad85a 100644
--- a/ghc/compiler/iface/MkIface.lhs
+++ b/ghc/compiler/iface/MkIface.lhs
@@ -281,7 +281,7 @@ mkIface hsc_env location maybe_old_iface
 			mi_boot     = False,
 			mi_deps     = deps,
 			mi_usages   = usages,
-			mi_exports  = groupAvails this_mod exports,
+			mi_exports  = groupAvails exports,
 			mi_insts    = iface_insts,
 			mi_rules    = iface_rules,
 			mi_fixities = fixities,
@@ -693,10 +693,10 @@ mk_usage_info pit hpt dir_imp_mods dep_mods proto_used_names
 \end{code}
 
 \begin{code}
-groupAvails :: Module -> Avails -> [(ModuleName, [GenAvailInfo OccName])]
+groupAvails :: Avails -> [(ModuleName, [GenAvailInfo OccName])]
   -- Group by module and sort by occurrence
   -- This keeps the list in canonical order
-groupAvails this_mod avails 
+groupAvails avails 
   = [ (mkSysModuleNameFS fs, sortLt lt avails)
     | (fs,avails) <- fmToList groupFM
     ]