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

Get session cookie.

Browse Source
This commit is contained in:
Dillon Kearns 2022-08-12 08:08:11 -07:00
parent 22356d4511
commit 008e13fba5
1 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
examples/todos/app/Route/Index.elm
View File

@ -12,6 +12,7 @@ import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Keyed as Keyed
import Html.Lazy exposing (lazy, lazy2)
import MySession
import Pages.Msg
import Pages.PageUrl exposing (PageUrl)
import Path exposing (Path)
@ -19,6 +20,7 @@ import RouteBuilder exposing (StatefulRoute, StatelessRoute, StaticPayload)
import Seo.Common
import Server.Request as Request
import Server.Response as Response exposing (Response)
import Server.Session as Session exposing (Session)
import Shared
import View exposing (View)
@ -105,23 +107,33 @@ head static =
data : RouteParams -> Request.Parser (DataSource (Response Data ErrorPage))
data routeParams =
Request.succeed
(DataSource.succeed
(Response.render
{ entries =
[ { description = "Test"
, completed = False
, editing = False
, id = 1
}
, { description = "Test 2"
, completed = False
, editing = False
, id = 2
}
]
}
)
MySession.withSession
(Request.succeed ())
(\() session ->
let
okSessionThing : Session
okSessionThing =
session
|> Result.withDefault Nothing
|> Maybe.withDefault Session.empty
in
DataSource.succeed
( okSessionThing
, Response.render
{ entries =
[ { description = "Test"
, completed = False
, editing = False
, id = 1
}
, { description = "Test 2"
, completed = False
, editing = False
, id = 2
}
]
}
)
)