diff options
Diffstat (limited to 'src/ics.ml')
-rw-r--r-- | src/ics.ml | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -68,6 +68,9 @@ module Event = struct |> List.map ics_split_line |> String.concat "\r\n" + let format_fields fn event = + fn event.summary event.groups event.start event.stop + let has_groups groups event = List.fold_left (fun found group -> found || List.exists ((=) group) groups) false event.groups |