1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
import Distribution.Helper
import System.Environment.Extra (lookupEnv)
import System.Posix.Env (setEnv)
import System.Process
import System.Exit
import Data.Maybe
import Data.Version
import Data.Functor
import Control.Exception as E
import Control.Arrow
import CabalHelper.Common
import CabalHelper.Compile
import CabalHelper.Types
main :: IO ()
main = do
flip (setEnv "HOME") True =<< fromMaybe "/tmp" <$> lookupEnv "TMPDIR"
rawSystem "cabal" ["update"]
writeAutogenFiles readProcess "." "./dist"
let vers :: [(Version, [Version])]
vers = map (parseVer *** map parseVer) [
("7.4", [ "1.14.0"
]),
("7.6", [ "1.16.0"
, "1.16.0.1"
, "1.16.0.2"
, "1.16.0.3"
]),
("7.8", [
"1.18.0"
, "1.18.1"
, "1.18.1.1"
, "1.18.1.2"
, "1.18.1.3"
, "1.18.1.4"
, "1.18.1.5"
, "1.18.1.6"
, "1.20.0.0"
, "1.20.0.1"
, "1.20.0.2"
, "1.20.0.3"
, "1.22.0.0"
, "1.22.1.0"
, "1.22.1.1"
]),
("7.10", [
"1.22.2.0"
, "1.22.3.0"
, "1.22.4.0"
])
]
ghcVer <- ghcVersion defaultOptions
let cabalVers = concat $ map snd $ dropWhile ((<ghcVer) . fst) vers
rvs <- mapM compilePrivatePkgDb cabalVers
if any isLeft' rvs
then exitFailure
else exitSuccess
where
isLeft' (Left _) = True
isLeft' (Right _) = False
compilePrivatePkgDb :: Version -> IO (Either ExitCode FilePath)
compilePrivatePkgDb cabalVer = do
db <- installCabal defaultOptions cabalVer `E.catch`
\(SomeException _) -> errorInstallCabal cabalVer "dist"
compileWithPkg "." (Just db) cabalVer
compileWithPkg :: FilePath -> Maybe FilePath -> Version -> IO (Either ExitCode FilePath)
compileWithPkg chdir mdb ver =
compile "dist" defaultOptions $ Compile chdir Nothing mdb ver [cabalPkgId ver]
cabalPkgId :: Version -> String
cabalPkgId v = "Cabal-" ++ showVersion v
|
