dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 14:34:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

Run field-level validations for server response code path.

Browse Source
This commit is contained in:
Dillon Kearns 2022-01-15 15:43:09 -08:00
parent 5a808aa736
commit 2785d4a84b
1 changed files with 14 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/Form.elm
View File

@ -1719,7 +1719,7 @@ toRequest2 :
(DataSource
(Result Model ( Model, value ))
)
toRequest2 (Form fields decoder serverValidations modelToValue) =
toRequest2 ((Form fields decoder serverValidations modelToValue) as form) =
Request.map2
(\decoded errors ->
errors
@ -1729,38 +1729,13 @@ toRequest2 (Form fields decoder serverValidations modelToValue) =
Ok ( value, otherValidationErrors ) ->
--if not (hasErrors validationErrors) && (otherValidationErrors |> List.isEmpty) then
if otherValidationErrors |> List.isEmpty then
Ok
( --validationErrors |> Dict.fromList
{ model
| fields =
model.fields
|> combineWithErrors otherValidationErrors
}
, value
)
Ok ( model, value )
else
--validationErrors
-- |> Dict.fromList
-- |> combineWithErrors otherValidationErrors
{ model
| fields =
model.fields
|> combineWithErrors otherValidationErrors
}
|> Err
Err model
Err otherValidationErrors ->
--validationErrors
-- |> Dict.fromList
-- |> combineWithErrors otherValidationErrors
-- |> Err
{ model
| fields =
model.fields
|> combineWithErrors otherValidationErrors
}
|> Err
Err model
)
)
(Request.expectFormPost
@ -1779,6 +1754,16 @@ toRequest2 (Form fields decoder serverValidations modelToValue) =
fullFieldState =
thing
|> Dict.fromList
|> Dict.map
(\fieldName fieldValue ->
{ fieldValue
| errors =
runValidation form
{ name = fieldName
, value = fieldValue.raw |> Maybe.withDefault ""
}
}
)
otherErrors :
Result