From 35d3c5110e7a9613651cf5e34f8ebf7040935b1b Mon Sep 17 00:00:00 2001 From: "benjamin.franksen" Date: Fri, 3 Mar 2006 22:39:54 +0000 Subject: fixed libdir (/html was missing) --- src/HaddockHtml.hs | 5 +++-- 1 file 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 ] -- cgit v1.2.3