git.iko.soy/stackage
on 87ab746 help sign in
stackage/Stackage/Build.hs
90 lines 3.6 kB history raw
1module Stackage.Build
2 ( build
3 , defaultBuildSettings
4 , BuildSettings (..)
5 ) where
7import Control.Monad (unless)
8import Prelude hiding (pi)
9import Stackage.CheckCabalVersion (checkCabalVersion)
10import Stackage.Config
11import Stackage.InstallInfo
12import Stackage.Types
13import Stackage.Util
14import System.Exit (ExitCode (ExitSuccess), exitWith)
15import System.IO (BufferMode (NoBuffering),
16 IOMode (WriteMode), hPutStrLn,
17 hSetBuffering, withBinaryFile)
18import System.Process (rawSystem, runProcess,
19 waitForProcess)
21defaultBuildSettings :: GhcMajorVersion -> BuildSettings
22defaultBuildSettings version = BuildSettings
23 { sandboxRoot = "sandbox"
24 , expectedFailuresBuild = defaultExpectedFailures version
25 , extraArgs = const ["-fnetwork23"]
26 , testWorkerThreads = 4
27 , buildDocs = True
28 , tarballDir = "patching/tarballs"
29 }
31build :: BuildSettings -> BuildPlan -> IO ()
32build settings' bp = do
33 libVersion <- checkCabalVersion
35 putStrLn "Wiping out old sandbox folder"
36 rm_r $ sandboxRoot settings'
37 rm_r "logs"
38 settings <- fixBuildSettings settings'
40 putStrLn "Creating new package database"
41 ec1 <- rawSystem "ghc-pkg" ["init", packageDir settings]
42 unless (ec1 == ExitSuccess) $ do
43 putStrLn "Unable to create package database via ghc-pkg init"
44 exitWith ec1
46 menv <- fmap Just $ getModifiedEnv settings
47 let runCabal args handle = runProcess "cabal" args Nothing menv Nothing (Just handle) (Just handle)
49 -- First install build tools so they can be used below.
50 let installBuildTool tool = do
51 putStrLn $ "Installing build tool: " ++ tool
52 ec <- withBinaryFile "build-tools.log" WriteMode $ \handle -> do
53 hSetBuffering handle NoBuffering
55 let args = addCabalArgs settings BSBuild
56 $ "install"
57 : ("--cabal-lib-version=" ++ libVersion)
58 : "--build-log=logs-tools/$pkg.log"
59 : "-j"
60 : [tool]
61 hPutStrLn handle ("cabal " ++ unwords (map (\s -> "'" ++ s ++ "'") args))
62 ph <- runCabal args handle
63 waitForProcess ph
64 unless (ec == ExitSuccess) $ do
65 putStrLn $ concat
66 [ "Building of "
67 , tool
68 , " failed, please see build-tools.log"
69 ]
70 exitWith ec
71 putStrLn $ tool ++ " built"
72 mapM_ installBuildTool $ bpTools bp
74 putStrLn "Beginning Stackage build"
75 ph <- withBinaryFile "build.log" WriteMode $ \handle -> do
76 packageList <- mapM (replaceTarball settings) $ bpPackageList bp
77 let args = addCabalArgs settings BSBuild
78 $ "install"
79 : ("--cabal-lib-version=" ++ libVersion)
80 : "--build-log=logs/$pkg.log"
81 : "--max-backjumps=-1"
82 : "--reorder-goals"
83 : "-j"
84 : packageList
85 hPutStrLn handle ("cabal " ++ unwords (map (\s -> "'" ++ s ++ "'") args))
86 runCabal args handle
87 ec <- waitForProcess ph
88 unless (ec == ExitSuccess) $ do
89 putStrLn "Build failed, please see build.log"
90 exitWith ec