[commit: ghc] master: Tiny refactor (efe4054)

[git at git.haskell.org]

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

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

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

commit efe405447b9fa88cebce718a6329091755deb9ad
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu May 10 17:30:43 2018 +0100

    Tiny refactor


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

efe405447b9fa88cebce718a6329091755deb9ad
 compiler/typecheck/TcRnMonad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcRnMonad.hs b/compiler/typecheck/TcRnMonad.hs
index d41f586..8f4812e 100644
--- a/compiler/typecheck/TcRnMonad.hs
+++ b/compiler/typecheck/TcRnMonad.hs
@@ -1533,8 +1533,8 @@ setTcLevel tclvl thing_inside
 
 isTouchableTcM :: TcTyVar -> TcM Bool
 isTouchableTcM tv
-  = do { env <- getLclEnv
-       ; return (isTouchableMetaTyVar (tcl_tclvl env) tv) }
+  = do { lvl <- getTcLevel
+       ; return (isTouchableMetaTyVar lvl tv) }
 
 getLclTypeEnv :: TcM TcTypeEnv
 getLclTypeEnv = do { env <- getLclEnv; return (tcl_env env) }