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

Remove commented code.

Browse Source
This commit is contained in:
Dillon Kearns 2022-05-11 10:46:51 -07:00
parent 2f6a95f5d2
commit 06fcc706ff
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/Form.elm
View File

@ -2154,26 +2154,23 @@ submitHandlers :
-> (Model -> Result () decoded -> DataSource (Response data error))
-> Parser (DataSource (Response data error))
submitHandlers myForm toDataSource =
Request.oneOf
[ --apiHandler myForm
renderRequestParser myForm
|> Request.map
(\userOrErrors ->
userOrErrors
|> DataSource.andThen
(\result ->
case result of
Ok ( model, decoded ) ->
Ok decoded
|> toDataSource model
renderRequestParser myForm
|> Request.map
(\parsedResult ->
parsedResult
|> DataSource.andThen
(\result ->
case result of
Ok ( model, decoded ) ->
Ok decoded
|> toDataSource model
Err model ->
Err ()
|> toDataSource model
)
-- TODO allow customizing headers or status code, or not?
)
]
Err model ->
Err ()
|> toDataSource model
)
-- TODO allow customizing headers or status code, or not?
)
hasErrors_ : List ( String, RawFieldState error ) -> Bool