From 2936f06576997bffe7903ea840df563a408efc21 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 9 Aug 2020 18:46:05 +0200
Subject: Improve autocompletion usage

---
 src/View/Button.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/src/View/Button.ml b/src/View/Button.ml
index 723b7d1..b4641d2 100644
--- a/src/View/Button.ml
+++ b/src/View/Button.ml
@@ -1,19 +1,19 @@
 let raw attrs content =
   H.button
-    (HA.concat attrs [| HA.class_ "g-Button__Raw" |])
+    (HA.concat [| HA.class_ "g-Button__Raw" |] attrs)
     content
 
 let text attrs content =
   H.button
-    (HA.concat attrs [| HA.class_ "g-Button__Text" |])
+    (HA.concat [| HA.class_ "g-Button__Text" |] attrs)
     content
 
 let action attrs content =
   H.button
-    (HA.concat attrs [| HA.class_ "g-Button__Action" |])
+    (HA.concat [| HA.class_ "g-Button__Action" |] attrs)
     content
 
 let cancel attrs content =
   H.button
-    (HA.concat attrs [| HA.class_ "g-Button__Cancel" |])
+    (HA.concat [| HA.class_ "g-Button__Cancel" |] attrs)
     content
-- 
cgit v1.2.3