Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/3f6a3f1983a9414e650a6dff0c7b0e824c8d83fe >--------------------------------------------------------------- commit 3f6a3f1983a9414e650a6dff0c7b0e824c8d83fe Author: David Waern <[email protected]> Date: Sun Apr 1 01:55:20 2012 +0200 Cleanup. >--------------------------------------------------------------- src/Haddock/Interface/Create.hs | 13 +------------ 1 files changed, 1 insertions(+), 12 deletions(-) diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index d0b8b14..5ba763c 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -51,6 +51,7 @@ createInterface tm flags modMap instIfaceMap = do dflags = ms_hspp_opts ms instances = modInfoInstances mi exportedNames = modInfoExports mi + (TcGblEnv {tcg_rdr_env = gre, tcg_warns = warnings}, _) = tm_internals_ tm -- The renamed source should always be available to us, but it's best @@ -62,18 +63,6 @@ createInterface tm flags modMap instIfaceMap = do return (emptyRnGroup, Nothing, Nothing) Just (x, _, y, z) -> return (x, y, z) -{- - -- The pattern-match should not fail, because createInterface is only - -- done on loaded modules. - gre0 <- liftGhcToErrMsgGhc $ lookupLoadedHomeModuleGRE (moduleName mdl) - gre <- - case gre0 of - Nothing -> do - liftErrMsg $ tell [ "Warning: Could not find module in renaming environment: " ++ pretty mdl ] - return emptyGlobalRdrEnv - Just gre -> return gre --} - opts0 <- liftErrMsg $ mkDocOpts (haddockOptions dflags) flags mdl let opts | Flag_IgnoreAllExports `elem` flags = OptIgnoreExports : opts0 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
