diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-12-18 12:01:58 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-12-18 12:01:58 +0000 |
| commit | 1e64fc81295ac27c5e662576da3afacd42186a13 (patch) | |
| tree | 27ddda256f301f6db22f44deead72cd543ac1931 | |
| parent | 23b5b80418e219f0c0c27f0e37a08ccdc0045e87 (diff) | |
| download | haskell-1e64fc81295ac27c5e662576da3afacd42186a13.tar.gz | |
Tiny refactor: use mkTyVarNamePairs
| -rw-r--r-- | compiler/typecheck/TcEnv.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcEnv.hs b/compiler/typecheck/TcEnv.hs index 21b895eea3..eac6d9fbc5 100644 --- a/compiler/typecheck/TcEnv.hs +++ b/compiler/typecheck/TcEnv.hs @@ -403,7 +403,7 @@ tcExtendKindEnv extra_env thing_inside -- Scoped type and kind variables tcExtendTyVarEnv :: [TyVar] -> TcM r -> TcM r tcExtendTyVarEnv tvs thing_inside - = tcExtendTyVarEnv2 [(tyVarName tv, tv) | tv <- tvs] thing_inside + = tcExtendTyVarEnv2 (mkTyVarNamePairs tvs) thing_inside tcExtendTyVarEnv2 :: [(Name,TcTyVar)] -> TcM r -> TcM r tcExtendTyVarEnv2 binds thing_inside |