From 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 19 Dec 2018 13:44:04 -0700 Subject: Re-arrange autogen serialization files and incorporate into dune file --- lib/dispatch.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/dispatch.ml') diff --git a/lib/dispatch.ml b/lib/dispatch.ml index c38afe2..66c6fee 100644 --- a/lib/dispatch.ml +++ b/lib/dispatch.ml @@ -1,6 +1,7 @@ module Make(H : S.Handler) : S.Dispatch = struct let dispatch ~ev contents = - print_endline (Yojson.Safe.prettify contents); + Printf.printf "Dispatching %s\n%!" ev; + (* print_endline (Yojson.Safe.prettify contents); *) Event.event_of_string ~contents ev |> H.handle_event end \ No newline at end of file -- cgit v1.2.3