From c4f4008b0dfae15f41036e7aff00881cfecaffed Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Wed, 20 Oct 2021 11:45:10 +0200
Subject: [PATCH] Faster join

---
 src/Result/Extra.elm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/Result/Extra.elm b/src/Result/Extra.elm
index e3cc28b..40e281e 100644
--- a/src/Result/Extra.elm
+++ b/src/Result/Extra.elm
@@ -393,11 +393,8 @@ join r =
         Err x ->
             Err x
 
-        Ok (Err x) ->
-            Err x
-
-        Ok (Ok a) ->
-            Ok a
+        Ok a ->
+            a
 
 
 {-| Partition a list of Results into two lists of values (successes