diff options
| -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 |