From b9ee77f8153090e9d47e73ab195540d10720c7b6 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Thu, 10 Jan 2019 13:12:49 -0700 Subject: AAAAAAAAAAAAAAAAAAAAAAAA --- lib/dispatch.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/dispatch.ml') diff --git a/lib/dispatch.ml b/lib/dispatch.ml index 66c6fee..c52e81c 100644 --- a/lib/dispatch.ml +++ b/lib/dispatch.ml @@ -1,7 +1,7 @@ -module Make(H : S.Handler) : S.Dispatch = struct +module Make(H : sig val handle_event : Event.t -> unit end) : S.Dispatch = struct let dispatch ~ev contents = Printf.printf "Dispatching %s\n%!" ev; (* print_endline (Yojson.Safe.prettify contents); *) - Event.event_of_string ~contents ev + Event.event_of_yojson ~contents ev |> H.handle_event end \ No newline at end of file -- cgit v1.2.3 From cba1fa3ab1b085600f3a73dae62682d21d112afb Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 11 Jan 2019 12:44:22 -0700 Subject: More deserialization fixes --- lib/dispatch.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/dispatch.ml') diff --git a/lib/dispatch.ml b/lib/dispatch.ml index c52e81c..4a9b791 100644 --- a/lib/dispatch.ml +++ b/lib/dispatch.ml @@ -1,7 +1,9 @@ module Make(H : sig val handle_event : Event.t -> unit end) : S.Dispatch = struct let dispatch ~ev contents = - Printf.printf "Dispatching %s\n%!" ev; + (* Printf.printf "Dispatching %s\n%!" ev; *) (* print_endline (Yojson.Safe.prettify contents); *) - Event.event_of_yojson ~contents ev - |> H.handle_event + try + Event.event_of_yojson ~contents ev + |> H.handle_event + with Event.Invalid_event ev -> Printf.printf "Unknown event: %s%!" ev end \ No newline at end of file -- cgit v1.2.3