blob: a4d05c8a9b77906a01b717187f3da989ebeab133 (
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 Path.Fixed.t
| `Other of Js.js_string Js.t
]
|