aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs11
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs
index fb1c54fd..75482481 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -191,11 +191,13 @@ main = handleTopExceptions $ do
-- create the interfaces -- this is the core part of Haddock
(interfaces, homeLinks) <- createInterfaces session fileArgs extLinks flags
+ let visibleIfaces = [ i | i <- interfaces, OptHide `notElem` ifaceOptions i ]
+
-- 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
#endif
else do
-- get packages supplied with --read-interface
@@ -212,7 +214,7 @@ main = handleTopExceptions $ do
-- | Render the interfaces with whatever backend is specified in the flags
render :: [Flag] -> [Interface] -> [InstalledInterface] -> IO ()
-render flags interfaces installedIfaces = do
+render flags visibleIfaces installedIfaces = do
let
title = case [str | Flag_Heading str <- flags] of
[] -> ""
@@ -267,9 +269,6 @@ render flags interfaces installedIfaces = do
prologue <- getPrologue flags
let
- -- visible home-module interfaces
- visibleIfaces = [ m | m <- interfaces, OptHide `notElem` (ifaceOptions m) ]
-
-- *all* visible interfaces including external package modules
allVisibleIfaces = map toInstalledIface visibleIfaces
++ installedIfaces