fix: collect all fields in override reminders

This commit is contained in:
2026-06-02 18:32:58 +02:00
parent fd4a169db7
commit 8ef0a58dda

View File

@@ -196,7 +196,17 @@ let is_cancelled (ev : Icalendar.event) : bool =
let build_override_rem (source : string) (override_ev : Icalendar.event) : (Remind.rem, error) result =
let rem = { Remind.empty with Remind.source } in
let collectors = [ collect_uuid; collect_summary; collect_start_end_duration ] in
let collectors =
[
collect_uuid;
collect_summary;
collect_location;
collect_description;
collect_conference_url;
collect_start_end_duration;
collect_triggers;
]
in
ListLabels.fold_left ~init:(Ok rem) collectors ~f:(fun rem_or_error pred ->
match rem_or_error with
| Error e -> Error e