diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-10 13:12:49 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-10 13:12:49 -0700 |
| commit | b9ee77f8153090e9d47e73ab195540d10720c7b6 (patch) | |
| tree | d36bdb7ce17e03ee1bdb60d6b638f8ac6e022711 /lib/dispatch.ml | |
| parent | Why are events so confusing (diff) | |
| download | disml-b9ee77f8153090e9d47e73ab195540d10720c7b6.tar.xz disml-b9ee77f8153090e9d47e73ab195540d10720c7b6.zip | |
AAAAAAAAAAAAAAAAAAAAAAAA
Diffstat (limited to 'lib/dispatch.ml')
| -rw-r--r-- | lib/dispatch.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/dispatch.ml b/lib/dispatch.ml index 66c6fee..c52e81c 100644 --- a/lib/dispatch.ml +++ b/lib/dispatch.ml @@ -1,7 +1,7 @@ -module Make(H : S.Handler) : S.Dispatch = struct +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); *) - Event.event_of_string ~contents ev + Event.event_of_yojson ~contents ev |> H.handle_event end
\ No newline at end of file |