aboutsummaryrefslogtreecommitdiff
path: root/script.it/outline
diff options
context:
space:
mode:
Diffstat (limited to 'script.it/outline')
-rwxr-xr-xscript.it/outline/dune2
-rwxr-xr-xscript.it/outline/outline.ml14
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)