From 01c0f5faf98b78d44aaae7f70e0cf4229ad8ed91 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 19 Dec 2020 20:26:26 +0100
Subject: Save the point information in each bezier curve

---
 path/draw.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'path/draw.ml')

diff --git a/path/draw.ml b/path/draw.ml
index 5e05e01..b4b7e28 100755
--- a/path/draw.ml
+++ b/path/draw.ml
@@ -217,7 +217,7 @@ let to_path
       let* beziers = Shapes.Bspline.to_bezier points' in
       let curves = Path_Builder.points_to_beziers points beziers in
       {id; path=Curve curves}
-    | _, _ ->
+    | beziers, _ ->
       let (let*) v f =
         match v with
         | Ok beziers -> f beziers
-- 
cgit v1.2.3