diff options
Diffstat (limited to 'lib/dispatch.ml')
| -rw-r--r-- | lib/dispatch.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lib/dispatch.ml b/lib/dispatch.ml deleted file mode 100644 index 4a9b791..0000000 --- a/lib/dispatch.ml +++ /dev/null @@ -1,9 +0,0 @@ -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); *) - 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 |