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

Fix check for validation errors in Form API.

Browse Source
This commit is contained in:
Dillon Kearns 2022-01-23 20:02:16 -08:00
parent 78cc936272
commit 1675b1bebb
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Form.elm
View File

@ -1917,8 +1917,13 @@ toRequest2 ((Form fields decoder serverValidations modelToValue) as form) =
(\model ->
case decoded of
Ok ( value, otherValidationErrors ) ->
--if not (hasErrors validationErrors) && (otherValidationErrors |> List.isEmpty) then
if otherValidationErrors |> List.isEmpty then
if
otherValidationErrors
|> List.any
(\( a, entryErrors ) ->
entryErrors |> List.isEmpty
)
then
Ok ( model, value )
else
@ -1998,7 +2003,8 @@ submitHandlers myForm toDataSource =
|> toDataSource model
Err model ->
Err () |> toDataSource model
Err ()
|> toDataSource model
)
-- TODO allow customizing headers or status code, or not?
|> DataSource.map Server.Response.render