diff options
Diffstat (limited to 'script.it/outline/outline.ml')
| -rwxr-xr-x | script.it/outline/outline.ml | 14 |
1 files changed, 6 insertions, 8 deletions
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) |