fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Maybe don't inspect submit buttons too much

Browse Source
This commit is contained in:
Gregor Kleen 2018-12-21 18:32:33 +01:00
parent 3a0b79e137
commit cd9e6348ce
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Utils/Form.hs
View File

@ -301,7 +301,7 @@ combinedButtonField_ :: forall a m.
, RenderMessage (HandlerSite m) ButtonMessage , RenderMessage (HandlerSite m) ButtonMessage
, MonadHandler m , MonadHandler m
) => [a] -> FieldSettings (HandlerSite m) -> AForm m () ) => [a] -> FieldSettings (HandlerSite m) -> AForm m ()
combinedButtonField_ bs fs = void . disambiguateButtons $ combinedButtonField bs fs combinedButtonField_ = (void .) . combinedButtonField
combinedButtonFieldF_ :: forall m a p. combinedButtonFieldF_ :: forall m a p.
( Button (HandlerSite m) a ( Button (HandlerSite m) a
@ -310,7 +310,7 @@ combinedButtonFieldF_ :: forall m a p.
, MonadHandler m , MonadHandler m
, Finite a , Finite a
) => p a -> FieldSettings (HandlerSite m) -> AForm m () ) => p a -> FieldSettings (HandlerSite m) -> AForm m ()
combinedButtonFieldF_ _ fs = void . disambiguateButtons $ combinedButtonFieldF @m @a fs combinedButtonFieldF_ _ = void . combinedButtonFieldF @m @a
submitButton :: (Button (HandlerSite m) SubmitButton, Show (ButtonCssClass (HandlerSite m)), MonadHandler m, RenderMessage (HandlerSite m) ButtonMessage) => AForm m () submitButton :: (Button (HandlerSite m) SubmitButton, Show (ButtonCssClass (HandlerSite m)), MonadHandler m, RenderMessage (HandlerSite m) ButtonMessage) => AForm m ()
submitButton = combinedButtonFieldF_ (Proxy @SubmitButton) "" submitButton = combinedButtonFieldF_ (Proxy @SubmitButton) ""