From cdcd6094e2183874d46db079283c463587761e59 Mon Sep 17 00:00:00 2001 From: Chris Done Date: Thu, 11 Sep 2025 09:04:59 +0100 Subject: [PATCH] Permit missing commits --- src/Perf/DB/Materialize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Perf/DB/Materialize.hs b/src/Perf/DB/Materialize.hs index 19dc1e9..fee1e10 100644 --- a/src/Perf/DB/Materialize.hs +++ b/src/Perf/DB/Materialize.hs @@ -23,7 +23,7 @@ materializeCommits :: materializeCommits commits = do benchmarks <- traverse materializeCommit commits pure $ - List.foldl1' (Map.intersectionWith (Map.unionWith (Map.unionWith Map.union))) $ + List.foldl1' (Map.unionWith (Map.unionWith (Map.unionWith Map.union))) $ NonEmpty.toList $ fmap (fmap (fmap (fmap (\(commit, metric) -> Map.singleton commit metric)))) $ benchmarks