client/src/Component/Form.hs


1
2
3
4
5
6
7
8
9
10
11
12

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