aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2012-04-01 01:55:20 +0200
committerDavid Waern <david.waern@gmail.com>2012-04-01 01:55:20 +0200
commit3f6a3f1983a9414e650a6dff0c7b0e824c8d83fe (patch)
tree0a86c69d8c4ed2e1d090d6cd68bfb016e4cc37c9
parent82975d2984851e9385fbb3bf1fe9c1786369aba6 (diff)
Cleanup.
-rw-r--r--src/Haddock/Interface/Create.hs13
1 files changed, 1 insertions, 12 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index d0b8b14f..5ba763cb 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