Fix wrapper build
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 28 Aug 2017 23:46:19 +0000 (00:46 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 28 Aug 2017 23:46:19 +0000 (00:46 +0100)
See #403

src/Rules/Program.hs

index c8a725e..b13f8a2 100644 (file)
@@ -17,7 +17,7 @@ import Utilities
 -- TODO: Drop way in build rule generation?
 buildProgram :: [(Resource, Int)] -> Context -> Rules ()
 buildProgram rs context@Context {..} = when (isProgram package) $ do
-    let installStage = do
+    let installStage = if package == ghc then return stage else do
             stages <- installStages package
             case stages of
                 [s] -> return s
@@ -33,7 +33,7 @@ buildProgram rs context@Context {..} = when (isProgram package) $ do
         -- Some binaries in inplace/bin are wrapped
         inplaceBinPath -/- programName context <.> exe %> \bin -> do
             context' <- programContext stage package
-            binStage <- if package == ghc then return stage else installStage
+            binStage <- installStage
             buildBinaryAndWrapper rs (context' { stage = binStage }) bin
 
         inplaceLibBinPath -/- programName context <.> exe %> \bin -> do