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

Remove obsolete function.

Browse Source
This commit is contained in:
Dillon Kearns 2022-08-03 09:52:51 +02:00
parent 926d56af84
commit 32c451fe82
3 changed files with 8 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs.json
View File

File diff suppressed because one or more lines are too long

42
src/Form.elm
View File

@ -7,7 +7,7 @@ module Form exposing
, renderHtml, renderStyledHtml
, FinalForm, withGetMethod, toDynamicTransition, toDynamicFetcher
, Errors, errorsForField
, parse, runOneOfServerSide, runServerSide, runServerSideWithoutServerValidations
, parse, runOneOfServerSide, runServerSide
, dynamic
, runOneOfServerSideWithServerValidations
, AppContext
@ -242,7 +242,7 @@ Totally customizable. Uses [`Form.FieldView`](Form-FieldView) to render all of t
## Running Parsers
@docs parse, runOneOfServerSide, runServerSide, runServerSideWithoutServerValidations
@docs parse, runOneOfServerSide, runServerSide
## Dynamic Fields
@ -879,42 +879,6 @@ runServerSide rawFormData (Form _ parser _) =
|> unwrapValidation
{-| -}
runServerSideWithoutServerValidations :
List ( String, String )
-> Form error { all | combine : Validation error parsed kind constraints } data
-> ( Maybe parsed, Dict String (List error) )
runServerSideWithoutServerValidations rawFormData (Form _ parser _) =
let
parsed :
{ result : Dict String (List error)
, combineAndView : { all | combine : Validation error parsed kind constraints }
}
parsed =
parser Nothing thisFormState
thisFormState : FormState
thisFormState =
{ initFormState
| fields =
rawFormData
|> List.map
(Tuple.mapSecond
(\value ->
{ value = value
, status = Form.NotVisited
}
)
)
|> Dict.fromList
}
in
{ result = ( parsed.combineAndView.combine, parsed.result )
}
|> mergeResults
|> unwrapValidation
unwrapValidation : Validation error parsed named constraints -> ( Maybe parsed, Dict String (List error) )
unwrapValidation (Pages.Internal.Form.Validation viewField name ( maybeParsed, errors )) =
( maybeParsed, errors )
@ -937,7 +901,7 @@ runOneOfServerSide rawFormData parsers =
let
thing : ( Maybe parsed, List ( String, List error ) )
thing =
runServerSideWithoutServerValidations rawFormData firstParser
runServerSide rawFormData firstParser
|> Tuple.mapSecond
(\errors ->
errors

8
tests/FormTests.elm
View File

@ -44,7 +44,7 @@ all =
in
[ test "matching password" <|
\() ->
Form.runServerSideWithoutServerValidations
Form.runServerSide
(fields
[ ( "password", "mypassword" )
, ( "password-confirmation", "mypassword" )
@ -57,7 +57,7 @@ all =
)
, test "non-matching password" <|
\() ->
Form.runServerSideWithoutServerValidations
Form.runServerSide
(fields
[ ( "password", "mypassword" )
, ( "password-confirmation", "doesnt-match-password" )
@ -210,7 +210,7 @@ all =
)
, test "checkout is invalid because before checkin" <|
\() ->
Form.runServerSideWithoutServerValidations
Form.runServerSide
(fields
[ ( "checkin", "2022-01-03" )
, ( "checkout", "2022-01-01" )
@ -225,7 +225,7 @@ all =
)
, test "sub-form" <|
\() ->
Form.runServerSideWithoutServerValidations
Form.runServerSide
(fields
[ ( "password", "mypassword" )
, ( "password-confirmation", "doesnt-match" )