From 4be3e3f9d14a3071e0d38b549abf88ea5287bae5 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 5 Jun 2009 13:13:24 +0000 Subject: [PATCH] Follow Cabal changes --- utils/ghc-cabal/ghc-cabal.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/utils/ghc-cabal/ghc-cabal.hs b/utils/ghc-cabal/ghc-cabal.hs index 24b25b1..7bed090 100644 --- a/utils/ghc-cabal/ghc-cabal.hs +++ b/utils/ghc-cabal/ghc-cabal.hs @@ -198,11 +198,12 @@ generate config_args distdir directory -- generate inplace-pkg-config when (isJust $ library pd) $ - writeInstalledConfig distdir pd lbi True Nothing + writeInstalledConfig distdir pd lbi True + (distdir "inplace-pkg-config") let - libBiModules lib = (libBuildInfo lib, libModules pd) - exeBiModules exe = (buildInfo exe, ModuleName.main : exeModules pd) + libBiModules lib = (libBuildInfo lib, libModules lib) + exeBiModules exe = (buildInfo exe, ModuleName.main : exeModules exe) biModuless = (maybeToList $ fmap libBiModules $ library pd) ++ (map exeBiModules $ executables pd) buildableBiModuless = filter isBuildable biModuless @@ -236,8 +237,8 @@ generate config_args distdir directory let xs = [variablePrefix ++ "_VERSION = " ++ display (pkgVersion (package pd)), variablePrefix ++ "_MODULES = " ++ unwords (map display modules), variablePrefix ++ "_HS_SRC_DIRS = " ++ unwords (hsSourceDirs bi), - variablePrefix ++ "_DEPS = " ++ unwords (map display (packageDeps lbi)), - variablePrefix ++ "_DEP_NAMES = " ++ unwords (map (display . packageName) (packageDeps lbi)), + variablePrefix ++ "_DEPS = " ++ unwords (map display (externalPackageDeps lbi)), + variablePrefix ++ "_DEP_NAMES = " ++ unwords (map (display . packageName) (externalPackageDeps lbi)), variablePrefix ++ "_INCLUDE_DIRS = " ++ unwords (includeDirs bi), variablePrefix ++ "_INCLUDES = " ++ unwords (includes bi), variablePrefix ++ "_INSTALL_INCLUDES = " ++ unwords (installIncludes bi), -- 1.7.10.4