From ad6abcd5fc5e4e66062c8a01b511a1bd4bda2e94 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 9 Aug 2020 08:37:18 +0200
Subject: Export as CSV

---
 src/View/Form.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/View/Form.ml')

diff --git a/src/View/Form.ml b/src/View/Form.ml
index cc95210..53fbb7d 100644
--- a/src/View/Form.ml
+++ b/src/View/Form.ml
@@ -47,7 +47,7 @@ let color_input default_colors id label init_value on_input =
                 ;  HA.type_ "button"
                 |]
                 [| |])
-        |> (fun xs -> Js.Array.concat xs [| input |]))
+        |> Fun.flip Js.Array.concat [| input |])
     |]
 
 let textarea id label init_value on_input =
-- 
cgit v1.2.3