pdonadeo/ical2rem
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases 1 Activity

fix: collect all fields in override reminders

Browse Source
This commit is contained in:
Paolo Donadeo
2026-06-02 18:32:58 +02:00
parent 999c11fb4f
commit a260443fba
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bin/eventPredicates.ml
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 build_override_rem (source : string) (override_ev : Icalendar.event) : (Remind.rem, error) result =
let rem = { Remind.empty with Remind.source } in 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 -> ListLabels.fold_left ~init:(Ok rem) collectors ~f:(fun rem_or_error pred ->
match rem_or_error with match rem_or_error with
| Error e -> Error e | Error e -> Error e