diff options
Diffstat (limited to 'src/course.ml')
| -rw-r--r-- | src/course.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/course.ml b/src/course.ml index 3a0d1fc..fdabb50 100644 --- a/src/course.ml +++ b/src/course.ml @@ -68,7 +68,7 @@ let encoding = (fun ((_id, start, stop, _allDay, description, (), (), (), (), category), (_sites, _modules, (), (), (), (), ())) -> let location, summary = location_and_summary description category in - Ics.{start; stop; summary; category; location}) + Ics.Event.make start stop summary location) (merge_objs (obj10 (req "id" string) @@ -95,4 +95,4 @@ let decode s = match s with | "" -> `O [] | s -> Ezjsonm.from_string s in - J.destruct (J.list encoding) toks + Ics.make @@ J.destruct (J.list encoding) toks |