diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-22 14:14:04 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-22 14:14:04 +0100 |
| commit | 89dbb39c3fcd188ef7acf092061d756046b2c5d4 (patch) | |
| tree | 951b430d7e99003dd97b44675f206248bb95a858 /script.it/outline/outline.ml | |
| parent | 82bb54622a47bb092094c8efab8200b12817c5b4 (diff) | |
Reformating
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) |