[commit: ghc] wip/14691: Revert "use tcLookupGlobal in TcS’s MonadThings instance" (f1636a3)

[git at git.haskell.org]

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

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

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

commit f1636a370a41fda5b53c56a23adbd9842778edeb
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Sun Jan 21 11:38:02 2018 -0500

    Revert "use tcLookupGlobal in TcS’s MonadThings instance"
    
    This reverts commit 428f4f2f2563908b531374aed7016a222ad04a7f, which was
    pretty pointless, and did not help.


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

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

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