From 12e99cb08790b9e67913e4137da4a4dbcb82f362 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 10 Jan 2021 17:05:47 +0100
Subject: Update compilation rule

---
 script.it/script.ml | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'script.it')

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
 
-- 
cgit v1.2.3