diff options
author | Dennis Gosnell <cdep.illabout@gmail.com> | 2023-03-26 17:25:54 +0900 |
---|---|---|
committer | Dennis Gosnell <cdep.illabout@gmail.com> | 2023-03-26 18:08:30 +0900 |
commit | bd9bb50ad22102b92e3a6e2231343a6550c7fc62 (patch) | |
tree | a74d4c999641f01d2c2e9f19d9b86fdf164e1d5f /maintainers/scripts/haskell | |
parent | 19b567636119e6dac41a770370bd5e58a60c8f59 (diff) |
haskellPackages: remove error about outstanding jobs on aarch64-darwin in hydra-report.hs
Diffstat (limited to 'maintainers/scripts/haskell')
-rwxr-xr-x | maintainers/scripts/haskell/hydra-report.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/maintainers/scripts/haskell/hydra-report.hs b/maintainers/scripts/haskell/hydra-report.hs index 0c847a6154aeb..037b4980c5029 100755 --- a/maintainers/scripts/haskell/hydra-report.hs +++ b/maintainers/scripts/haskell/hydra-report.hs @@ -701,10 +701,12 @@ printBuildSummary eval@Eval{id} fetchTime summary topBrokenRdeps = if' (isNothing maintainedJob) "No `maintained` job found." <> if' (Unfinished > maybe Success worstState mergeableJob) "`mergeable` jobset failed." <> if' (outstandingJobs (Platform "x86_64-linux") > 100) "Too many outstanding jobs on x86_64-linux." <> - if' (outstandingJobs (Platform "aarch64-linux") > 100) "Too many outstanding jobs on aarch64-linux." <> - if' (outstandingJobs (Platform "aarch64-darwin") > 100) "Too many outstanding jobs on aarch64-darwin." + if' (outstandingJobs (Platform "aarch64-linux") > 100) "Too many outstanding jobs on aarch64-linux." + if' p e = if p then [e] else mempty + outstandingJobs platform | Table m <- numSummary = Map.findWithDefault 0 (platform, Unfinished) m + maintainedJob = Map.lookup (PkgName "maintained") summary mergeableJob = Map.lookup (PkgName "mergeable") summary |