aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)