sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Chaining with andThen works but is ugly. 

It's lees clear to me what's going on, and I wrote it.
This commit is contained in:
sforman 2023-09-02 09:38:15 -07:00
parent ee7c1cec99
commit b65e948cce
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
implementations/Elm/src/Joy.elm
View File

@ -507,17 +507,7 @@ joy_swaack stack expression =
joy_swap : JoyFunction joy_swap : JoyFunction
joy_swap stack expression = joy_swap stack expression =
case pop_any stack of pop_any stack |> andThen (\(a, s0) -> (pop_any s0 |> andThen (\( b, s1 ) -> Ok ( b :: a :: s1, expression ))))
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 joy_truthy : JoyFunction