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

Author: mediremi

lib/es6/Stdlib_Result.js

@@ -1,14 +1,13 @@
 
 
+import * as Stdlib_Error from "./Stdlib_Error.js";
 
-function getOrThrow(x) {
+function getOrThrow(x, message) {
   if (x.TAG === "Ok") {
     return x._0;
+  } else {
+    return Stdlib_Error.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_Result.js

@@ -1,14 +1,13 @@
 'use strict';
 
+let Stdlib_Error = require("./Stdlib_Error.js");
 
-function getOrThrow(x) {
+function getOrThrow(x, message) {
   if (x.TAG === "Ok") {
     return x._0;
+  } else {
+    return Stdlib_Error.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_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_Error.panic(
+      switch message {
+      | None => "Result.getOrThrow called for Error value"
+      | Some(message) => message
+      },
+    )
   }
 
 let getExn = getOrThrow

runtime/Stdlib_Result.resi

@@ -60,7 +60,7 @@ type t<'res, 'err> = result<'res, 'err> = Ok('res) | Error('err)
   ```
 */
 @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
@@ -74,7 +74,7 @@ let getExn: result<'a, 'b> => 'a
   }
   ```
 */
-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`.