From: simonpj <unknown>
Date: Wed, 24 May 2000 12:43:20 +0000 (+0000)
Subject: [project @ 2000-05-24 12:43:20 by simonpj]
X-Git-Tag: Approximately_9120_patches~4388
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7233046f04c012367e8bcecfc99b597a39c0ad32;p=ghc-hetmet.git

[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
--- 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
--- 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,