From 6354dbd89d354e5e2499b4c2bea5d5fa95e020df Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Wed, 16 Jan 2019 23:36:59 -0700 Subject: eliminate all functors in favour of a simpler approach --- lib/event.ml | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lib/event.ml') diff --git a/lib/event.ml b/lib/event.ml index d6a6372..6684053 100644 --- a/lib/event.ml +++ b/lib/event.ml @@ -75,4 +75,12 @@ let event_of_yojson ~contents t = match t with | "VOICE_STATE_UPDATE" -> VOICE_STATE_UPDATE contents | "VOICE_SERVER_UPDATE" -> VOICE_SERVER_UPDATE contents | "WEBHOOKS_UPDATE" -> WEBHOOKS_UPDATE contents - | s -> raise @@ Invalid_event s \ No newline at end of file + | s -> raise @@ Invalid_event s + +let dispatch ~ev contents = + (* Printf.printf "Dispatching %s\n%!" ev; *) + (* print_endline (Yojson.Safe.prettify contents); *) + try + event_of_yojson ~contents ev + |> ignore; (* TODO make this point to the new hanler *) + with Invalid_event ev -> Printf.printf "Unknown event: %s%!" ev \ No newline at end of file -- cgit v1.2.3