diff options
Diffstat (limited to 'gen/src')
| -rw-r--r-- | gen/src/gleam@any.erl | 6 | ||||
| -rw-r--r-- | gen/src/gleam@pair.erl | 16 |
2 files changed, 19 insertions, 3 deletions
diff --git a/gen/src/gleam@any.erl b/gen/src/gleam@any.erl index 5bd9157..4b2d17d 100644 --- a/gen/src/gleam@any.erl +++ b/gen/src/gleam@any.erl @@ -1,7 +1,7 @@ -module(gleam@any). -compile(no_auto_import). --export([from/1, unsafe_coerce/1, string/1, int/1, float/1, atom/1, bool/1, thunk/1, list/2, struct2/1, field/2]). +-export([from/1, unsafe_coerce/1, string/1, int/1, float/1, atom/1, bool/1, thunk/1, list/2, pair/1, field/2]). from(A) -> gleam__stdlib:identity(A). @@ -36,8 +36,8 @@ list(Any, Decode) -> fun(Capture1) -> gleam@list:traverse(Capture1, Decode) end ). -struct2(A) -> - gleam__stdlib:decode_struct2(A). +pair(A) -> + gleam__stdlib:decode_pair(A). field(A, B) -> gleam__stdlib:decode_field(A, B). diff --git a/gen/src/gleam@pair.erl b/gen/src/gleam@pair.erl new file mode 100644 index 0000000..887adb9 --- /dev/null +++ b/gen/src/gleam@pair.erl @@ -0,0 +1,16 @@ +-module(gleam@pair). +-compile(no_auto_import). + +-export([first/1, second/1, swap/1]). + +first(Tup) -> + {A, _} = Tup, + A. + +second(Tup) -> + {_, A} = Tup, + A. + +swap(Tup) -> + {A, B} = Tup, + {B, A}. |