From db61aebd5ebfb37f434cc8d8a30e1a5c10375002 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 4 Jun 2009 12:45:01 +0000 Subject: [PATCH] Fix ghc-cabal, so that GHC.Prim gets registered when we install --- utils/ghc-cabal/ghc-cabal.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/utils/ghc-cabal/ghc-cabal.hs b/utils/ghc-cabal/ghc-cabal.hs index c9c8764..24b25b1 100644 --- a/utils/ghc-cabal/ghc-cabal.hs +++ b/utils/ghc-cabal/ghc-cabal.hs @@ -109,13 +109,12 @@ doInstall ghcpkg ghcpkgconf directory distDir myDestDir myPrefix myLibdir myDocd defaultMainWithHooksArgs hooks ("register" : "--builddir" : distDir : args) where hooks = userHooks { - copyHook = modHook (copyHook userHooks), + copyHook = noGhcPrimHook (modHook (copyHook userHooks)), regHook = modHook (regHook userHooks) } - modHook f pd lbi us flags - = let - pd' + noGhcPrimHook f pd lbi us flags + = let pd' | packageName pd == PackageName "ghc-prim" = case library pd of Just lib -> @@ -126,7 +125,9 @@ doInstall ghcpkg ghcpkgconf directory distDir myDestDir myPrefix myLibdir myDocd Nothing -> error "Expected a library, but none found" | otherwise = pd - idts = installDirTemplates lbi + in f pd' lbi us flags + modHook f pd lbi us flags + = let idts = installDirTemplates lbi idts' = idts { prefix = toPathTemplate myPrefix, libdir = toPathTemplate myLibdir, libsubdir = toPathTemplate "$pkgid", @@ -147,7 +148,7 @@ doInstall ghcpkg ghcpkgconf directory distDir myDestDir myPrefix myLibdir myDocd installDirTemplates = idts', withPrograms = progs' } - in f pd' lbi' us flags + in f pd lbi' us flags generate :: [String] -> FilePath -> FilePath -> IO () generate config_args distdir directory -- 1.7.10.4