Source file `task_seg_id_set.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
include Set.Make (struct
    type t = Task.task_seg_id

    let compare = compare
  end)

module Serialize = struct
  let pack (t : t) : Task_t.task_seg_id list =
    t |> to_seq |> Seq.map Task.Serialize.pack_task_seg_id |> List.of_seq
end

module Deserialize = struct
  let unpack (l : Task_t.task_seg_id list) : t =
    l |> List.to_seq |> Seq.map Task.Deserialize.unpack_task_seg_id |> of_seq
end