diff options
Diffstat (limited to 'src/ics.ml')
-rw-r--r-- | src/ics.ml | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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) |