rizary · July 5, 2019 03:14
diff --git a/button.hs b/button.hs
 button_ :: forall t m a. (DomBuilder t m, PostBuild t m) => T.Text -> m (Event t ())
 button_ t = do
  let cfg = (def :: ElementConfig EventResult t (DomBuilderSpace m))
        & elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Click (\_ -> preventDefault)
  (e, _) <- element "button" cfg $ text t
  pure $ domEvent Click e
	button_ :: forall t m a. (DomBuilder t m, PostBuild t m) => T.Text -> m (Event t ())
	button_ t = do
	let cfg = (def :: ElementConfig EventResult t (DomBuilderSpace m))
	& elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Click (\_ -> preventDefault)
	(e, _) <- element "button" cfg $ text t
	pure $ domEvent Click e
No results found