Update script.it project

1 files changed, 14 insertions, 0 deletions

diff --git a/script.it/script_event/complete_path.ml b/script.it/script_event/complete_path.ml
new file mode 100755
index 0000000..99dd6ae
--- /dev/null
+++ b/script.it/script_event/complete_path.ml
@@ -0,0 +1,14 @@
+open StdLabels
+module State = Script_state.State
+
+type t = Outline.t
+
+let update newPath state =
+  let paths = List.map
+      state.State.paths
+      ~f:(fun line ->
+          match Outline.(newPath.id = line.id) with
+          | true -> newPath
+          | false -> line) in
+  { state with paths }
+