diff options
author | David Waern <david.waern@gmail.com> | 2008-10-21 19:54:52 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-10-21 19:54:52 +0000 |
commit | 9748eebe3967d048e784b7ce16b7b1dc7bfd913b (patch) | |
tree | 303f815d5052866cc5e60b0d6f798c2f151bcc74 /src | |
parent | 6540f377aa3aae38fb397b0353a7637b20767340 (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.
Diffstat (limited to 'src')
-rw-r--r-- | src/Main.hs | 6 |
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) |