[project @ 2000-05-24 12:43:20 by simonpj]

Fix unused-import warning --- again!

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 275f830..ba7cbc6 100644 (file)
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -259,7 +259,7 @@ improveAvails imp_mod iloc explicits is_unqual avails
   = map improve_avail avails
   where
     improve_avail (Avail n)      = Avail (improve n)
-    improve_avail (AvailTC n ns) = AvailTC n (map improve ns)  -- n doesn't matter
+    improve_avail (AvailTC n ns) = AvailTC (improve n) (map improve ns)
 
     improve name = setNameProvenance name 
                        (NonLocalDef (UserImport imp_mod iloc (is_explicit name)) 

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index caaa51e..f6ccf6a 100644 (file)
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -25,7 +25,7 @@ import VarSet
 import Id              ( Id, idType, idInfo, idUnique, isDataConId, isDataConId_maybe,
                          idUnfolding, setIdUnfolding, isExportedId, isDeadBinder,
                          idSpecialisation, setIdSpecialisation,
-                         idDemandInfo, setIdDemandInfo,
+                         idDemandInfo, 
                          setIdInfo,
                          idOccInfo, setIdOccInfo,
                          zapLamIdInfo, zapFragileIdInfo,