From 89dbb39c3fcd188ef7acf092061d756046b2c5d4 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Tue, 22 Feb 2022 14:14:04 +0100
Subject: Reformating

---
 script.it/outline/dune       |  2 +-
 script.it/outline/outline.ml | 14 ++++++--------
 2 files changed, 7 insertions(+), 9 deletions(-)

(limited to 'script.it/outline')

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)
-- 
cgit v1.2.3