aboutsummaryrefslogtreecommitdiff
path: root/lib/dispatch.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/dispatch.ml')
-rw-r--r--lib/dispatch.ml3
1 files changed, 2 insertions, 1 deletions
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