@@ -468,6 +468,11 @@ linkClass s c = do
468link :: MonadWidget t m => String -> m (Link t)
468link :: MonadWidget t m => String -> m (Link t)
469link s = linkClass s ""
469link s = linkClass s ""
471+button :: MonadWidget t m => String -> m (Event t ())
473+ (e, _) <- el' "button" $ text s
474+ return $ _el_clicked e
471newtype Workflow t m a = Workflow { unWorkflow :: m (a, Event t (Workflow t m a)) }
476newtype Workflow t m a = Workflow { unWorkflow :: m (a, Event t (Workflow t m a)) }
473workflowView :: forall t m a. MonadWidget t m => Workflow t m a -> m (Event t a)
478workflowView :: forall t m a. MonadWidget t m => Workflow t m a -> m (Event t a)