diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-17 09:47:39 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-17 09:47:39 -0700 |
| commit | 8760c74b63eb44acad13829ef41b2e705f031ecb (patch) | |
| tree | 90240eaaafc8f033c707fa00fdb3837ba485c0b9 /lib/dispatch.ml | |
| parent | Member methods are here (diff) | |
| parent | new event dispatching (diff) | |
| download | disml-8760c74b63eb44acad13829ef41b2e705f031ecb.tar.xz disml-8760c74b63eb44acad13829ef41b2e705f031ecb.zip | |
Resolve non-ff merge
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 |