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.

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)