blob: 66c6fee7c9c8de2e6b713520f427ef8071d641a4 (
plain) (
blame)
1
2
3
4
5
6
7
|
module Make(H : S.Handler) : 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
|> H.handle_event
end
|