diff options
| author | Joris | 2020-08-09 18:46:05 +0200 |
|---|---|---|
| committer | Joris | 2020-08-09 18:46:05 +0200 |
| commit | 2936f06576997bffe7903ea840df563a408efc21 (patch) | |
| tree | 0fd9c802c73df3e506ac0f65cdd2f48ba3de6a60 /src/View/Button.ml | |
| parent | 225068497c5fd41da12030a6bbf58a0fc9c294d0 (diff) | |
| download | map-2936f06576997bffe7903ea840df563a408efc21.tar.gz map-2936f06576997bffe7903ea840df563a408efc21.tar.bz2 map-2936f06576997bffe7903ea840df563a408efc21.zip | |
Improve autocompletion usage
Diffstat (limited to 'src/View/Button.ml')
| -rw-r--r-- | src/View/Button.ml | 8 |
1 files changed, 4 insertions, 4 deletions
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 |