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