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/ucs.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/ucs.ml')

diff --git a/src/ucs.ml b/src/ucs.ml
index 121ac7a..55a246c 100644
--- a/src/ucs.ml
+++ b/src/ucs.ml
@@ -33,7 +33,7 @@ let body =
 let dump_date = CalendarLib.Printer.Calendar.to_string
 
 let () =
-  let body = Lwt_main.run body in
-  List.iter (fun Ics.{start; stop; summary; category; location} ->
-      Printf.printf "%s\n%s\n%s\n%s\n%s\n\n" (dump_date start) (dump_date stop) summary category location)
-  @@ Course.decode body
+  Lwt_main.run body
+  |> Course.decode
+  |> Ics.to_string
+  |> print_endline
-- 
cgit v1.2.1