aboutsummaryrefslogtreecommitdiff
path: root/src/ics.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/ics.ml')
-rw-r--r--src/ics.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/ics.ml b/src/ics.ml
index be7fb18..4840590 100644
--- a/src/ics.ml
+++ b/src/ics.ml
@@ -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