diff options
| -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) |