blob: 0a89c6ed1c425968bfc1b557e7c029b51fb61952 (
plain)
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
|
