diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-11-08 12:02:04 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-11-08 12:02:04 +0000 |
| commit | 6e232f498ba600e7d7cc4938f5f2e6ce5d300bbc (patch) | |
| tree | 3a7bee3caeaed5e466316c07b571b6b9a00f9d12 /utils | |
| parent | 0434f5bf9a2712a99e9e6c99d67991a3f09af91d (diff) | |
| download | haskell-6e232f498ba600e7d7cc4938f5f2e6ce5d300bbc.tar.gz | |
Tell ghc-cabal what strip program to use
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-cabal/ghc-cabal.hs | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/utils/ghc-cabal/ghc-cabal.hs b/utils/ghc-cabal/ghc-cabal.hs index 9a99ad4151..ef4e989e6c 100644 --- a/utils/ghc-cabal/ghc-cabal.hs +++ b/utils/ghc-cabal/ghc-cabal.hs @@ -34,10 +34,10 @@ main = do args <- getArgs runHaddock distDir dir args' "check" : dir : [] -> doCheck dir - "install" : ghc : ghcpkg : topdir : directory : distDir + "install" : ghc : ghcpkg : strip : topdir : directory : distDir : myDestDir : myPrefix : myLibdir : myDocdir : relocatableBuild : args' -> - doInstall ghc ghcpkg topdir directory distDir + doInstall ghc ghcpkg strip topdir directory distDir myDestDir myPrefix myLibdir myDocdir relocatableBuild args' "configure" : args' -> case break (== "--") args' of @@ -139,10 +139,10 @@ runHaddock distdir directory args = f pd lbi us flags doInstall :: FilePath -> FilePath -> FilePath -> FilePath -> FilePath - -> FilePath -> FilePath -> FilePath -> FilePath -> String - -> [String] + -> FilePath -> FilePath -> FilePath -> FilePath -> FilePath + -> String -> [String] -> IO () -doInstall ghc ghcpkg topdir directory distDir +doInstall ghc ghcpkg strip topdir directory distDir myDestDir myPrefix myLibdir myDocdir relocatableBuildStr args = withCurrentDirectory directory $ do @@ -220,8 +220,16 @@ doInstall ghc ghcpkg topdir directory distDir else [], programLocation = UserSpecified ghcpkg } + stripProg = ConfiguredProgram { + programId = programName stripProgram, + programVersion = Nothing, + programArgs = [], + programLocation = UserSpecified strip + } progs' = updateProgram ghcProg - $ updateProgram ghcPkgProg progs + $ updateProgram ghcPkgProg + $ updateProgram stripProg + progs instInfos <- dump verbosity ghcPkgProg GlobalPackageDB let installedPkgs' = PackageIndex.fromList instInfos let mlc = libraryConfig lbi |