diff options
| author | lewie <unknown> | 2000-06-09 23:28:34 +0000 |
|---|---|---|
| committer | lewie <unknown> | 2000-06-09 23:28:34 +0000 |
| commit | d76863bb7fbb933695b39b06da92246676506f16 (patch) | |
| tree | 02e707fea09ecd073e014c5ff0680449f2092429 | |
| parent | 18583b859194e19b4ec7e23ac228311c9c6edf5b (diff) | |
| download | haskell-d76863bb7fbb933695b39b06da92246676506f16.tar.gz | |
[project @ 2000-06-09 23:28:34 by lewie]
Simon was kind enough to re-write elegantly a function that I had written
awkwardly, but revealed that beautification doesn't always yield better
code ;-) Fixed a silly typo and further beautified the code (so that the
cut-n-paster error that Simon introduced would have been easier to spot).
| -rw-r--r-- | ghc/compiler/types/FunDeps.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/types/FunDeps.lhs b/ghc/compiler/types/FunDeps.lhs index 686d98d6c4..108fb1c643 100644 --- a/ghc/compiler/types/FunDeps.lhs +++ b/ghc/compiler/types/FunDeps.lhs @@ -79,7 +79,8 @@ lookupInstTy tyvars ts u = ts !! i tyVarFunDep :: [FunDep Type] -> [FunDep TyVar] tyVarFunDep fdtys - = [(varSetElems (tyVarsOfTypes xs), varSetElems (tyVarsOfTypes xs)) | (xs,ys) <- fdtys] + = [(getTyvars xs, getTyvars ys) | (xs, ys) <- fdtys] + where getTyvars = varSetElems . tyVarsOfTypes pprFundeps :: Outputable a => [FunDep a] -> SDoc pprFundeps [] = empty |