From b65e948cce67a10427dcaca0d2aa35f209bf8ef1 Mon Sep 17 00:00:00 2001
From: sforman <sforman@hushmail.com>
Date: Sat, 2 Sep 2023 09:38:15 -0700
Subject: [PATCH] Chaining with andThen works but is ugly.

It's lees clear to me what's going on, and I wrote it.
---
 implementations/Elm/src/Joy.elm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/implementations/Elm/src/Joy.elm b/implementations/Elm/src/Joy.elm
index 0099016..3a67534 100644
--- a/implementations/Elm/src/Joy.elm
+++ b/implementations/Elm/src/Joy.elm
@@ -507,17 +507,7 @@ joy_swaack stack expression =
 
 joy_swap : JoyFunction
 joy_swap stack expression =
-    case pop_any stack of
-        Ok ( a, s0 ) ->
-            case pop_any s0 of
-                Ok ( b, s1 ) ->
-                    Ok ( b :: a :: s1, expression )
-
-                Err msg ->
-                    Err msg
-
-        Err msg ->
-            Err msg
+    pop_any stack |> andThen (\(a, s0) -> (pop_any s0 |> andThen (\( b, s1 ) -> Ok ( b :: a :: s1, expression ))))
 
 
 joy_truthy : JoyFunction