Add optional message argument to Result.getOrThrow and improve default error message

CHANGELOG.md

@@ -12,6 +12,10 @@
 
 # 12.0.0-beta.2 (Unreleased)
 
+#### :rocket: New Feature
+
+- Add optional `message` argument to `Result.getOrThrow` and improve default error message. https://github.com/rescript-lang/rescript/pull/7630
+
 #### :house: Internal
 
 - Remove internal/unused `-bs-v` flag. https://github.com/rescript-lang/rescript/pull/7627

lib/es6/Stdlib_Option.js

@@ -1,6 +1,6 @@
 
 
-import * as Stdlib_Error from "./Stdlib_Error.js";
+import * as Stdlib_JsError from "./Stdlib_JsError.js";
 import * as Primitive_option from "./Primitive_option.js";
 
 function filter(opt, p) {
@@ -21,7 +21,7 @@ function getOrThrow(x, message) {
   if (x !== undefined) {
     return Primitive_option.valFromOption(x);
   } else {
-    return Stdlib_Error.panic(message !== undefined ? message : "Option.getOrThrow called for None value");
+    return Stdlib_JsError.panic(message !== undefined ? message : "Option.getOrThrow called for None value");
   }
 }
 

lib/es6/Stdlib_Result.js

@@ -1,14 +1,13 @@
 
 
+import * as Stdlib_JsError from "./Stdlib_JsError.js";
 
-function getOrThrow(x) {
+function getOrThrow(x, message) {
   if (x.TAG === "Ok") {
     return x._0;
+  } else {
+    return Stdlib_JsError.panic(message !== undefined ? message : "Result.getOrThrow called for Error value");
   }
-  throw {
-    RE_EXN_ID: "Not_found",
-    Error: new Error()
-  };
 }
 
 function mapOr(opt, $$default, f) {

lib/js/Stdlib_Option.js

@@ -1,6 +1,6 @@
 'use strict';
 
-let Stdlib_Error = require("./Stdlib_Error.js");
+let Stdlib_JsError = require("./Stdlib_JsError.js");
 let Primitive_option = require("./Primitive_option.js");
 
 function filter(opt, p) {
@@ -21,7 +21,7 @@ function getOrThrow(x, message) {
   if (x !== undefined) {
     return Primitive_option.valFromOption(x);
   } else {
-    return Stdlib_Error.panic(message !== undefined ? message : "Option.getOrThrow called for None value");
+    return Stdlib_JsError.panic(message !== undefined ? message : "Option.getOrThrow called for None value");
   }
 }
 

lib/js/Stdlib_Result.js

@@ -1,14 +1,13 @@
 'use strict';
 
+let Stdlib_JsError = require("./Stdlib_JsError.js");
 
-function getOrThrow(x) {
+function getOrThrow(x, message) {
   if (x.TAG === "Ok") {
     return x._0;
+  } else {
+    return Stdlib_JsError.panic(message !== undefined ? message : "Result.getOrThrow called for Error value");
   }
-  throw {
-    RE_EXN_ID: "Not_found",
-    Error: new Error()
-  };
 }
 
 function mapOr(opt, $$default, f) {

runtime/Stdlib_Option.res

@@ -39,7 +39,7 @@ let getOrThrow = (x, ~message=?) =>
   switch x {
   | Some(x) => x
   | None =>
-    Stdlib_Error.panic(
+    Stdlib_JsError.panic(
       switch message {
       | None => "Option.getOrThrow called for None value"
       | Some(message) => message

runtime/Stdlib_Option.resi

@@ -71,7 +71,7 @@ Option.forEach(None, x => Console.log(x)) // returns ()
 let forEach: (option<'a>, 'a => unit) => unit
 
 /**
-`getExn(opt, ~message=?)` returns `value` if `opt` is `Some(value)`, otherwise raises an exception with the message provided, or a generic message if no message was provided.
+`getExn(opt, ~message=?)` returns `value` if `opt` is `Some(value)`, otherwise throws an exception with the message provided, or a generic message if no message was provided.
 
 ```rescript
 Option.getExn(Some(3))->assertEqual(3)
@@ -82,20 +82,20 @@ switch Option.getExn(None) {
 }
 
 switch Option.getExn(None, ~message="was None!") {
-| exception _ => assert(true) // Raises an Error with the message "was None!"
+| exception _ => assert(true) // Throws a JsError with the message "was None!"
 | _ => assert(false)
 }
 ```
 
 ## Exceptions
 
-- Raises an error if `opt` is `None`
+- Throws an error if `opt` is `None`
 */
 @deprecated("Use `getOrThrow` instead")
 let getExn: (option<'a>, ~message: string=?) => 'a
 
 /**
-`getOrThrow(opt, ~message=?)` returns `value` if `opt` is `Some(value)`, otherwise raises an exception with the message provided, or a generic message if no message was provided.
+`getOrThrow(opt, ~message=?)` returns `value` if `opt` is `Some(value)`, otherwise throws an exception with the message provided, or a generic message if no message was provided.
 
 ```rescript
 Option.getOrThrow(Some(3))->assertEqual(3)
@@ -106,14 +106,14 @@ switch Option.getOrThrow(None) {
 }
 
 switch Option.getOrThrow(None, ~message="was None!") {
-| exception _ => assert(true) // Raises an Error with the message "was None!"
+| exception _ => assert(true) // Throws a JsError with the message "was None!"
 | _ => assert(false)
 }
 ```
 
 ## Exceptions
 
-- Raises an error if `opt` is `None`
+- Throws an error if `opt` is `None`
 */
 let getOrThrow: (option<'a>, ~message: string=?) => 'a
 

runtime/Stdlib_Result.res

@@ -23,10 +23,16 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
 type t<'res, 'err> = result<'res, 'err> = Ok('res) | Error('err)
 
-let getOrThrow = x =>
+let getOrThrow = (x, ~message=?) =>
   switch x {
   | Ok(x) => x
-  | Error(_) => throw(Not_found)
+  | Error(_) =>
+    Stdlib_JsError.panic(
+      switch message {
+      | None => "Result.getOrThrow called for Error value"
+      | Some(message) => message
+      },
+    )
   }
 
 let getExn = getOrThrow

runtime/Stdlib_Result.resi

@@ -48,33 +48,43 @@
 type t<'res, 'err> = result<'res, 'err> = Ok('res) | Error('err)
 
 /**
-  `getExn(res)`: when `res` is `Ok(n)`, returns `n` when `res` is `Error(m)`, raise an exception
+  `getExn(res, ~message=?)` returns `n` if `res` is `Ok(n)`, otherwise throws an exception with the message provided, or a generic message if no message was provided.
 
   ```res example
   Result.getExn(Result.Ok(42)) == 42
 
   switch Result.getExn(Error("Invalid data")) {
-  | exception Not_found => assert(true)
+  | exception _ => assert(true)
+  | _ => assert(false)
+  }
+
+  switch Result.getExn(Error("Invalid data"), ~message="was Error!") {
+  | exception _ => assert(true) // Throws a JsError with the message "was Error!"
   | _ => assert(false)
   }
   ```
 */
 @deprecated("Use 'getOrThrow' instead")
-let getExn: result<'a, 'b> => 'a
+let getExn: (result<'a, 'b>, ~message: string=?) => 'a
 
 /**
-  `getOrThrow(res)`: when `res` is `Ok(n)`, returns `n` when `res` is `Error(m)`, raise an exception
+  `getOrThrow(res, ~message=?)` returns `n` if `res` is `Ok(n)`, otherwise throws an exception with the message provided, or a generic message if no message was provided.
 
   ```res example
   Result.getOrThrow(Result.Ok(42)) == 42
 
   switch Result.getOrThrow(Error("Invalid data")) {
-  | exception Not_found => assert(true)
+  | exception _ => assert(true)
+  | _ => assert(false)
+  }
+
+  switch Result.getOrThrow(Error("Invalid data"), ~message="was Error!") {
+  | exception _ => assert(true) // Throws a JsError with the message "was Error!"
   | _ => assert(false)
   }
   ```
 */
-let getOrThrow: result<'a, 'b> => 'a
+let getOrThrow: (result<'a, 'b>, ~message: string=?) => 'a
 
 /**
 `mapOr(res, default, f)`: When res is `Ok(n)`, returns `f(n)`, otherwise `default`.