From 0579308bf0559635e3742e7fa634648182d916c5 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 15 Sep 2019 21:05:05 +0100
Subject: Remove maps from stdlib

---
 src/gleam/map.gleam      | 100 +++++++++++++++++++++++++++++++++++++++++++++++
 src/gleam/map_dict.gleam | 100 -----------------------------------------------
 2 files changed, 100 insertions(+), 100 deletions(-)
 create mode 100644 src/gleam/map.gleam
 delete mode 100644 src/gleam/map_dict.gleam

(limited to 'src')

diff --git a/src/gleam/map.gleam b/src/gleam/map.gleam
new file mode 100644
index 0000000..5e24816
--- /dev/null
+++ b/src/gleam/map.gleam
@@ -0,0 +1,100 @@
+import gleam/any
+import gleam/result
+import gleam/list
+
+pub external type MapDict(key, value);
+
+pub enum NotFound =
+  | NotFound
+
+pub external fn size(MapDict(k, v)) -> Int
+  = "maps" "size"
+
+pub external fn to_list(MapDict(key, value)) -> List(struct(key, value))
+  = "maps" "to_list"
+
+pub external fn from_list(List(struct(key, value))) -> MapDict(key, value)
+  = "maps" "from_list"
+
+external fn is_key(key, MapDict(key, v)) -> Bool
+  = "maps" "is_key"
+
+pub fn has_key(map, key) {
+  is_key(key, map)
+}
+
+pub external fn new() -> MapDict(key, value)
+  = "maps" "new"
+
+pub external fn fetch(MapDict(key, value), key) -> Result(value, NotFound)
+  = "gleam__stdlib" "map_fetch";
+
+external fn erl_put(key, value, MapDict(key, value)) -> MapDict(key, value)
+  = "maps" "put";
+
+pub fn put(map, key, value) {
+  erl_put(key, value, map)
+}
+
+external fn erl_map_values(fn(key, value) -> value, MapDict(key, value))
+  -> MapDict(key, value)
+  = "maps" "map";
+
+pub fn map_values(map, fun) {
+  erl_map_values(fun, map)
+}
+
+pub external fn keys(MapDict(keys, v)) -> List(keys)
+  = "maps" "keys"
+
+pub external fn values(MapDict(k, values)) -> List(values)
+  = "maps" "values"
+
+external fn erl_filter(fn(key, value) -> Bool, MapDict(key, value))
+  -> MapDict(key, value)
+  = "maps" "filter";
+
+pub fn filter(map, fun) {
+  erl_filter(fun, map)
+}
+
+external fn erl_take(List(k), MapDict(k, v)) -> MapDict(k, v) = "maps" "with"
+
+pub fn take(map, keys) {
+  erl_take(keys, map)
+}
+
+pub external fn merge(MapDict(k, v), MapDict(k, v)) -> MapDict(k, v) = "maps" "merge"
+
+external fn erl_delete(k, MapDict(k, v)) -> MapDict(k, v) = "maps" "remove"
+
+pub fn delete(map, key) {
+  erl_delete(key, map)
+}
+
+pub fn drop(map, keys) {
+  list.fold(keys, map, fn(key, acc) {
+    delete(acc, key)
+  })
+}
+
+pub external type NotFound;
+
+pub fn update(dict, key, f) {
+  case fetch(dict, key) {
+  | Ok(value) -> put(dict, key, f(Ok(value)))
+  | Error(_) -> put(dict, key, f(Error(NotFound)))
+  }
+}
+
+fn do_fold(list, acc, f) {
+  case list {
+    | [] -> acc
+    | [struct(k, v) | tail] -> do_fold(tail, f(k, v, acc), f)
+  }
+}
+
+pub fn fold(dict, acc, f) {
+  let kvs = to_list(dict)
+  do_fold(kvs, acc, f)
+}
diff --git a/src/gleam/map_dict.gleam b/src/gleam/map_dict.gleam
deleted file mode 100644
index 5e24816..0000000
--- a/src/gleam/map_dict.gleam
+++ /dev/null
@@ -1,100 +0,0 @@
-import gleam/any
-import gleam/result
-import gleam/list
-
-pub external type MapDict(key, value);
-
-pub enum NotFound =
-  | NotFound
-
-pub external fn size(MapDict(k, v)) -> Int
-  = "maps" "size"
-
-pub external fn to_list(MapDict(key, value)) -> List(struct(key, value))
-  = "maps" "to_list"
-
-pub external fn from_list(List(struct(key, value))) -> MapDict(key, value)
-  = "maps" "from_list"
-
-external fn is_key(key, MapDict(key, v)) -> Bool
-  = "maps" "is_key"
-
-pub fn has_key(map, key) {
-  is_key(key, map)
-}
-
-pub external fn new() -> MapDict(key, value)
-  = "maps" "new"
-
-pub external fn fetch(MapDict(key, value), key) -> Result(value, NotFound)
-  = "gleam__stdlib" "map_fetch";
-
-external fn erl_put(key, value, MapDict(key, value)) -> MapDict(key, value)
-  = "maps" "put";
-
-pub fn put(map, key, value) {
-  erl_put(key, value, map)
-}
-
-external fn erl_map_values(fn(key, value) -> value, MapDict(key, value))
-  -> MapDict(key, value)
-  = "maps" "map";
-
-pub fn map_values(map, fun) {
-  erl_map_values(fun, map)
-}
-
-pub external fn keys(MapDict(keys, v)) -> List(keys)
-  = "maps" "keys"
-
-pub external fn values(MapDict(k, values)) -> List(values)
-  = "maps" "values"
-
-external fn erl_filter(fn(key, value) -> Bool, MapDict(key, value))
-  -> MapDict(key, value)
-  = "maps" "filter";
-
-pub fn filter(map, fun) {
-  erl_filter(fun, map)
-}
-
-external fn erl_take(List(k), MapDict(k, v)) -> MapDict(k, v) = "maps" "with"
-
-pub fn take(map, keys) {
-  erl_take(keys, map)
-}
-
-pub external fn merge(MapDict(k, v), MapDict(k, v)) -> MapDict(k, v) = "maps" "merge"
-
-external fn erl_delete(k, MapDict(k, v)) -> MapDict(k, v) = "maps" "remove"
-
-pub fn delete(map, key) {
-  erl_delete(key, map)
-}
-
-pub fn drop(map, keys) {
-  list.fold(keys, map, fn(key, acc) {
-    delete(acc, key)
-  })
-}
-
-pub external type NotFound;
-
-pub fn update(dict, key, f) {
-  case fetch(dict, key) {
-  | Ok(value) -> put(dict, key, f(Ok(value)))
-  | Error(_) -> put(dict, key, f(Error(NotFound)))
-  }
-}
-
-fn do_fold(list, acc, f) {
-  case list {
-    | [] -> acc
-    | [struct(k, v) | tail] -> do_fold(tail, f(k, v, acc), f)
-  }
-}
-
-pub fn fold(dict, acc, f) {
-  let kvs = to_list(dict)
-  do_fold(kvs, acc, f)
-}
-- 
cgit v1.2.3