diff options
| author | benjamin.franksen <benjamin.franksen@bessy.de> | 2006-03-03 22:39:54 +0000 |
|---|---|---|
| committer | benjamin.franksen <benjamin.franksen@bessy.de> | 2006-03-03 22:39:54 +0000 |
| commit | 35d3c5110e7a9613651cf5e34f8ebf7040935b1b (patch) | |
| tree | fe83a5217269c9c64e8b8d7f61ccf08f08d3026f | |
| parent | f86fb9c0078eb9229799dbc5a755b7fa6dbfe11f (diff) | |
fixed libdir (/html was missing)
| -rw-r--r-- | src/HaddockHtml.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 272d2ea6..c8561491 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -120,12 +120,13 @@ copyFile fromFPath toFPath = copyHtmlBits :: FilePath -> FilePath -> Maybe FilePath -> IO () copyHtmlBits odir libdir maybe_css = do let + libhtmldir = pathJoin [libdir, "html"] css_file = case maybe_css of - Nothing -> pathJoin [libdir, cssFile] + Nothing -> pathJoin [libhtmldir, cssFile] Just f -> f css_destination = pathJoin [odir, cssFile] copyLibFile f = do - copyFile (pathJoin [libdir, f]) (pathJoin [odir, f]) + copyFile (pathJoin [libhtmldir, f]) (pathJoin [odir, f]) copyFile css_file css_destination mapM_ copyLibFile [ iconFile, plusFile, minusFile, jsFile ] |