diff options
Diffstat (limited to 'gen')
| -rw-r--r-- | gen/src/gleam@map.erl | 24 | ||||
| -rw-r--r-- | gen/test/gleam@any_test.erl | 6 | ||||
| -rw-r--r-- | gen/test/gleam@map_test.erl | 18 |
3 files changed, 24 insertions, 24 deletions
diff --git a/gen/src/gleam@map.erl b/gen/src/gleam@map.erl index 96d8b83..778509c 100644 --- a/gen/src/gleam@map.erl +++ b/gen/src/gleam@map.erl @@ -1,7 +1,7 @@ -module(gleam@map). -compile(no_auto_import). --export([size/1, to_list/1, from_list/1, has_key/2, new/0, fetch/2, put/3, map_values/2, keys/1, values/1, filter/2, take/2, merge/2, delete/2, drop/2, update/3, fold/3]). +-export([size/1, to_list/1, from_list/1, has_key/2, new/0, get/2, insert/3, map_values/2, keys/1, values/1, filter/2, take/2, merge/2, delete/2, drop/2, update/3, fold/3]). size(A) -> maps:size(A). @@ -21,14 +21,14 @@ has_key(Map, Key) -> new() -> maps:new(). -fetch(A, B) -> - gleam_stdlib:map_fetch(A, B). +get(A, B) -> + gleam_stdlib:map_get(A, B). -erl_put(A, B, C) -> +erl_insert(A, B, C) -> maps:put(A, B, C). -put(Map, Key, Value) -> - erl_put(Key, Value, Map). +insert(Map, Key, Value) -> + erl_insert(Key, Value, Map). erl_map_values(A, B) -> maps:map(A, B). @@ -66,13 +66,13 @@ delete(Map, Key) -> drop(Map, Keys) -> gleam@list:fold(Keys, Map, fun(Key, Acc) -> delete(Acc, Key) end). -update(Dict, Key, F) -> - case fetch(Dict, Key) of +update(Map, Key, F) -> + case get(Map, Key) of {ok, Value} -> - put(Dict, Key, F({ok, Value})); + insert(Map, Key, F({ok, Value})); {error, _} -> - put(Dict, Key, F({error, nil})) + insert(Map, Key, F({error, nil})) end. do_fold(List, Acc, F) -> @@ -84,6 +84,6 @@ do_fold(List, Acc, F) -> do_fold(Tail, F(K, V, Acc), F) end. -fold(Dict, Acc, F) -> - Kvs = to_list(Dict), +fold(Map, Acc, F) -> + Kvs = to_list(Map), do_fold(Kvs, Acc, F). diff --git a/gen/test/gleam@any_test.erl b/gen/test/gleam@any_test.erl index 59a5067..ed58ebf 100644 --- a/gen/test/gleam@any_test.erl +++ b/gen/test/gleam@any_test.erl @@ -152,7 +152,7 @@ field_test() -> {ok, ErrorAtom} = gleam@atom:from_string(<<"error">>), gleam@expect:equal( gleam@any:field( - gleam@any:from(gleam@map:put(gleam@map:new(), OkAtom, 1)), + gleam@any:from(gleam@map:insert(gleam@map:new(), OkAtom, 1)), OkAtom ), {ok, gleam@any:from(1)} @@ -160,8 +160,8 @@ field_test() -> gleam@expect:equal( gleam@any:field( gleam@any:from( - gleam@map:put( - gleam@map:put(gleam@map:new(), OkAtom, 3), + gleam@map:insert( + gleam@map:insert(gleam@map:new(), OkAtom, 3), ErrorAtom, 1 ) diff --git a/gen/test/gleam@map_test.erl b/gen/test/gleam@map_test.erl index 9ef0149..5409e85 100644 --- a/gen/test/gleam@map_test.erl +++ b/gen/test/gleam@map_test.erl @@ -1,7 +1,7 @@ -module(gleam@map_test). -compile(no_auto_import). --export([from_list_test/0, has_key_test/0, new_test/0, fetch_test/0, put_test/0, map_values_test/0, keys_test/0, values_test/0, take_test/0, drop_test/0, merge_test/0, delete_test/0, update_test/0, fold_test/0]). +-export([from_list_test/0, has_key_test/0, new_test/0, get_test/0, insert_test/0, map_values_test/0, keys_test/0, values_test/0, take_test/0, drop_test/0, merge_test/0, delete_test/0, update_test/0, fold_test/0]). from_list_test() -> gleam@expect:equal( @@ -23,18 +23,18 @@ new_test() -> gleam@expect:equal(gleam@map:size(gleam@map:new()), 0), gleam@expect:equal(gleam@map:to_list(gleam@map:new()), []). -fetch_test() -> +get_test() -> Proplist = [{4, 0}, {1, 1}], M = gleam@map:from_list(Proplist), - gleam@expect:equal(gleam@map:fetch(M, 4), {ok, 0}), - gleam@expect:equal(gleam@map:fetch(M, 1), {ok, 1}), - gleam@expect:equal(gleam@map:fetch(M, 2), {error, nil}). + gleam@expect:equal(gleam@map:get(M, 4), {ok, 0}), + gleam@expect:equal(gleam@map:get(M, 1), {ok, 1}), + gleam@expect:equal(gleam@map:get(M, 2), {error, nil}). -put_test() -> +insert_test() -> gleam@expect:equal( - gleam@map:put( - gleam@map:put( - gleam@map:put(gleam@map:new(), <<"a">>, 0), + gleam@map:insert( + gleam@map:insert( + gleam@map:insert(gleam@map:new(), <<"a">>, 0), <<"b">>, 1 ), |