From 7233046f04c012367e8bcecfc99b597a39c0ad32 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 24 May 2000 12:43:20 +0000
Subject: [PATCH] [project @ 2000-05-24 12:43:20 by simonpj] Fix unused-import
warning --- again!
---
ghc/compiler/rename/RnNames.lhs | 2 +-
ghc/compiler/simplCore/Simplify.lhs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 275f8302c919..ba7cbc62bca5 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 caaa51ea4d8a..f6ccf6a39ca1 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,
--
GitLab