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

Refactor as a step for tail call optimization.

Browse Source
This commit is contained in:
Dillon Kearns 2021-06-03 11:15:57 -07:00
parent f595605f4d
commit 83eb90aa9f
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/DataSource.elm
View File

@ -144,14 +144,11 @@ map fn requestInfo =
Request partiallyStripped
( urls
, \appType rawResponses ->
lookupFn appType rawResponses
|> (\nextRequest ->
map fn nextRequest
)
map fn (lookupFn appType rawResponses)
)
Done stripped value ->
fn value |> Done stripped
Done stripped (fn value)
{-| Helper to remove an inner layer of Request wrapping.
@ -233,16 +230,12 @@ map2 fn request1 request2 =
RequestError error
( Request newDict1 ( urls1, lookupFn1 ), Request newDict2 ( urls2, lookupFn2 ) ) ->
let
value : ApplicationType -> RequestsAndPending -> DataSource c
value appType rawResponses =
Request (combineReducedDicts newDict1 newDict2)
( urls1 ++ urls2
, \appType rawResponses ->
case ( lookupFn1 appType rawResponses, lookupFn2 appType rawResponses ) of
( newValue1, newValue2 ) ->
map2 fn newValue1 newValue2
in
Request (combineReducedDicts newDict1 newDict2)
( urls1 ++ urls2
, value
)
( Request dict1 ( urls1, lookupFn1 ), Done stripped2 value2 ) ->