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

Use dict merge function to avoid Dict.toList/fromList.

Browse Source
This commit is contained in:
Dillon Kearns 2021-05-31 21:04:18 -07:00
parent 8b4144ef15
commit 4ebc578c21
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Pages/StaticHttpRequest.elm
View File

@ -77,10 +77,13 @@ strippedResponsesHelp usedSoFar appType request rawResponses =
Ok ( partiallyStrippedResponses, followupRequest ) ->
strippedResponsesHelp
(((usedSoFar |> Dict.toList)
++ (partiallyStrippedResponses |> Dict.toList)
)
|> Dict.Extra.fromListDedupe merge
(Dict.merge
(\key a -> Dict.insert key a)
(\key a b -> Dict.insert key (merge a b))
(\key b -> Dict.insert key b)
usedSoFar
partiallyStrippedResponses
Dict.empty
)
appType
followupRequest