module Component.Form
  ( form
  ) where

import qualified Data.Map   as M
import           Reflex.Dom (MonadWidget)
import qualified Reflex.Dom as R

form :: forall t m a. MonadWidget t m => m a -> m a
form content =
  R.elAttr "form" (M.singleton "onsubmit" "event.preventDefault()") $
    content