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

12
src/Session.elm
View File

@ -198,7 +198,13 @@ withSession config userRequest toRequest =
in
decrypted
|> DataSource.andThen
(\sessionResult ->
(encodeSessionUpdate config toRequest userRequestData)
)
(Request.cookie config.name)
userRequest
encodeSessionUpdate config toRequest userRequestData sessionResult =
sessionResult
|> toRequest userRequestData
|> DataSource.andThen
@ -220,10 +226,6 @@ withSession config userRequest toRequest =
(setValues sessionUpdate)
)
)
)
)
(Request.cookie config.name)
userRequest
decryptCookie : { a | secrets : Secrets.Value (List String) } -> String -> DataSource Session