2863

Committed 05 Nov 2024 06:20PM UTC coverage: 30.754% (-16.6%) from 47.311%

Build # 2863

Build Type

push

buildkite

Committed by

web-flow

Commit Message

Merge pull request #16296 from MinaProtocol/dkijania/more_multi_jobs

more multi jobs in CI

Run Details

20276 of 65930 relevant lines covered (30.75%)

8631.7 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

10.0

/src/lib/network_pool/map_set.ml

(** Utilities for dealing with "multimaps" or mapsets. *)

open Core

(** A map from 'ks to sets of 'vs, using the provided comparators. *)
type ('k, 'v, 'cmpS, 'cmpM) t = ('k, ('v, 'cmpS) Set.t, 'cmpM) Map.t

(** Remove an element from a mapset. *)
let remove_exn :
    ('k, 'v, 'cmpS, 'cmpM) t -> 'k -> 'v -> ('k, 'v, 'cmpS, 'cmpM) t =
 fun map k v ->
  let newset = Map.find_exn map k |> Fn.flip Set.remove v in
  if Set.is_empty newset then Map.remove map k
  else Map.set map ~key:k ~data:newset

(* Add an element to a mapset. *)
let insert :
       ('v, 'cmpS) Set.comparator
    -> ('k, 'v, 'cmpS, 'cmpM) t
    -> 'k
    -> 'v
    -> ('k, 'v, 'cmpS, 'cmpM) t =
 fun comparator map k v ->
  Map.change map k ~f:(fun set_opt ->
      match set_opt with
      | None ->
          Some (Set.singleton comparator v)
      | Some set ->
          Some (Set.add set v) )

1	(** Utilities for dealing with "multimaps" or mapsets. *)
2		1✔
3	open Core
4
5	(** A map from 'ks to sets of 'vs, using the provided comparators. *)
6	type ('k, 'v, 'cmpS, 'cmpM) t = ('k, ('v, 'cmpS) Set.t, 'cmpM) Map.t
7
8	(** Remove an element from a mapset. *)
9	let remove_exn :
10	('k, 'v, 'cmpS, 'cmpM) t -> 'k -> 'v -> ('k, 'v, 'cmpS, 'cmpM) t =
11	fun map k v ->
12	let newset = Map.find_exn map k \|> Fn.flip Set.remove v in	×
13	if Set.is_empty newset then Map.remove map k	×
14	else Map.set map ~key:k ~data:newset	×
15
16	(* Add an element to a mapset. *)
17	let insert :
18	('v, 'cmpS) Set.comparator
19	-> ('k, 'v, 'cmpS, 'cmpM) t
20	-> 'k
21	-> 'v
22	-> ('k, 'v, 'cmpS, 'cmpM) t =
23	fun comparator map k v ->
24	Map.change map k ~f:(fun set_opt ->	×
25	match set_opt with	×
26	\| None ->	×
27	Some (Set.singleton comparator v)	×
28	\| Some set ->	×
29	Some (Set.add set v) )	×

MinaProtocol / mina / 2863

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous