diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-10 17:05:47 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-11 13:55:42 +0100 |
commit | 12e99cb08790b9e67913e4137da4a4dbcb82f362 (patch) | |
tree | d8d89742df8bfc34c727007e0633261f2690f0a4 /script.it/script.ml | |
parent | 143994822a98df2afe14431f879b90d5e3a7922c (diff) |
Update compilation rule
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 |