Merge pull request #37 from bartavelle/patch-1
Prevent buttons from submitting form contents
commit4a4e39d62f0f5007adc8674ab8644dcca48e7813
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 24 Nov 2015, 17:49 (11 years ago)
parent21b7c7e92b156d
src/Reflex/Dom/Widget/Basic.hs+1−1
@@ -796,7 +796,7 @@ link s = linkClass s ""
796796
797797button :: MonadWidget t m => String -> m (Event t ())
798798button s = do
799− (e, _) <- el' "button" $ text s
799+ (e, _) <- elAttr' "button" (Map.singleton "type" "button") $ text s
800800 return $ domEvent Click e
801801
802802newtype Workflow t m a = Workflow { unWorkflow :: m (a, Event t (Workflow t m a)) }