@@ -29,6 +29,7 @@ import qualified Packages
2929import Platform
3030import qualified EnumSet
3131import Data.IORef
32+import System.FilePath
3233import GHC.Generics (Generic)
3334
3435----------------------------------------------------------------------
@@ -38,7 +39,7 @@ setPackageDbs :: [FilePath] -> DynFlags -> DynFlags
3839setPackageDbs paths dflags =
3940 dflags
4041 { packageDBFlags =
41− [PackageDB $ PkgConfFile path | path <- paths] ++ [NoGlobalPackageDB, ClearPackageDBs]
42+ [PackageDB $ PkgConfFile $ path </> "package.conf.d" | path <- paths] ++ [NoGlobalPackageDB, ClearPackageDBs]
4243 , pkgDatabase = if null paths then Just [] else Nothing
4344 -- if we don't load any packages set the package database to empty and loaded.
4445 , settings = (settings dflags)