script.it/worker_messages/worker_messages.ml


1
2
3
4
5
6
7
8
9
10
11

open Js_of_ocaml

type to_worker = [
  | `Complete of Path.Fixed.t
  | `DeletePoint of (Path.Point.t * Path.Fixed.t)
]

type from_worker = [
  | `Complete of Path.Fixed.t
  | `Other of Js.js_string Js.t
]