1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Backends/HH.hs b/src/Haddock/Backends/HH.hs
index ea14d41a..39390573 100644
--- a/src/Haddock/Backends/HH.hs
+++ b/src/Haddock/Backends/HH.hs
@@ -39,7 +39,7 @@ ppHHContents odir doctitle maybe_package tree = do
 	text "</HEAD><BODY>" $$
 	ppModuleTree tree $$
 	text "</BODY><HTML>"
-  writeFile (pathJoin [odir, contentsHHFile]) (render html)
+  writeFile (joinPath [odir, contentsHHFile]) (render html)
   where
 	package = fromMaybe "pkg" maybe_package
 	
@@ -102,7 +102,7 @@ ppHHIndex odir maybe_package ifaces = do
 	nest 4 (ppList index) $+$
 	text "</UL>" $$
 	text "</BODY><HTML>"
-  writeFile (pathJoin [odir, indexHHFile]) (render html)
+  writeFile (joinPath [odir, indexHHFile]) (render html)
   where
 	package = fromMaybe "pkg" maybe_package
   	
@@ -148,7 +148,7 @@ ppHHProject odir doctitle maybe_package ifaces pkg_paths = do
         text indexHtmlFile $$
         ppIndexFiles chars $$
         ppLibFiles ("":pkg_paths)
-  writeFile (pathJoin [odir, projectHHFile]) (render doc)
+  writeFile (joinPath [odir, projectHHFile]) (render doc)
   where
     package = fromMaybe "pkg" maybe_package
 	
@@ -173,7 +173,7 @@ ppHHProject odir doctitle maybe_package ifaces pkg_paths = do
         ppLibFiles paths
         where
             toPath fname | null path = fname
-	                 | otherwise = pathJoin [path, fname]
+	                 | otherwise = joinPath [path, fname]
             ppLibFile fname = text (toPath fname)
 
     chars :: [Char]