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

Extract function.

Browse Source
This commit is contained in:
Dillon Kearns 2022-01-23 12:53:22 -08:00
parent dd47359bee
commit 574f6711df
1 changed files with 25 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
src/Session.elm
View File

@ -198,34 +198,36 @@ withSession config userRequest toRequest =
in
decrypted
|> DataSource.andThen
(\sessionResult ->
sessionResult
|> toRequest userRequestData
|> DataSource.andThen
(\( sessionUpdate, response ) ->
DataSource.map
(\encoded ->
response
|> Server.Response.withSetCookieHeader
(SetCookie.setCookie config.name encoded
|> SetCookie.httpOnly
|> SetCookie.withPath "/"
-- TODO set expiration time
-- TODO do I need to encrypt the session expiration as part of it
-- TODO should I update the expiration time every time?
--|> SetCookie.withExpiration (Time.millisToPosix 100000000000)
)
)
(encrypt config.secrets
(setValues sessionUpdate)
)
)
)
(encodeSessionUpdate config toRequest userRequestData)
)
(Request.cookie config.name)
userRequest
encodeSessionUpdate config toRequest userRequestData sessionResult =
sessionResult
|> toRequest userRequestData
|> DataSource.andThen
(\( sessionUpdate, response ) ->
DataSource.map
(\encoded ->
response
|> Server.Response.withSetCookieHeader
(SetCookie.setCookie config.name encoded
|> SetCookie.httpOnly
|> SetCookie.withPath "/"
-- TODO set expiration time
-- TODO do I need to encrypt the session expiration as part of it
-- TODO should I update the expiration time every time?
--|> SetCookie.withExpiration (Time.millisToPosix 100000000000)
)
)
(encrypt config.secrets
(setValues sessionUpdate)
)
)
decryptCookie : { a | secrets : Secrets.Value (List String) } -> String -> DataSource Session
decryptCookie config sessionCookie =
sessionCookie