[commit: haddock] ghc-7.4: Cleanup. (3f6a3f1)

[David Waern]

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 <david.waern at gmail.com>
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