diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-15 15:29:01 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-16 20:48:12 +0100 |
| commit | 52dca5dc0e60d4d84aa5ecf280a45b24f1111dda (patch) | |
| tree | eb1e010819ff3a241f9c53db07bb10b1f5a9ccf3 /src/Eval.hs | |
| parent | 3bb1c548e2696abd3f7dc2d7b9fbc27ceb490c36 (diff) | |
Checkout referenced repos when preparing job
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 9130dd3..b263a19 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -28,10 +28,10 @@ textEvalError (OtherEvalError text) = text evalJob :: EvalInput -> DeclaredJob -> Except EvalError Job evalJob EvalInput {..} decl = do - otherCheckout <- forM (jobOtherCheckout decl) $ \( DeclaredJobRepo name, checkout ) -> do + otherCheckout <- forM (jobOtherCheckout decl) $ \( DeclaredJobRepo name, revision, checkout ) -> do repo <- maybe (throwError $ OtherEvalError $ "repo `" <> textRepoName name <> "' not defined") return $ lookup name eiOtherRepos - return ( EvaluatedJobRepo repo, checkout ) + return ( EvaluatedJobRepo repo, revision, checkout ) return Job { jobName = jobName decl , jobContainingCheckout = jobContainingCheckout decl |