[commit: ghc] master: Simplify code slightly; no change in behaviour (8e189a7)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8e189a7d9924166e9bb4c4e0200fa64512a7d151

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

commit 8e189a7d9924166e9bb4c4e0200fa64512a7d151
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Oct 19 20:35:01 2012 +0100

    Simplify code slightly; no change in behaviour

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

 compiler/typecheck/TcRnDriver.lhs |   10 ++--------
 1 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 6430c95..59ffee1 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -1701,15 +1701,9 @@ tcRnGetInfo :: HscEnv
 --  *and* as a type or class constructor;
 -- hence the call to dataTcOccs, and we return up to two results
 tcRnGetInfo hsc_env name
-  = initTcPrintErrors hsc_env iNTERACTIVE $
-    tcRnGetInfo' hsc_env name
-
-tcRnGetInfo' :: HscEnv
-             -> Name
-             -> TcRn (TyThing, Fixity, [ClsInst])
-tcRnGetInfo' hsc_env name
   = let ictxt = hsc_IC hsc_env in
-    setInteractiveContext hsc_env ictxt $ do
+    initTcPrintErrors hsc_env iNTERACTIVE $
+    setInteractiveContext hsc_env ictxt  $ do
 
         -- Load the interface for all unqualified types and classes
         -- That way we will find all the instance declarations