[haddock @ 2004-08-02 21:12:25 by panne]

Use pathJoin instead of low-level list-based manipulation for FilePaths

1 files changed, 1 insertions, 1 deletions

diff --git a/src/HaddockDevHelp.hs b/src/HaddockDevHelp.hs
index 3ebfc1c3..23f3bfc6 100644
--- a/src/HaddockDevHelp.hs
+++ b/src/HaddockDevHelp.hs
@@ -32,7 +32,7 @@ ppDevHelpFile odir doctitle maybe_package ifaces = do
         nest 4 (ppList index) $+$
         text "</functions>" $$
         text "</book>"
-  writeFile (odir ++ pathSeparator:devHelpFile) (render doc)
+  writeFile (pathJoin [odir, devHelpFile]) (render doc)
   where    
     package = fromMaybe "pkg" maybe_package