bug fix for indexing. we were folding in the wrong direction

aviaviavi · Jul 10, 2018 · 1745479 · 1745479
1 parent 952788b
commit 1745479
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Testing/CurlRunnings.hs b/src/Testing/CurlRunnings.hs
@@ -345,8 +345,8 @@ getValueForQuery (CurlRunningsState _ previousResults _) full@(NonInterpolatedQu
                 NullPointer
                   (T.pack $ show full)
                   "No data was returned from this case"
-      in foldr
-           (\index eitherVal ->
+      in foldl
+           (\eitherVal index ->
               case (eitherVal, index) of
                 (Left l, _) -> Left l
                 (Right (Object o), KeyIndex k) ->