From 3dc6cc287227bdfc218e79ea4753b601689eff2a Mon Sep 17 00:00:00 2001
From: Alban Gruin
Date: Fri, 11 Sep 2020 23:39:47 +0200
Subject: ics: clean Event module, conversion to string

Signed-off-by: Alban Gruin <alban@pa1ch.fr>
---
 src/course.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/course.ml')

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
-- 
cgit v1.2.1