ics: introduce functions to filter courses without location

Signed-off-by: Alban Gruin <alban at pa1ch dot fr>

1 files changed, 5 insertions, 0 deletions

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)