8 lines
211 B
Plaintext
8 lines
211 B
Plaintext
|
|
btn_delete :: forall w i. (MouseEvent -> i) -> HH.HTML w i
|
|
btn_delete action
|
|
= HH.button
|
|
[ HE.onClick action
|
|
, HP.classes [ HH.ClassName "button is-small is-danger" ]
|
|
] [ HH.text "remove" ]
|