Helper function for creating forms in Reflex. The default of forms is prevented. A submit event and child is returned.

form.hs

import GHCJS.DOM.EventM (event, preventDefault)
import GHCJS.DOM.Element

form :: MonadWidget t m => m a -> m (Event t (), a)
form child = do
  (form, ch) <- el' "form" child
  submit <- wrapDomEvent (_el_element form) elementOnsubmit (void $ preventDefault)
  performEvent_ (return () <$ submit)
  return (submit, ch)

usage.hs

(submitAppend, appendText) <- form $ do
  appendText <- textInput def
  button "Append"
  return appendText
appendText <- return $ tag (current (_textInput_value appendText)) submitAppend