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

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