aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/gleam/map.gleam22
-rw-r--r--src/gleam_stdlib.erl4
2 files changed, 13 insertions, 13 deletions
diff --git a/src/gleam/map.gleam b/src/gleam/map.gleam
index 3330dcc..57c3228 100644
--- a/src/gleam/map.gleam
+++ b/src/gleam/map.gleam
@@ -24,14 +24,14 @@ pub fn has_key(map, key) {
pub external fn new() -> Map(key, value)
= "maps" "new"
-pub external fn fetch(Map(key, value), key) -> Result(value, Nil)
- = "gleam_stdlib" "map_fetch";
+pub external fn get(Map(key, value), key) -> Result(value, Nil)
+ = "gleam_stdlib" "map_get";
-external fn erl_put(key, value, Map(key, value)) -> Map(key, value)
+external fn erl_insert(key, value, Map(key, value)) -> Map(key, value)
= "maps" "put";
-pub fn put(map, key, value) {
- erl_put(key, value, map)
+pub fn insert(map, key, value) {
+ erl_insert(key, value, map)
}
external fn erl_map_values(fn(key, value) -> value, Map(key, value))
@@ -76,10 +76,10 @@ pub fn drop(map, keys) {
})
}
-pub fn update(dict, key, f) {
- case fetch(dict, key) {
- | Ok(value) -> put(dict, key, f(Ok(value)))
- | Error(_) -> put(dict, key, f(Error(Nil)))
+pub fn update(map, key, f) {
+ case get(map, key) {
+ | Ok(value) -> insert(map, key, f(Ok(value)))
+ | Error(_) -> insert(map, key, f(Error(Nil)))
}
}
@@ -90,7 +90,7 @@ fn do_fold(list, acc, f) {
}
}
-pub fn fold(dict, acc, f) {
- let kvs = to_list(dict)
+pub fn fold(map, acc, f) {
+ let kvs = to_list(map)
do_fold(kvs, acc, f)
}
diff --git a/src/gleam_stdlib.erl b/src/gleam_stdlib.erl
index 03f26e6..95fa252 100644
--- a/src/gleam_stdlib.erl
+++ b/src/gleam_stdlib.erl
@@ -3,7 +3,7 @@
-export([expect_equal/2, expect_not_equal/2, expect_true/1, expect_false/1,
expect_is_ok/1, expect_is_error/1, atom_from_string/1,
- atom_create_from_string/1, atom_to_string/1, map_fetch/2,
+ atom_create_from_string/1, atom_to_string/1, map_get/2,
iodata_append/2, iodata_prepend/2, identity/1, decode_int/1,
decode_string/1, decode_bool/1, decode_float/1, decode_thunk/1, decode_atom/1,
decode_pair/1, decode_list/1, decode_field/2, parse_int/1, parse_float/1, compare_strings/2]).
@@ -15,7 +15,7 @@ expect_false(A) -> ?assertNot(A).
expect_is_ok(A) -> ?assertMatch({ok, _}, A).
expect_is_error(A) -> ?assertMatch({error, _}, A).
-map_fetch(Map, Key) ->
+map_get(Map, Key) ->
case maps:find(Key, Map) of
error -> {error, nil};
OkFound -> OkFound