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