projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
06babe9
)
[project @ 1999-07-16 15:12:15 by sewardj]
author
sewardj
<unknown>
Fri, 16 Jul 1999 15:12:15 +0000
(15:12 +0000)
committer
sewardj
<unknown>
Fri, 16 Jul 1999 15:12:15 +0000
(15:12 +0000)
Fix use of _unused var for ghc-3.XX.
ghc/compiler/usageSP/UsageSPInf.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/usageSP/UsageSPInf.lhs
b/ghc/compiler/usageSP/UsageSPInf.lhs
index
a95178d
..
7fe753e
100644
(file)
--- 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,