haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-24 12:07:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Better build arguments

Browse Source
This commit is contained in:
Michael Snoyman 2013-01-25 07:04:59 +02:00
parent 7e9e843aec
commit 86d8f93c51
1 changed files with 37 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
app/stackage.hs
View File

@ -38,9 +38,39 @@ parseSelectArgs =
loop x ("--build-plan":y:rest) = loop x { buildPlanDest = y } rest loop x ("--build-plan":y:rest) = loop x { buildPlanDest = y } rest
loop _ (y:_) = error $ "Did not understand argument: " ++ y loop _ (y:_) = error $ "Did not understand argument: " ++ y
data BuildArgs = BuildArgs
{ sandbox :: String
, buildPlanSrc :: FilePath
, extraArgs' :: [String] -> [String]
}
parseBuildArgs :: [String] -> IO BuildArgs
parseBuildArgs =
loop BuildArgs
{ sandbox = sandboxRoot defaultBuildSettings
, buildPlanSrc = defaultBuildPlan
, extraArgs' = id
}
where
loop x [] = return x
loop x ("--sandbox":y:rest) = loop x { sandbox = y } rest
loop x ("--build-plan":y:rest) = loop x { buildPlanSrc = y } rest
loop x ("--arg":y:rest) = loop x { extraArgs' = extraArgs' x . (y:) } rest
loop _ (y:_) = error $ "Did not understand argument: " ++ y
defaultBuildPlan :: FilePath defaultBuildPlan :: FilePath
defaultBuildPlan = "build-plan.txt" defaultBuildPlan = "build-plan.txt"
withBuildSettings :: [String] -> (BuildSettings -> BuildPlan -> IO a) -> IO a
withBuildSettings args f = do
BuildArgs {..} <- parseBuildArgs args
bp <- readBuildPlan buildPlanSrc
let settings = defaultBuildSettings
{ sandboxRoot = sandbox
, extraArgs = extraArgs' $ extraArgs defaultBuildSettings
}
f settings bp
main :: IO () main :: IO ()
main = do main = do
args <- getArgs args <- getArgs
@ -57,13 +87,10 @@ main = do
else const $ Right () else const $ Right ()
} }
writeBuildPlan buildPlanDest bp writeBuildPlan buildPlanDest bp
["check"] -> checkHelper defaultBuildPlan ("check":rest) -> withBuildSettings rest $ const checkPlan
["check", fp] -> checkHelper fp ("build":rest) -> withBuildSettings rest build
["build"] -> buildHelper defaultBuildPlan ("test":rest) -> withBuildSettings rest runTestSuites
["build", fp] -> buildHelper fp ("tarballs":rest) -> withBuildSettings rest $ const makeTarballs
["test"] -> testHelper defaultBuildPlan
["test", fp] -> testHelper fp
["tarballs"] -> tbHelper defaultBuildPlan
["init"] -> do ["init"] -> do
putStrLn "Note: init isn't really ready for prime time use." putStrLn "Note: init isn't really ready for prime time use."
putStrLn "Using it may make it impossible to build stackage." putStrLn "Using it may make it impossible to build stackage."
@ -81,11 +108,6 @@ main = do
--putStrLn " update Download updated Stackage databases. Automatically calls init." --putStrLn " update Download updated Stackage databases. Automatically calls init."
--putStrLn " init Initialize your cabal file to use Stackage" --putStrLn " init Initialize your cabal file to use Stackage"
putStrLn " select [--no-clean] [--no-platform] [--exclude package...] [--only-permissive] [--allow package] [--build-plan file]" putStrLn " select [--no-clean] [--no-platform] [--exclude package...] [--only-permissive] [--allow package] [--build-plan file]"
putStrLn " check [build plan file]" putStrLn " check [--build-plan file] [--sandbox rootdir] [--arg cabal-arg]"
putStrLn " build [build plan file]" putStrLn " build [--build-plan file] [--sandbox rootdir] [--arg cabal-arg]"
putStrLn " test [build plan file]" putStrLn " test [--build-plan file] [--sandbox rootdir] [--arg cabal-arg]"
where
checkHelper fp = readBuildPlan fp >>= checkPlan
buildHelper fp = readBuildPlan fp >>= build defaultBuildSettings
testHelper fp = readBuildPlan fp >>= runTestSuites defaultBuildSettings
tbHelper fp = readBuildPlan fp >>= makeTarballs