From d76863bb7fbb933695b39b06da92246676506f16 Mon Sep 17 00:00:00 2001
From: lewie <unknown>
Date: Fri, 9 Jun 2000 23:28:34 +0000
Subject: [PATCH] [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).

---
 ghc/compiler/types/FunDeps.lhs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/types/FunDeps.lhs b/ghc/compiler/types/FunDeps.lhs
index 686d98d6c4cb..108fb1c6435a 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
-- 
GitLab