aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-10-21 19:54:52 +0000
committerDavid Waern <david.waern@gmail.com>2008-10-21 19:54:52 +0000
commit9748eebe3967d048e784b7ce16b7b1dc7bfd913b (patch)
tree303f815d5052866cc5e60b0d6f798c2f151bcc74
parent6540f377aa3aae38fb397b0353a7637b20767340 (diff)
Do not save hidden modules in the .haddock file (also for ghc >= 6.9)
When writing the first patch, I forgot to do the fix in both branches of an #if macro.
-rw-r--r--src/Main.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 75482481..902faed6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -172,12 +172,14 @@ main = handleTopExceptions $ do
-- create the interfaces -- this is the core part of Haddock
(interfaces, homeLinks) <- createInterfaces fileArgs extLinks flags
+ let visibleIfaces = [ i | i <- interfaces, OptHide `notElem` ifaceOptions i ]
+
liftIO $ do
-- render the interfaces
- renderStep packages interfaces
+ renderStep packages visibleIfaces
-- last but not least, dump the interface file
- dumpInterfaceFile (map toInstalledIface interfaces) homeLinks flags
+ dumpInterfaceFile (map toInstalledIface visibleIfaces) homeLinks flags
#else
-- initialize GHC
(session, dynflags) <- startGhc libDir (ghcFlags flags)