src/View/Button.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

let action on_click label =
  H.button
      [| HA.class_ "g-Button__Action"
      ;  HE.on_click on_click
      |]
      [| H.text label |]

let danger on_click label =
      H.button
          [| HA.class_ "g-Button__Danger"
          ;  HE.on_click on_click
          |]
          [| H.text label |]