diff options
| author | panne <unknown> | 2004-08-02 21:12:27 +0000 |
|---|---|---|
| committer | panne <unknown> | 2004-08-02 21:12:27 +0000 |
| commit | 13847171a3b1733b876bff8e157f8c97c665d1a6 (patch) | |
| tree | 3e8aa3774feaf2aec1fb87bb22e9a1e69ee2d708 /src/HaddockHH.hs | |
| parent | 37830bff36b9344c11694d642bca9789f435dede (diff) | |
[haddock @ 2004-08-02 21:12:25 by panne]
Use pathJoin instead of low-level list-based manipulation for FilePaths
Diffstat (limited to 'src/HaddockHH.hs')
| -rw-r--r-- | src/HaddockHH.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/HaddockHH.hs b/src/HaddockHH.hs index d4dc07e8..e0e9a97a 100644 --- a/src/HaddockHH.hs +++ b/src/HaddockHH.hs @@ -30,7 +30,7 @@ ppHHContents odir doctitle maybe_package tree = do text "</HEAD><BODY>" $$ ppModuleTree tree $$ text "</BODY><HTML>" - writeFile (odir ++ pathSeparator:contentsHHFile) (render html) + writeFile (pathJoin [odir, contentsHHFile]) (render html) where package = fromMaybe "pkg" maybe_package @@ -93,7 +93,7 @@ ppHHIndex odir maybe_package ifaces = do nest 4 (ppList index) $+$ text "</UL>" $$ text "</BODY><HTML>" - writeFile (odir ++ pathSeparator:indexHHFile) (render html) + writeFile (pathJoin [odir, indexHHFile]) (render html) where package = fromMaybe "pkg" maybe_package @@ -138,7 +138,7 @@ ppHHProject odir doctitle maybe_package ifaces pkg_paths = do text indexHtmlFile $$ ppIndexFiles chars $$ ppLibFiles ("":pkg_paths) - writeFile (odir ++ pathSeparator:projectHHFile) (render doc) + writeFile (pathJoin [odir, projectHHFile]) (render doc) where package = fromMaybe "pkg" maybe_package @@ -162,7 +162,7 @@ ppHHProject odir doctitle maybe_package ifaces pkg_paths = do ppLibFiles paths where toPath fname | null path = fname - | otherwise = path++pathSeparator:fname + | otherwise = pathJoin [path, fname] ppLibFile fname = text (toPath fname) chars :: [Char] |