diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-05 19:43:16 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-05 19:43:16 +0200 |
| commit | 6350311e81bb116bb7975bcc76e1dc9577194531 (patch) | |
| tree | a266a0fdbd40be98725d85a8915a6aba7f8ba9bb /src/Eval.hs | |
| parent | 1f01dbd2b1d3fb89efdaab56bc52d82a8ed0483e (diff) | |
Convert JobRepo to a closed type family
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 7e53128..807a3b8 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -44,10 +44,10 @@ runEval action einput = runExceptT $ flip runReaderT einput action evalJob :: EvalInput -> DeclaredJob -> Except EvalError Job evalJob EvalInput {..} decl = do - otherCheckout <- forM (jobOtherCheckout decl) $ \( DeclaredJobRepo name, revision, checkout ) -> do + otherCheckout <- forM (jobOtherCheckout decl) $ \( name, revision, checkout ) -> do repo <- maybe (throwError $ OtherEvalError $ "repo `" <> textRepoName name <> "' not defined") return $ lookup name eiOtherRepos - return ( EvaluatedJobRepo repo, revision, checkout ) + return ( repo, revision, checkout ) return Job { jobName = jobName decl , jobContainingCheckout = jobContainingCheckout decl @@ -80,7 +80,7 @@ canonicalJobName (r : rs) mbTree config = do [ case mbTree of Just _ -> return [] Nothing -> maybeToList <$> asks eiContainingRepo - , return $ nub $ map (\( EvaluatedJobRepo repo, _, _ ) -> repo) $ jobOtherCheckout job + , return $ nub $ map (\( repo, _, _ ) -> repo) $ jobOtherCheckout job ] (JobIdName name :) <$> canonicalOtherCheckouts rs repos Nothing -> throwError $ OtherEvalError $ "job ‘" <> r <> "’ not found" |