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 |]