diff options
| author | krasimir <unknown> | 2004-07-30 22:15:47 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-30 22:15:47 +0000 |
| commit | 64d30b1db8d571bc3b0d8947a81c59b4bd353417 (patch) | |
| tree | 960779535be0249a03ef78d71326379180a2e5c6 /src/HaddockHH.hs | |
| parent | c4fb4881fa80488d9939b52bf333c2ac89fd4c52 (diff) | |
[haddock @ 2004-07-30 22:15:45 by krasimir]
more stuffs
- support for separated compilation of packages
- the contents page now uses DHTML TreeView
- fixed copyFile bug
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>" $$ |