diff options
Diffstat (limited to 'src/View/Button.ml')
| -rw-r--r-- | src/View/Button.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/View/Button.ml b/src/View/Button.ml new file mode 100644 index 0000000..31fa1b0 --- /dev/null +++ b/src/View/Button.ml @@ -0,0 +1,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 |] |