diff options
| author | Alice Dee <alice.dee@guardian.co.uk> | 2019-09-17 12:37:06 +0100 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-09-17 12:59:32 +0100 |
| commit | 198beba763f8bc0fd35b5b6ba36e42c5926ecc8c (patch) | |
| tree | 5c2262db87b91b8a804f7c0fc97fb365022bcb9b /gen/src | |
| parent | 9d282d68b5a2764ab73c2dead1df0b0ab8b8edaa (diff) | |
| download | gleam_stdlib-198beba763f8bc0fd35b5b6ba36e42c5926ecc8c.tar.gz gleam_stdlib-198beba763f8bc0fd35b5b6ba36e42c5926ecc8c.zip | |
Create Pair datatype (remove Tuple)
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}. |