diff options
Diffstat (limited to 'script.it/script.ml')
-rwxr-xr-x | script.it/script.ml | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/script.it/script.ml b/script.it/script.ml index 3133269..ffdff9a 100755 --- a/script.it/script.ml +++ b/script.it/script.ml @@ -54,12 +54,14 @@ let canva let position = Brr_note_kit.Mouse.pos mouse in - let pos = S.l2 (fun b pos -> - if b then - Some pos - else - None - ) (Brr_note_kit.Mouse.left mouse) position in + let pos = S.l2 + (fun b pos -> + if b then + Some pos + else + None ) + (Brr_note_kit.Mouse.left mouse) + position in E.select [click; up], pos, c |