Revert "Result.forEach with tests and docs (rescript-lang#116)"

This reverts commit 9a9105f.

Author: jmagaram

CHANGELOG.md

@@ -5,7 +5,6 @@
 ### API changes
 
 - Add `Result.forEach` https://github.com/rescript-association/rescript-core/pull/116
-- Add `Array.fromOption` https://github.com/rescript-association/rescript-core/pull/111
 
 ## 0.2.0
 

src/Core__Result.mjs

@@ -102,13 +102,6 @@ function cmp(a, b, f) {
   }
 }
 
-function forEach(r, f) {
-  if (r.TAG === /* Ok */0) {
-    return Curry._1(f, r._0);
-  }
-  
-}
-
 export {
   getExn ,
   mapWithDefault ,
@@ -119,6 +112,5 @@ export {
   isError ,
   eq ,
   cmp ,
-  forEach ,
 }
 /* No side effect */

src/Core__Result.res

@@ -91,9 +91,3 @@ let cmpU = (a, b, f) =>
   }
 
 let cmp = (a, b, f) => cmpU(a, b, (. x, y) => f(x, y))
-
-let forEach = (r, f) =>
-  switch r {
-  | Ok(ok) => f(ok)
-  | Error(_) => ()
-  }

src/Core__Result.resi

@@ -197,15 +197,3 @@ let eq: (t<'a, 'c>, t<'b, 'd>, ('a, 'b) => bool) => bool
   ```
 */
 let cmp: (t<'a, 'c>, t<'b, 'd>, ('a, 'b) => int) => int
-
-/**
-`forEach(res, f)` runs the provided function `f` on the `Ok` value. If `res` is `Error`, nothing happens. 
-
-## Examples
-
-```rescript
-Result.forEach(Ok(3), Console.log) // Logs "3", returns ()
-Result.forEach(Error("x"), Console.log) // Does nothing, returns ()
-```
-*/
-let forEach: (t<'a, 'b>, 'a => unit) => unit

test/ResultTests.mjs

@@ -5,7 +5,6 @@ import * as TestTests from "./TestTests.mjs";
 import * as ArrayTests from "./ArrayTests.mjs";
 import * as ErrorTests from "./ErrorTests.mjs";
 import * as PromiseTest from "./PromiseTest.mjs";
-import * as ResultTests from "./ResultTests.mjs";
 
 var bign = TestTests.bign;
 
@@ -29,13 +28,9 @@ var panicTest = ErrorTests.panicTest;
 
 var fromOptionTest = ArrayTests.fromOptionTest;
 
-var $$catch = IntTests.$$catch;
-
-var eq = ResultTests.eq;
-
-var forEachIfOkCallFunction = ResultTests.forEachIfOkCallFunction;
+var eq = IntTests.eq;
 
-var forEachIfErrorDoNotCallFunction = ResultTests.forEachIfErrorDoNotCallFunction;
+var $$catch = IntTests.$$catch;
 
 export {
   bign ,
@@ -49,9 +44,7 @@ export {
   Concurrently ,
   panicTest ,
   fromOptionTest ,
-  $$catch ,
   eq ,
-  forEachIfOkCallFunction ,
-  forEachIfErrorDoNotCallFunction ,
+  $$catch ,
 }
 /* IntTests Not a pure module */

test/ResultTests.res

@@ -3,4 +3,3 @@ include PromiseTest
 include ErrorTests
 include ArrayTests
 include IntTests
-include ResultTests