From 6e5c6bf7beadc72e64e5d929e301b473b01c9303 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 7 Jan 2021 18:41:30 +0100
Subject: Update

---
 script.it/selection.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'script.it/selection.ml')

diff --git a/script.it/selection.ml b/script.it/selection.ml
index c0360fb..591ea38 100755
--- a/script.it/selection.ml
+++ b/script.it/selection.ml
@@ -15,8 +15,8 @@ let get_from_paths
       ~init:(threshold, None)
       ~f:(fun (dist, selection) path ->
           match Path.Fixed.distance point path with
-          | Some (point', p, p0, p1) when p < dist ->
-            dist, Some (point', path, p0, p1)
+          | Some { closest_point ; distance; p0; p1 ; ratio} when distance < dist ->
+            ratio, Some (closest_point, path, p0, p1)
           | _ -> dist, selection
         )
 
-- 
cgit v1.2.3