src/View/Button.ml


1
2
3
4
5
6
7
8
9

let action attrs content =
  H.button
    (Js.Array.concat attrs [| HA.class_ "g-Button__Action" |])
    content

let cancel attrs content =
  H.button
    (Js.Array.concat attrs [| HA.class_ "g-Button__Cancel" |])
    content