[commit: ghc] wip/hasfield: Make addUsedGRE available in TcS (cc1fc74)

[git at git.haskell.org]

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

On branch  : wip/hasfield
Link       : http://ghc.haskell.org/trac/ghc/changeset/cc1fc74834f94c32f1a5c44735e7bda38d0a45b3/ghc

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

commit cc1fc74834f94c32f1a5c44735e7bda38d0a45b3
Author: Adam Gundry <adam at well-typed.com>
Date:   Tue Dec 22 16:23:03 2015 +0000

    Make addUsedGRE available in TcS


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

cc1fc74834f94c32f1a5c44735e7bda38d0a45b3
 compiler/typecheck/TcSMonad.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcSMonad.hs b/compiler/typecheck/TcSMonad.hs
index af7c4cc..c0ea916 100644
--- a/compiler/typecheck/TcSMonad.hs
+++ b/compiler/typecheck/TcSMonad.hs
@@ -16,7 +16,7 @@ module TcSMonad (
     runTcSEqualities,
     nestTcS, nestImplicTcS,
 
-    runTcPluginTcS, addUsedDataCons, deferTcSForAllEq,
+    runTcPluginTcS, addUsedDataCons, addUsedGRE, deferTcSForAllEq,
 
     -- Tracing etc
     panicTcS, traceTcS,
@@ -134,7 +134,7 @@ import TyCon
 import TcErrors   ( solverDepthErrorTcS )
 
 import Name
-import RdrName ( GlobalRdrEnv)
+import RdrName ( GlobalRdrEnv, GlobalRdrElt )
 import qualified RnEnv as TcM
 import Var
 import VarEnv
@@ -2657,6 +2657,10 @@ tcLookupId n = wrapTcS $ TcM.tcLookupId n
 addUsedDataCons :: GlobalRdrEnv -> TyCon -> TcS ()
 addUsedDataCons rdr_env tycon = wrapTcS  $ TcM.addUsedDataCons rdr_env tycon
 
+addUsedGRE :: Bool -> GlobalRdrElt -> TcS ()
+addUsedGRE warn_if_deprec gre = wrapTcS $ TcM.addUsedGRE warn_if_deprec gre
+
+
 -- Various smaller utilities [TODO, maybe will be absorbed in the instance matcher]
 -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~