From 74a773601c9c63e27e412f789ef981a20a037a8c Mon Sep 17 00:00:00 2001
From: nonpop <nonpop@kaappijr>
Date: Thu, 15 Nov 2018 17:18:53 +0200
Subject: [PATCH] Make makeChangesHelp tail recursive

---
 src/Test/Runner/Node/Vendor/Diff.elm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/Test/Runner/Node/Vendor/Diff.elm b/src/Test/Runner/Node/Vendor/Diff.elm
index ffd7bb73..d876ad46 100644
--- a/src/Test/Runner/Node/Vendor/Diff.elm
+++ b/src/Test/Runner/Node/Vendor/Diff.elm
@@ -213,11 +213,12 @@ makeChangesHelp changes getA getB ( x, y ) path =
                     else
                         Err (UnexpectedPath ( x, y ) path)
             in
-            change
-                |> Result.andThen
-                    (\c ->
-                        makeChangesHelp (c :: changes) getA getB ( prevX, prevY ) tail
-                    )
+            case change of
+                Err err ->
+                    Err err
+
+                Ok c ->
+                    makeChangesHelp (c :: changes) getA getB ( prevX, prevY ) tail