Add Dict.forEach and Dict.forEachWithKey

Author: Bart Schuurmans

src/Core__Dict.mjs

@@ -1,11 +1,27 @@
 // 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.keys(dict).forEach(function (key) {
+        Curry._1(f, dict[key]);
+      });
+}
+
+function forEachWithKey(dict, f) {
+  Object.keys(dict).forEach(function (key) {
+        var value = dict[key];
+        Curry._2(f, value, key);
+      });
+}
+
 export {
   $$delete$1 as $$delete,
+  forEach ,
+  forEachWithKey ,
 }
 /* No side effect */

src/Core__Dict.res

@@ -23,3 +23,21 @@ 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
+  ->keysToArray
+  ->Core__Array.forEach(key => {
+    let value = dict->getUnsafe(key)
+    f(value)
+  })
+}
+
+let forEachWithKey = (dict, f) => {
+  dict
+  ->keysToArray
+  ->Core__Array.forEach(key => {
+    let value = dict->getUnsafe(key)
+    f(value, key)
+  })
+}

src/Core__Dict.resi

@@ -189,3 +189,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