blob: c38afe240eb7e27ffbff15a132f02c9ce35a361f (
plain) (
blame)
1
2
3
4
5
6
|
module Make(H : S.Handler) : S.Dispatch = struct
let dispatch ~ev contents =
print_endline (Yojson.Safe.prettify contents);
Event.event_of_string ~contents ev
|> H.handle_event
end
|