diff options
| author | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-01-16 23:36:59 -0700 |
| commit | 6354dbd89d354e5e2499b4c2bea5d5fa95e020df (patch) | |
| tree | a0fd199097bdc675628d5bd735017d92d2067e08 /lib/dispatch.ml | |
| parent | Merge branch 'switch-to-deriving_yojson' into 'master' (diff) | |
| download | disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.tar.xz disml-6354dbd89d354e5e2499b4c2bea5d5fa95e020df.zip | |
eliminate all functors in favour of a simpler approach
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 |