diff --git a/bin/eventPredicates.ml b/bin/eventPredicates.ml index ea53607..c5a482a 100644 --- a/bin/eventPredicates.ml +++ b/bin/eventPredicates.ml @@ -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