From db6d762f755e94540ce1d42e03c4fde8f26cb4c2 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 6 Nov 2003 16:48:14 +0000 Subject: [haddock @ 2003-11-06 16:48:11 by simonmar] - Include the OptHide setting in the interface, so we don't include hidden modules in the combined index/contents. - Add a -k/--package flag to set the package name for the current set of modules. The package name for each module is now shown in the right-hand column of the contents, in a combined contents page. --- src/HaddockHH.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/HaddockHH.hs') diff --git a/src/HaddockHH.hs b/src/HaddockHH.hs index 9357c00c..f10c970e 100644 --- a/src/HaddockHH.hs +++ b/src/HaddockHH.hs @@ -20,7 +20,7 @@ indexHHFile = "index.hhk" ppHHContents :: FilePath -> [Module] -> IO () ppHHContents odir mods = do - let tree = mkModuleTree mods + let tree = mkModuleTree (zip mods (repeat Nothing)) --TODO: packages html = text "" $$ text "" $$ @@ -47,9 +47,9 @@ ppHHContents odir mods = do fn _ [] = error "HaddockHH.ppHHContents.fn: no module trees given" ppNode :: [String] -> ModuleTree -> Doc - ppNode ss (Node s leaf []) = + ppNode ss (Node s leaf _pkg []) = ppLeaf s ss leaf - ppNode ss (Node s leaf ts) = + ppNode ss (Node s leaf _pkg ts) = ppLeaf s ss leaf $$ text "