ics: clean Event module, conversion to string

Signed-off-by: Alban Gruin <alban at pa1ch dot fr>

1 files changed, 12 insertions, 7 deletions

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