diff options
Diffstat (limited to 'path/draw.ml')
-rwxr-xr-x | path/draw.ml | 2 |
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 |