diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-06-04 09:59:10 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-06-04 09:59:10 +0200 |
| commit | 9d3c32956baab4dc4e1fd114e586b48d850a14c9 (patch) | |
| tree | d0de8ff50ffe9bfaeeebc58fbca9a76157614fef /frontend/app/Form/Internal.hs | |
| parent | 342ebdf61b3b9021b9e58cfce607e96a6e7ae54e (diff) | |
show form input
Diffstat (limited to 'frontend/app/Form/Internal.hs')
| -rw-r--r-- | frontend/app/Form/Internal.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/frontend/app/Form/Internal.hs b/frontend/app/Form/Internal.hs index 7782368..8c9935f 100644 --- a/frontend/app/Form/Internal.hs +++ b/frontend/app/Form/Internal.hs @@ -53,8 +53,7 @@ mapValues get set (Form {view, fill}) = } runForm :: Form i o -> i -> View (Either i o) -runForm (Form {view}) i = - div_ [] $ - (fmap Left <$> view i) - <> [ button_ [type_ "submit"] [text "submit"] - ] +runForm form i = + form_ [onSubmit (either (\_ -> Left i) (Right) (form.fill i))] $ + (fmap Left <$> form.view i) + <> [button_ [type_ "submit"] [text "submit"]] |