Inline value.

This commit is contained in:
Dillon Kearns 2021-06-03 13:43:06 -07:00
parent 2177d2bf1d
commit 7f5ce8f02b

View File

@ -284,13 +284,10 @@ lookupHelp strippedSoFar appType requestInfo rawResponses =
Err error
Request strippedResponses ( urls, lookupFn ) ->
lookupFn appType rawResponses
|> (\nextRequest ->
lookupHelp (combineReducedDicts strippedResponses strippedSoFar)
appType
(addUrls urls nextRequest)
rawResponses
)
lookupHelp (combineReducedDicts strippedResponses strippedSoFar)
appType
(addUrls urls (lookupFn appType rawResponses))
rawResponses
Done stripped value ->
Ok ( combineReducedDicts stripped strippedSoFar, value )