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