[commit: ghc] wip/14691: use tcLookupGlobal in TcS’s MonadThings instance (428f4f2)

[git at git.haskell.org]

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

On branch  : wip/14691
Link       : http://ghc.haskell.org/trac/ghc/changeset/428f4f2f2563908b531374aed7016a222ad04a7f/ghc

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

commit 428f4f2f2563908b531374aed7016a222ad04a7f
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Sun Jan 21 10:01:50 2018 -0500

    use tcLookupGlobal in TcS’s MonadThings instance


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

428f4f2f2563908b531374aed7016a222ad04a7f
 compiler/typecheck/TcSMonad.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcSMonad.hs b/compiler/typecheck/TcSMonad.hs
index 14e010d..b1c55f2 100644
--- a/compiler/typecheck/TcSMonad.hs
+++ b/compiler/typecheck/TcSMonad.hs
@@ -128,7 +128,8 @@ import FamInstEnv
 import qualified TcRnMonad as TcM
 import qualified TcMType as TcM
 import qualified TcEnv as TcM
-       ( checkWellStaged, topIdLvl, tcGetDefaultTys, tcLookupClass, tcLookupId )
+       ( checkWellStaged, topIdLvl, tcGetDefaultTys
+       , tcLookupClass, tcLookupId, tcLookupGlobal )
 import PrelNames( heqTyConKey, eqTyConKey )
 import Kind
 import TcType
@@ -2390,7 +2391,7 @@ instance HasModule TcS where
    getModule = wrapTcS getModule
 
 instance MonadThings TcS where
-   lookupThing n = wrapTcS (lookupThing n)
+   lookupThing n = wrapTcS (TcM.tcLookupGlobal n)
 
 -- Basic functionality
 -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~