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 | 
