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

Rename internal function.

Browse Source
This commit is contained in:
Dillon Kearns 2022-04-28 11:08:56 -07:00
parent 52f8f03e60
commit 116f679d13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Form.elm
View File

@ -2043,14 +2043,14 @@ apiHandler (Form _ decoder serverValidations _ config) =
|> Request.acceptContentTypes (List.NonEmpty.singleton "application/json")
toRequest2 :
renderRequestParser :
Form msg String value view
->
Parser
(DataSource
(Result Model ( Model, value ))
)
toRequest2 ((Form _ decoder serverValidations modelToValue config) as form) =
renderRequestParser ((Form _ decoder serverValidations modelToValue config) as form) =
Request.map2
(\decoded errors ->
errors
@ -2141,7 +2141,7 @@ submitHandlers :
submitHandlers myForm toDataSource =
Request.oneOf
[ apiHandler myForm
, toRequest2 myForm
, renderRequestParser myForm
|> Request.map
(\userOrErrors ->
userOrErrors