module Component.Form
  ( view
  ) where

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

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