From e96ecb1ce8f81b3a256f6982c5da1aa7cbeb4e59 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 9 Nov 2025 22:42:35 +0100 Subject: Publish artifacts to destinations Changelog: Job section to publish artifacts to specified destination --- src/Command.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Command.hs') diff --git a/src/Command.hs b/src/Command.hs index 30b0df0..1ef52ed 100644 --- a/src/Command.hs +++ b/src/Command.hs @@ -30,6 +30,7 @@ import System.Exit import System.IO import Config +import Destination import Eval import Output import Repo @@ -37,12 +38,14 @@ import Repo data CommonOptions = CommonOptions { optJobs :: Int , optRepo :: [ ( RepoName, FilePath ) ] + , optDestination :: [ ( DestinationName, Text ) ] } defaultCommonOptions :: CommonOptions defaultCommonOptions = CommonOptions { optJobs = 2 , optRepo = [] + , optDestination = [] } class CommandArgumentsType (CommandArguments c) => Command c where @@ -102,6 +105,7 @@ data CommandInput = CommandInput , ciJobRoot :: JobRoot , ciContainingRepo :: Maybe Repo , ciOtherRepos :: [ ( RepoName, Repo ) ] + , ciDestinations :: [ ( DestinationName, Destination ) ] , ciOutput :: Output , ciStorageDir :: FilePath } @@ -137,6 +141,7 @@ getEvalInput = CommandExec $ do eiCurrentIdRev <- return [] eiContainingRepo <- asks ciContainingRepo eiOtherRepos <- asks ciOtherRepos + eiDestinations <- asks ciDestinations return EvalInput {..} cmdEvalWith :: (EvalInput -> EvalInput) -> Eval a -> CommandExec a -- cgit v1.2.3