From c415721193aeb616c783f775cb02aed0e5dcdc41 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 16 Jul 1999 15:12:15 +0000
Subject: [PATCH] [project @ 1999-07-16 15:12:15 by sewardj] Fix use of _unused
var for ghc-3.XX.
---
ghc/compiler/usageSP/UsageSPInf.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/usageSP/UsageSPInf.lhs b/ghc/compiler/usageSP/UsageSPInf.lhs
index a95178de8bf5..7fe753e59b39 100644
--- a/ghc/compiler/usageSP/UsageSPInf.lhs
+++ b/ghc/compiler/usageSP/UsageSPInf.lhs
@@ -423,7 +423,7 @@ usgClos :: VarEnv Var -- environment to close with respect to
-> (Type, -- closed type (rho)
UConSet) -- residual constraint set
-usgClos _ve ty ucs = (ty,ucs) -- dummy definition; no generalisation at all
+usgClos zz_ve ty ucs = (ty,ucs) -- dummy definition; no generalisation at all
-- hmm! what if it sets some uvars to 1 or omega?
-- (should it do substitution here, or return a substitution,
--
GitLab