diff options
Diffstat (limited to 'state.ml')
-rwxr-xr-x | state.ml | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -12,9 +12,6 @@ type mode = | Selection of int | Out -type current = Path.Path_Builder.t - - (** Events *) type canva_events = [ `Click of float * float @@ -41,7 +38,7 @@ type events = type state = { mode : mode ; paths : Path.Fixed.t list - ; current : current + ; current : Path.Path_Builder.t ; width : float ; angle : float } @@ -97,7 +94,7 @@ let update_selection id state f = | false -> path | true -> Path.Fixed.map_point path f ) in - { state with paths} + { state with paths } let do_action : events -> state -> state |