git.iko.soy/stackage
on 236c490 help sign in
stackage/Stackage/Build.hs
88 lines 3.3 kB history raw
1module Stackage.Build
2 ( build
3 , defaultBuildSettings
4 , BuildSettings (..)
5 ) where
7import Distribution.Text (simpleParse)
8import Control.Monad (unless)
9import Stackage.Types
10import Stackage.CheckPlan
11import Stackage.InstallInfo
12import Stackage.Tarballs
13import Stackage.Test
14import Stackage.Util
15import Stackage.Config
16import System.Exit (ExitCode (ExitSuccess), exitWith)
17import System.IO (IOMode (WriteMode), withBinaryFile)
18import System.Process (runProcess, waitForProcess, rawSystem, readProcess)
19import System.Directory (createDirectoryIfMissing, canonicalizePath)
20import Distribution.Version (thisVersion, withinRange)
21import Control.Exception (assert)
23defaultBuildSettings :: BuildSettings
24defaultBuildSettings = BuildSettings
25 { sandboxRoot = "sandbox"
26 , extraBuildArgs = []
27 , extraCore = defaultExtraCore
28 , expectedFailures = defaultExpectedFailures
29 , stablePackages = defaultStablePackages
30 , extraArgs = ["-fnetwork23"]
31 }
33build :: BuildSettings -> IO ()
34build settings' = do
35 putStrLn "Creating a build plan"
36 ii <- getInstallInfo settings'
38 putStrLn "Wiping out old sandbox folder"
39 let root' = sandboxRoot settings'
40 rm_r root'
41 rm_r "logs"
42 createDirectoryIfMissing True root'
43 root <- canonicalizePath root'
44 let settings = settings' { sandboxRoot = root }
46 ec1 <- rawSystem "ghc-pkg" ["init", packageDir settings]
47 unless (ec1 == ExitSuccess) $ do
48 putStrLn "Unable to create package database via ghc-pkg init"
49 exitWith ec1
51 checkPlan settings ii
52 putStrLn "No mismatches, starting the sandboxed build."
54 versionString <- readProcess "cabal" ["--version"] ""
55 libVersion <-
56 case map words $ lines versionString of
57 [_,["using","version",libVersion,"of","the","Cabal","library"]] -> return libVersion
58 _ -> error "Did not understand cabal --version output"
60 case (simpleParse libVersion, simpleParse ">= 1.16") of
61 (Nothing, _) -> error $ "Invalid Cabal library version: " ++ libVersion
62 (_, Nothing) -> assert False $ return ()
63 (Just v, Just vr)
64 | v `withinRange` vr -> return ()
65 | otherwise -> error $ "Unsupported Cabal version: " ++ libVersion
67 ph <- withBinaryFile "build.log" WriteMode $ \handle ->
68 let args = addCabalArgs settings
69 $ "install"
70 : ("--cabal-lib-version=" ++ libVersion)
71 : "--build-log=logs/$pkg.log"
72 : "-j"
73 : concat
74 [ extraBuildArgs settings
75 , extraArgs settings
76 , iiPackageList ii
77 ]
78 in runProcess "cabal" args Nothing Nothing Nothing (Just handle) (Just handle)
79 ec <- waitForProcess ph
80 unless (ec == ExitSuccess) $ do
81 putStrLn "Build failed, please see build.log"
82 exitWith ec
84 putStrLn "Sandbox built, beginning individual test suites"
85 runTestSuites settings ii
87 putStrLn "All test suites that were expected to pass did pass, building tarballs."
88 makeTarballs ii