Get rid of H.Utils.pathJoin and use System.FilePath.joinPath instead

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Haddock/Backends/HH2.hs b/src/Haddock/Backends/HH2.hs
index 406ad87e..7a49bded 100644
--- a/src/Haddock/Backends/HH2.hs
+++ b/src/Haddock/Backends/HH2.hs
@@ -43,7 +43,7 @@ ppHH2Contents odir doctitle maybe_package tree = do
 		        nest 4 (ppModuleTree [] tree) $+$
 		        text "</HelpTOCNode>") $$
 		text "</HelpTOC>"
-  writeFile (pathJoin [odir, contentsHH2File]) (render doc)
+  writeFile (joinPath [odir, contentsHH2File]) (render doc)
   where
 	package = fromMaybe "pkg" maybe_package
 	
@@ -95,8 +95,8 @@ ppHH2Index odir maybe_package ifaces = do
 		nest 4 (text "<Jump Url=\""<>text contentsHtmlFile<>text "\"/>") $$
 		text "</Keyword>" $$
 		text "</HelpIndex>"
-  writeFile (pathJoin [odir, indexKHH2File]) (render docK)
-  writeFile (pathJoin [odir, indexNHH2File]) (render docN)
+  writeFile (joinPath [odir, indexKHH2File]) (render docK)
+  writeFile (joinPath [odir, indexNHH2File]) (render docN)
   where
 	package = fromMaybe "pkg" maybe_package
     
@@ -132,7 +132,7 @@ ppHH2Files odir maybe_package ifaces pkg_paths = do
                 ppIndexFiles chars $$
                 ppLibFiles ("":pkg_paths)) $$
         text "</HelpFileList>"
-  writeFile (pathJoin [odir, filesHH2File]) (render doc)
+  writeFile (joinPath [odir, filesHH2File]) (render doc)
   where
     package = fromMaybe "pkg" maybe_package
 	
@@ -157,7 +157,7 @@ ppHH2Files odir 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 "<File Url=\""<>text (toPath fname)<>text "\"/>"
 
     chars :: [Char]
@@ -192,5 +192,5 @@ ppHH2Collection odir doctitle maybe_package = do
 		        text "<ItemMoniker Name=\"!DefaultNamedUrlIndex\" ProgId=\"HxDs.HxIndex\" InitData=\"NamedURLIndex\"/>" $$
 		        text "<ItemMoniker Name=\"!SampleInfo\" ProgId=\"HxDs.HxSampleCollection\" InitData=\"\"/>") $$
 		text "</HelpCollection>"
-  writeFile (pathJoin [odir, collectionHH2File]) (render doc)
+  writeFile (joinPath [odir, collectionHH2File]) (render doc)
 -}