dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-24 15:12:01 +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 ) -> Ok ( partiallyStrippedResponses, followupRequest ) ->
strippedResponsesHelp strippedResponsesHelp
(((usedSoFar |> Dict.toList) (Dict.merge
++ (partiallyStrippedResponses |> Dict.toList) (\key a -> Dict.insert key a)
) (\key a b -> Dict.insert key (merge a b))
|> Dict.Extra.fromListDedupe merge (\key b -> Dict.insert key b)
usedSoFar
partiallyStrippedResponses
Dict.empty
) )
appType appType
followupRequest followupRequest