diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-19 20:26:26 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-19 22:12:48 +0100 |
commit | 01c0f5faf98b78d44aaae7f70e0cf4229ad8ed91 (patch) | |
tree | c821e0547b3bfc9201bb05610aa922217ea0fd63 /path/draw.ml | |
parent | 0faaa5fda396f0eca6bebf69f3624a344278fa6e (diff) |
Save the point information in each bezier curve
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 |