[commit: ghc] wip/nfs-locking: Fix wrapper build rules (9da5e17)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:58:42 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/9da5e17c26e1c9d256052fa065e8c331635b4c5b/ghc

>---------------------------------------------------------------

commit 9da5e17c26e1c9d256052fa065e8c331635b4c5b
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Aug 29 10:23:52 2017 +0100

    Fix wrapper build rules
    
    See #403


>---------------------------------------------------------------

9da5e17c26e1c9d256052fa065e8c331635b4c5b
 src/Rules/Program.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Rules/Program.hs b/src/Rules/Program.hs
index 13bfd34..0211cfe 100644
--- a/src/Rules/Program.hs
+++ b/src/Rules/Program.hs
@@ -14,6 +14,7 @@ import Settings.Packages.Rts
 import Target
 import Utilities
 
+-- | TODO: Drop code duplication
 buildProgram :: [(Resource, Int)] -> Package -> Rules ()
 buildProgram rs package = do
     forM_ [Stage0 ..] $ \stage -> do
@@ -25,11 +26,19 @@ buildProgram rs package = do
             buildBinaryAndWrapper rs context' bin
 
         -- Rules for the GHC package, which is built 'inplace'
-        when (package == ghc) $
+        when (package == ghc) $ do
             inplaceBinPath -/- programName context <.> exe %> \bin -> do
                 context' <- programContext stage package
                 buildBinaryAndWrapper rs context' bin
 
+            inplaceLibBinPath -/- programName context <.> exe %> \bin -> do
+                context' <- programContext stage package
+                buildBinary rs context' bin
+
+            inplaceLibBinPath -/- programName context <.> "bin" %> \bin -> do
+                context' <- programContext stage package
+                buildBinary rs context' bin
+
     -- Rules for other programs built in inplace directories
     when (package /= ghc) $ do
         let context0 = vanillaContext Stage0 package -- TODO: get rid of context0



More information about the ghc-commits mailing list