[commit: ghc] master: Tiny refactor: use mkTyVarNamePairs (1e64fc8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1e64fc81295ac27c5e662576da3afacd42186a13/ghc

>---------------------------------------------------------------

commit 1e64fc81295ac27c5e662576da3afacd42186a13
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Dec 18 12:01:58 2017 +0000

    Tiny refactor: use mkTyVarNamePairs


>---------------------------------------------------------------

1e64fc81295ac27c5e662576da3afacd42186a13
 compiler/typecheck/TcEnv.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcEnv.hs b/compiler/typecheck/TcEnv.hs
index 21b895e..eac6d9f 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