diff options
author | Louis Pilfold <louis@lpil.uk> | 2019-09-17 21:45:22 +0100 |
---|---|---|
committer | Louis Pilfold <louis@lpil.uk> | 2019-09-17 21:57:16 +0100 |
commit | dcf7b566a74c9388f491cbb14454c3789868ba30 (patch) | |
tree | 910f129febc55333bbae50a891d7530aad4859da | |
parent | ac354a3495feeea5efbeaea7d3d82020e66ee0c4 (diff) | |
download | gleam_stdlib-dcf7b566a74c9388f491cbb14454c3789868ba30.tar.gz gleam_stdlib-dcf7b566a74c9388f491cbb14454c3789868ba30.zip |
Correct type definition of Nil
-rw-r--r-- | gen/src/gleam@tuple.erl | 28 | ||||
-rw-r--r-- | gen/test/gleam@tuple_test.erl | 23 |
2 files changed, 0 insertions, 51 deletions
diff --git a/gen/src/gleam@tuple.erl b/gen/src/gleam@tuple.erl deleted file mode 100644 index 30c553c..0000000 --- a/gen/src/gleam@tuple.erl +++ /dev/null @@ -1,28 +0,0 @@ --module(gleam@tuple). --compile(no_auto_import). - --export([new/2, first/1, second/1, swap/1, fetch/2]). - -new(A, B) -> - {A, B}. - -first(Tup) -> - {A, _} = Tup, - A. - -second(Tup) -> - {_, A} = Tup, - A. - -swap(Tup) -> - {A, B} = Tup, - {B, A}. - -fetch(Haystack, Needle) -> - gleam@list:find(Haystack, fun(Tuple) -> case first(Tuple) =:= Needle of - true -> - {ok, second(Tuple)}; - - false -> - {error, []} - end end). diff --git a/gen/test/gleam@tuple_test.erl b/gen/test/gleam@tuple_test.erl deleted file mode 100644 index c705c74..0000000 --- a/gen/test/gleam@tuple_test.erl +++ /dev/null @@ -1,23 +0,0 @@ --module(gleam@tuple_test). --compile(no_auto_import). - --export([new_test/0, first_test/0, second_test/0, swap_test/0, fetch_test/0]). - -new_test() -> - gleam@expect:equal(gleam@tuple:new(1, 2), {1, 2}), - gleam@expect:equal(gleam@tuple:new(2, <<"3">>), {2, <<"3">>}). - -first_test() -> - gleam@expect:equal(gleam@tuple:first({1, 2}), 1). - -second_test() -> - gleam@expect:equal(gleam@tuple:second({1, 2}), 2). - -swap_test() -> - gleam@expect:equal(gleam@tuple:swap({1, <<"2">>}), {<<"2">>, 1}). - -fetch_test() -> - Proplist = [{0, <<"1">>}, {1, <<"2">>}], - gleam@expect:equal(gleam@tuple:fetch(Proplist, 0), {ok, <<"1">>}), - gleam@expect:equal(gleam@tuple:fetch(Proplist, 1), {ok, <<"2">>}), - gleam@expect:is_error(gleam@tuple:fetch(Proplist, 2)). |