halogen-websocket-ipc-playzone/drop/ClassName.purs

8 lines
211 B
Plaintext
Raw Normal View History

2024-02-20 17:52:26 +01:00
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" ]