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 <simo...@microsoft.com> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
