diff options
| author | sewardj <unknown> | 1999-07-16 15:12:15 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-07-16 15:12:15 +0000 |
| commit | c415721193aeb616c783f775cb02aed0e5dcdc41 (patch) | |
| tree | 25859db6c30eb4604a467a0e1911a289ddd64af8 /ghc | |
| parent | 06babe955146e81fd458941aa765bbc4e260a310 (diff) | |
| download | haskell-c415721193aeb616c783f775cb02aed0e5dcdc41.tar.gz | |
[project @ 1999-07-16 15:12:15 by sewardj]
Fix use of _unused var for ghc-3.XX.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/usageSP/UsageSPInf.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/usageSP/UsageSPInf.lhs b/ghc/compiler/usageSP/UsageSPInf.lhs index a95178de8b..7fe753e59b 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, |