[project @ 2005-05-17 10:51:04 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Packages.lhs

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index 65f8523..240c132 100644 (file)
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -209,8 +209,9 @@ readPackageConfigs dflags = do
    (exists, pkgconf) <- catch (do
       appdir <- getAppUserDataDirectory "ghc"
       let 
-        pkgconf = appdir ++ '/':TARGET_ARCH ++ '-':TARGET_OS
-                       ++ '-':cProjectVersion ++ "/package.conf"
+        pkgconf = appdir
+                  `joinFileName` (TARGET_ARCH ++ '-':TARGET_OS ++ '-':cProjectVersion)
+                  `joinFileName` "package.conf"
       flg <- doesFileExist pkgconf
       return (flg, pkgconf))
        -- gobble them all up and turn into False.