diff options
Diffstat (limited to 'script.it/worker.ml')
-rwxr-xr-x | script.it/worker.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/script.it/worker.ml b/script.it/worker.ml index 898df39..51fe49c 100755 --- a/script.it/worker.ml +++ b/script.it/worker.ml @@ -19,7 +19,7 @@ let execute (command: [> Worker_messages.to_worker]) = path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with path; back}) + post_message (`Complete {outline with path; back}) (* Remove the point from the main line, and reevaluate the whole path *) | `DeletePoint (point, outline) -> @@ -28,7 +28,7 @@ let execute (command: [> Worker_messages.to_worker]) = path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with path; back}) + post_message (`Complete {outline with path; back}) (* Only evaluate the interior *) | `Back outline -> @@ -36,7 +36,7 @@ let execute (command: [> Worker_messages.to_worker]) = outline.Outline.path (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in let=? back = Path.Fixed.rebuild back in - Worker.post_message (`Complete {outline with back}) + post_message (`Complete {outline with back}) | _ -> post_message (`Other (Js.string "Unknown message received")) |