fix: collect all fields in override reminders
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user