1 files changed, 1 insertions, 1 deletions
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