diff options
Diffstat (limited to 'src/HaddockHH.hs')
| -rw-r--r-- | src/HaddockHH.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/HaddockHH.hs b/src/HaddockHH.hs index 77d97bca..26269919 100644 --- a/src/HaddockHH.hs +++ b/src/HaddockHH.hs @@ -18,10 +18,9 @@ contentsHHFile, indexHHFile :: String contentsHHFile = "index.hhc" indexHHFile = "index.hhk" -ppHHContents :: FilePath -> [(Module,Interface)] -> IO () -ppHHContents odir ifaces = do - let tree = mkModuleTree (map (\(mod,_) -> (mod,Nothing)) ifaces) --TODO: packages - html = +ppHHContents :: FilePath -> [ModuleTree] -> IO () +ppHHContents odir tree = do + let html = text "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">" $$ text "<HTML>" $$ text "<HEAD>" $$ |