From ccbff992682223701536713b0a80de657a1ff01f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 16 Dec 2003 16:21:42 +0000
Subject: [PATCH] [project @ 2003-12-16 16:21:42 by simonpj] Remove unused
 parameter to groupAvails

---
 ghc/compiler/iface/MkIface.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
     ]
-- 
1.7.10.4