dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-25 04:43:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Extract forms list.

Browse Source
This commit is contained in:
Dillon Kearns 2022-08-16 16:41:45 -07:00
parent 79b8a6589a
commit 7ac3cce9c1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/todos/app/Route/Visibility__.elm
View File

@ -182,7 +182,7 @@ performAction actionInput userId =
action : RouteParams -> Request.Parser (DataSource (Response ActionData ErrorPage))
action routeParams =
MySession.withSession
(Request.formData [ newItemForm, completeItemForm, deleteItemForm, editItemForm, clearCompletedForm, toggleAllForm ])
(Request.formData allForms)
(\formResult session ->
case formResult of
Ok actionInput ->
@ -296,7 +296,7 @@ view maybeUrl sharedModel model app =
app.fetchers
|> List.filterMap
(\{ status, payload } ->
[ editItemForm, newItemForm, completeItemForm, deleteItemForm, clearCompletedForm, toggleAllForm ]
allForms
|> Form.runOneOfServerSide payload.fields
|> Tuple.first
)
@ -431,6 +431,11 @@ view maybeUrl sharedModel model app =
}
allForms : List (Form.HtmlForm String Action Todo Msg)
allForms =
[ editItemForm, newItemForm, completeItemForm, deleteItemForm, clearCompletedForm, toggleAllForm ]
-- VIEW