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/ics.mli | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'src/ics.mli')

diff --git a/src/ics.mli b/src/ics.mli
index 352ce68..219f851 100644
--- a/src/ics.mli
+++ b/src/ics.mli
@@ -15,10 +15,15 @@
  *    along with ucs.  If not, see <http://www.gnu.org/licenses/>.
  *)
 
-type event = {
-    start: CalendarLib.Calendar.t;
-    stop: CalendarLib.Calendar.t;
-    summary: string;
-    category: string;
-    location: string
-  }
+module Event : sig
+  type t
+
+  val make : CalendarLib.Calendar.t -> CalendarLib.Calendar.t ->
+             string -> string -> t
+  val to_string : string -> t -> int -> string
+end
+
+type t
+
+val make : Event.t list -> t
+val to_string : t -> string
-- 
cgit v1.2.1