Add Dict.forEach and Dict.forEachWithKey

Author: Bart Schuurmans

src/Core__Dict.mjs

@@ -1,11 +1,24 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Curry from "rescript/lib/es6/curry.js";
 
 function $$delete$1(dict, string) {
   delete(dict[string]);
 }
 
+function forEach(dict, f) {
+  Object.values(dict).forEach(Curry.__1(f));
+}
+
+function forEachWithKey(dict, f) {
+  Object.entries(dict).forEach(function (param) {
+        Curry._2(f, param[1], param[0]);
+      });
+}
+
 export {
   $$delete$1 as $$delete,
+  forEach ,
+  forEachWithKey ,
 }
 /* No side effect */

src/Core__Dict.res

@@ -23,3 +23,11 @@ let delete = (dict, string) => {
 @val external assign: (t<'a>, t<'a>) => t<'a> = "Object.assign"
 
 @val external copy: (@as(json`{}`) _, t<'a>) => t<'a> = "Object.assign"
+
+let forEach = (dict, f) => {
+  dict->valuesToArray->Core__Array.forEach(value => f(value))
+}
+
+let forEachWithKey = (dict, f) => {
+  dict->toArray->Core__Array.forEach(((key, value)) => f(value, key))
+}

src/Core__Dict.resi

@@ -190,3 +190,33 @@ Console.log2(dict->Dict.keysToArray, dict2->Dict.keysToArray)
 */
 @val
 external copy: (@as(json`{}`) _, t<'a>) => t<'a> = "Object.assign"
+
+/**
+`forEach(dictionary, f)` iterates through all values of the dict.
+
+> Please note that this is *without the keys*, just the values. If you need the key as well, use `Dict.forEachWithKey`.
+
+## Examples
+```rescript
+let dict = Dict.fromArray([("key1", "value1"), ("key2", "value2")])
+
+dict->Dict.forEach(value => {
+  Console.log(value)
+})
+```
+*/
+let forEach: (t<'a>, 'a => unit) => unit
+
+/**
+`forEachWithKey(dictionary, f)` iterates through all values of the dict, including the key for each value.
+
+## Examples
+```rescript
+let dict = Dict.fromArray([("key1", "value1"), ("key2", "value2")])
+
+dict->Dict.forEachWithKey((value, key) => {
+  Console.log2(value, key)
+})
+```
+*/
+let forEachWithKey: (t<'a>, ('a, string) => unit) => unit

test/ArrayTests.mjs

@@ -450,7 +450,7 @@ Test.run([
 Test.run([
       [
         "ArrayTests.res",
-        109,
+        112,
         20,
         39
       ],
@@ -464,7 +464,7 @@ Test.run([
 Test.run([
       [
         "ArrayTests.res",
-        110,
+        113,
         20,
         34
       ],