blob: b33bb23d81b594a2c70a390fd242a6b94564bd67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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
]
|