From: sewardj <unknown>
Date: Fri, 16 Jul 1999 15:12:15 +0000 (+0000)
Subject: [project @ 1999-07-16 15:12:15 by sewardj]
X-Git-Tag: Approximately_9120_patches~5965
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c415721193aeb616c783f775cb02aed0e5dcdc41;p=ghc-hetmet.git

[project @ 1999-07-16 15:12:15 by sewardj]
Fix use of _unused var for ghc-3.XX.
---

diff --git a/ghc/compiler/usageSP/UsageSPInf.lhs b/ghc/compiler/usageSP/UsageSPInf.lhs
index a95178d..7fe753e 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,