From 4f27f3305f045ba298aa55481ea1331c2b5b0abb Mon Sep 17 00:00:00 2001
From: sforman <sforman@hushmail.com>
Date: Sat, 2 Sep 2023 09:44:57 -0700
Subject: [PATCH] Don't use andThen.

It's less clear than spelling it all out.
---
 implementations/Elm/src/Joy.elm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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