Commit 7997e46c authored by Ben Gamari's avatar Ben Gamari 🐢

ci: Exclude own components from failed dependency check

parent 171f88a2
......@@ -359,11 +359,17 @@ failedDeps pkgs =
failedDirectDeps <> failedTransDeps
where
failedTransDeps = S.unions $ map (res M.!) (S.toList $ dependencies binfo)
failedDirectDeps = S.filter failed (dependencies binfo)
failedDirectDeps = S.filter failed $ S.filter excludeSelf (dependencies binfo)
-- We don't want failures of units in the same package to count as
-- failed dependencies.
excludeSelf :: UnitId -> Bool
excludeSelf unitId = pkgName binfo /= pkgName binfo'
where (binfo', _) = pkgs M.! unitId
failed :: UnitId -> Bool
failed uid =
case snd $ pkgs M.! uid of
failed unitId =
case snd $ pkgs M.! unitId of
BuildFailed _ -> True
_ -> False
in res
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment