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

Use action for todos example.

Browse Source
This commit is contained in:
Dillon Kearns 2022-05-04 16:48:10 -07:00
parent 344ef2919a
commit f33e5bac25
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
examples/pokedex/app/Route/Todos.elm
View File

@ -55,7 +55,7 @@ route =
RouteBuilder.serverRender
{ head = head
, data = data
, action = \_ -> Request.skip "No action."
, action = action
}
|> RouteBuilder.buildWithLocalState
{ view = view
@ -179,6 +179,19 @@ todoSelection =
data : RouteParams -> Parser (DataSource (Response Data ErrorPage))
data routeParams =
Request.oneOf
[ Request.requestTime
|> Request.map
(\time ->
Request.Fauna.dataSource (time |> Time.posixToMillis |> String.fromInt) todos
|> DataSource.map Data
|> DataSource.map Response.render
)
]
action : RouteParams -> Parser (DataSource (Response ActionData ErrorPage))
action _ =
Request.oneOf
[ Form.submitHandlers (deleteItemForm "")
(\model decoded ->
@ -189,7 +202,7 @@ data routeParams =
(\_ -> Route.redirectTo Route.Todos)
Err error ->
{ todos = [] }
{}
|> Response.render
|> DataSource.succeed
)
@ -202,18 +215,10 @@ data routeParams =
(\_ -> Route.redirectTo Route.Todos)
Err error ->
{ todos = []
}
{}
|> Response.render
|> DataSource.succeed
)
, Request.requestTime
|> Request.map
(\time ->
Request.Fauna.dataSource (time |> Time.posixToMillis |> String.fromInt) todos
|> DataSource.map Data
|> DataSource.map Response.render
)
]