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

Add a prototype for running server-side validations with DataSources and Validation type.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-27 18:56:58 +02:00
parent 9d5eeea47c
commit 0c0e7aadf4
1 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
src/Server/Request.elm
View File

@ -15,6 +15,7 @@ module Server.Request exposing
, map3, map4, map5, map6, map7, map8, map9
, Method(..), methodToString
, errorsToString, errorToString, getDecoder, ValidationError
, formDataNew, formDataWithServerValidation
)
{-|
@ -96,6 +97,7 @@ import Internal.Request
import Json.Decode
import Json.Encode
import List.NonEmpty
import Pages.Internal.Form exposing (Validation(..))
import QueryParams
import Time
import Url
@ -918,6 +920,71 @@ formDataWithoutServerValidation formParsers =
)
{-| -}
formDataWithServerValidation :
List
(Form.Form
error
{ all | combine : Validation error (DataSource (Validation error combined kind constraints)) kind constraints }
data
)
-> Parser (DataSource (Result (Form.Response error) ( Form.Response error, combined )))
formDataWithServerValidation formParsers =
rawFormData
|> andThen
(\rawFormData_ ->
let
( maybeDecoded, errors ) =
Form.runOneOfServerSide
rawFormData_
formParsers
in
case ( maybeDecoded, errors |> Dict.toList |> List.filter (\( _, value ) -> value |> List.isEmpty |> not) |> List.NonEmpty.fromList ) of
( Just decoded, Nothing ) ->
succeed
(decoded
|> DataSource.map
(\(Validation _ _ ( maybeParsed, errors2 )) ->
case ( maybeParsed, errors2 |> Dict.toList |> List.filter (\( _, value ) -> value |> List.isEmpty |> not) |> List.NonEmpty.fromList ) of
( Just decodedFinal, Nothing ) ->
Ok
( Form.Response
{ fields = rawFormData_
, errors = Dict.empty
}
, decodedFinal
)
( _, maybeErrors ) ->
Err
(Form.Response
{ fields = rawFormData_
, errors =
maybeErrors
|> Maybe.map List.NonEmpty.toList
|> Maybe.withDefault []
|> Dict.fromList
}
)
)
)
( _, maybeErrors ) ->
Err
(Form.Response
{ fields = rawFormData_
, errors =
maybeErrors
|> Maybe.map List.NonEmpty.toList
|> Maybe.withDefault []
|> Dict.fromList
}
)
|> DataSource.succeed
|> succeed
)
{-| -}
formData :
List