From 7f5ce8f02bf874c2def8c00abdcf1d6da731558e Mon Sep 17 00:00:00 2001
From: Dillon Kearns <dillon@dillonkearns.com>
Date: Thu, 3 Jun 2021 13:43:06 -0700
Subject: [PATCH] Inline value.

---
 src/DataSource.elm | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/DataSource.elm b/src/DataSource.elm
index 0147cea7..1cd902b6 100644
--- a/src/DataSource.elm
+++ b/src/DataSource.elm
@@ -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 )