From ee3b01bf7027798ba23153aef7f4ccc57f5f7b38 Mon Sep 17 00:00:00 2001 From: Alban Gruin Date: Sat, 5 Feb 2022 15:14:26 +0100 Subject: ics: introduce functions to filter courses without location Signed-off-by: Alban Gruin --- src/ics.ml | 5 +++++ src/ics.mli | 1 + 2 files changed, 6 insertions(+) diff --git a/src/ics.ml b/src/ics.ml index 5afff39..be7fb18 100644 --- a/src/ics.ml +++ b/src/ics.ml @@ -73,10 +73,15 @@ module Event = struct found || List.exists ((=) group) groups) false event.groups let get_groups event = event.groups + + let has_no_locations event = + event.location = None end type t = Event.t list +let filter_empty_locations = + List.filter (Event.has_no_locations) let filter_groups groups = List.filter (Event.has_groups groups) diff --git a/src/ics.mli b/src/ics.mli index 575e88e..e3dd577 100644 --- a/src/ics.mli +++ b/src/ics.mli @@ -26,6 +26,7 @@ end type t = Event.t list +val filter_empty_locations : t -> t val filter_groups : string list -> t -> t val get_all_groups : t -> string Seq.t val to_string : string -> t -> string -- cgit v1.2.1