ics: clean Event module, conversion to string

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

1 files changed, 4 insertions, 4 deletions

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