@@ -796,7 +796,7 @@ link s = linkClass s ""
797button :: MonadWidget t m => String -> m (Event t ())
797button :: MonadWidget t m => String -> m (Event t ())
798button s = do
798button s = do
799− (e, _) <- el' "button" $ text s
799+ (e, _) <- elAttr' "button" (Map.singleton "type" "button") $ text s
800 return $ domEvent Click e
800 return $ domEvent Click e
802newtype Workflow t m a = Workflow { unWorkflow :: m (a, Event t (Workflow t m a)) }
802newtype Workflow t m a = Workflow { unWorkflow :: m (a, Event t (Workflow t m a)) }