diff options
| author | Alban Gruin | 2020-09-11 23:39:47 +0200 |
|---|---|---|
| committer | Alban Gruin | 2020-09-11 23:39:47 +0200 |
| commit | 3dc6cc287227bdfc218e79ea4753b601689eff2a (patch) | |
| tree | a46ed8f09d8c4145cf327099d5325bc56d174b51 /src/course.ml | |
| parent | dd909afda419f39f16120fbfe0e60d847f6f3e2d (diff) | |
ics: clean Event module, conversion to string
Signed-off-by: Alban Gruin <alban at pa1ch dot fr>
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 |