diff options
| author | David Waern <unknown> | 2007-08-30 16:30:37 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-08-30 16:30:37 +0000 |
| commit | e185f5ae9c9470b861916aa96933fa72cd703a4e (patch) | |
| tree | 0ccb61c3b3d48e5050c605f0480030ea29b9c7d0 /src/Main.hs | |
| parent | 05e581c7f2ecee466d800b2d01dbb34598de2e20 (diff) | |
Rename HaddockModule to Interface
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index b12c7850..980e2023 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -190,8 +190,8 @@ render flags interfaces = do prologue <- getPrologue flags let - visibleMods = [ m | m <- interfaces, OptHide `notElem` (hmod_options m) ] - packageName = (Just . modulePkgStr . hmod_mod . head) visibleMods + visibleMods = [ m | m <- interfaces, OptHide `notElem` (ifaceOptions m) ] + packageName = (Just . modulePkgStr . ifaceMod . head) visibleMods when (Flag_GenIndex `elem` flags) $ do ppHtmlIndex odir title packageName maybe_html_help_format |