diff options
Diffstat (limited to 'script.it/outline')
-rwxr-xr-x | script.it/outline/dune | 2 | ||||
-rwxr-xr-x | script.it/outline/outline.ml | 14 |
2 files changed, 7 insertions, 9 deletions
diff --git a/script.it/outline/dune b/script.it/outline/dune index 73b7998..16a475c 100755 --- a/script.it/outline/dune +++ b/script.it/outline/dune @@ -1,7 +1,7 @@ (library (name outline) (libraries - path) + script_path) (modules outline) (preprocess (pps ppx_hash js_of_ocaml-ppx)) ) diff --git a/script.it/outline/outline.ml b/script.it/outline/outline.ml index 1df7588..588084e 100755 --- a/script.it/outline/outline.ml +++ b/script.it/outline/outline.ml @@ -1,11 +1,12 @@ open StdLabels +module Path = Script_path let internal_path_id = ref 0 type t = { id : int - ; path: Path.Fixed.t - ; back: Path.Fixed.t + ; path : Path.Fixed.t + ; back : Path.Fixed.t } let get_id () = @@ -13,9 +14,6 @@ let get_id () = incr internal_path_id; id -let find - : t list -> int -> t option - = fun ts id -> - List.find_opt - ts - ~f:(fun p -> p.id = id) + +let find : t list -> int -> t option = + fun ts id -> List.find_opt ts ~f:(fun p -> p.id = id) |