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

Add helper to fail dependent parser.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-23 10:48:50 -07:00
parent adeb56b91a
commit 9713e2f637
2 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/Pages/Form.elm
View File

@ -11,6 +11,7 @@ module Pages.Form exposing
, parse, runOneOfServerSide, runServerSide
, dynamic, HtmlSubForm
, FieldDefinition(..)
, fail
)
{-|
@ -292,7 +293,7 @@ field name (Field fieldParser kind) (Form definitions parseFn toInitialValues) =
Nothing ->
Nothing
, errorsSoFar
|> addErrors name errors
|> addErrorsInternal name errors
)
, view = \fieldErrors -> soFar.view fieldErrors rawField
}
@ -373,7 +374,7 @@ hiddenField name (Field fieldParser kind) (Form definitions parseFn toInitialVal
Nothing ->
Nothing
, errorsSoFar
|> addErrors name errors
|> addErrorsInternal name errors
)
-- TODO pass in `rawField` or similar to the hiddenFields (need the raw data to render it)
@ -442,7 +443,7 @@ hiddenKind ( name, value ) error_ (Form definitions parseFn toInitialValues) =
in
{ result =
( fieldThings
, errorsSoFar |> addErrors name errors
, errorsSoFar |> addErrorsInternal name errors
)
, view = \fieldErrors -> soFar.view fieldErrors
}
@ -1036,8 +1037,26 @@ ok result =
{-| -}
addErrors : String -> List error -> Dict String (List error) -> Dict String (List error)
addErrors name newErrors allErrors =
addErrorsInternal : String -> List error -> Dict String (List error) -> Dict String (List error)
addErrorsInternal name newErrors allErrors =
allErrors
|> Dict.update name
(\errors ->
Just (newErrors ++ (errors |> Maybe.withDefault []))
)
{-| -}
fail : ParsedField error parsed -> error -> ( Maybe combined, FieldErrors error )
fail { name } error =
( Nothing
, Dict.fromList [ ( name, [ error ] ) ]
)
{-| -}
addErrors : ParsedField error parsed -> List error -> Dict String (List error) -> Dict String (List error)
addErrors { name } newErrors allErrors =
allErrors
|> Dict.update name
(\errors ->

6
tests/FormTests.elm
View File

@ -26,11 +26,7 @@ all =
Form.init
(\password passwordConfirmation ->
if password.value /= passwordConfirmation.value then
( Nothing
, Dict.fromList
[ ( passwordConfirmation.name, [ "Must match password" ] )
]
)
Form.fail passwordConfirmation "Must match password"
else
Form.ok { password = password.value }