From 9748eebe3967d048e784b7ce16b7b1dc7bfd913b Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 21 Oct 2008 19:54:52 +0000
Subject: 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.
---
 src/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3