mirror of
https://github.com/hercules-ci/arion.git
synced 2024-09-11 18:47:27 +03:00
DRAFT: add deploy sub-command invoking docker stack deploy
my implementation here is a bit hacky, so this may need some more eyes. that said, swarm deploy seems the primary command in docker stack/swarm involving the compose file arion manages thru nix, so one could as well just invoke their remaining commands directly.
This commit is contained in:
parent
7d0e26647c
commit
549942eb09
@ -112,6 +112,7 @@ parseCommand =
|
||||
<> commandDC runEvalAndDC "top" "Display the running processes"
|
||||
<> commandDC runEvalAndDC "unpause" "Unpause services"
|
||||
<> commandDC runBuildAndDC "up" "Create and start containers"
|
||||
<> commandDC runEvalAndDC "deploy" "Deploy a new stack or update an existing stack"
|
||||
<> commandDC runDC "version" "Show the Docker-Compose version information"
|
||||
|
||||
<> metavar "DOCKER-COMPOSE-COMMAND"
|
||||
@ -164,7 +165,10 @@ callDC cmd dopts opts shouldLoadImages path = do
|
||||
let firstOpts = projectArgs extendedInfo <> commonArgs opts
|
||||
DockerCompose.run DockerCompose.Args
|
||||
{ files = [path]
|
||||
, otherArgs = firstOpts ++ [cmd] ++ unDockerComposeArgs dopts
|
||||
, otherArgs = case cmd of
|
||||
"deploy" -> unDockerComposeArgs dopts ++ toList (projectName extendedInfo)
|
||||
_ -> firstOpts ++ [cmd] ++ unDockerComposeArgs dopts
|
||||
, useSwarm = cmd == "deploy"
|
||||
}
|
||||
|
||||
projectArgs :: ExtendedInfo -> [Text]
|
||||
@ -314,6 +318,7 @@ runExec detach privileged user noTTY index envs workDir service commandAndArgs o
|
||||
DockerCompose.run DockerCompose.Args
|
||||
{ files = [path]
|
||||
, otherArgs = projectArgs extendedInfo <> commonArgs opts <> args
|
||||
, useSwarm = False
|
||||
}
|
||||
|
||||
main :: IO ()
|
||||
|
@ -8,14 +8,20 @@ import System.Process
|
||||
data Args = Args
|
||||
{ files :: [FilePath]
|
||||
, otherArgs :: [Text]
|
||||
, useSwarm :: Bool
|
||||
}
|
||||
|
||||
run :: Args -> IO ()
|
||||
run args = do
|
||||
let fileArgs = files args >>= \f -> ["--file", f]
|
||||
allArgs = fileArgs ++ map toS (otherArgs args)
|
||||
let (executable, fileParam) = case useSwarm args of
|
||||
False -> ("docker-compose", "--file")
|
||||
True -> ("docker", "--compose-file")
|
||||
fileArgs = files args >>= \f -> [fileParam, f]
|
||||
allArgs = case useSwarm args of
|
||||
False -> fileArgs ++ map toS (otherArgs args)
|
||||
True -> ["stack", "deploy"] ++ fileArgs ++ map toS (otherArgs args)
|
||||
|
||||
procSpec = proc "docker-compose" allArgs
|
||||
procSpec = proc executable allArgs
|
||||
|
||||
-- hPutStrLn stderr ("Running docker-compose with " <> show allArgs :: Text)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user