open Js_of_ocaml

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

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