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

Handle form result in case expression in route generator.

Browse Source
This commit is contained in:
Dillon Kearns 2023-03-04 07:39:10 -08:00
parent 2c3665c70f
commit 154a4ff0b0
1 changed files with 32 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
examples/blog-engine/script/src/AddRoute.elm
View File

@ -134,18 +134,40 @@ createFile { moduleName, fields } =
"response"
"parsedForm"
(\response parsedForm ->
Gen.Debug.toString parsedForm
|> Gen.Pages.Script.call_.log
|> Gen.BackendTask.call_.map
(Elm.fn ( "_", Nothing )
(\_ ->
Response.render
(Elm.record
[ ( "errors", response )
]
Elm.Case.result parsedForm
{ err =
( "error"
, \error ->
Gen.Debug.toString error
|> Gen.Pages.Script.call_.log
|> Gen.BackendTask.call_.map
(Elm.fn ( "_", Nothing )
(\_ ->
Response.render
(Elm.record
[ ( "errors", response )
]
)
)
)
)
)
, ok =
( "okForm"
, \okForm ->
Gen.Debug.toString okForm
|> Gen.Pages.Script.call_.log
|> Gen.BackendTask.call_.map
(Elm.fn ( "_", Nothing )
(\_ ->
Response.render
(Elm.record
[ ( "errors", response )
]
)
)
)
)
}
)
)
)