Fix Error.fromException

Author: cknitt

lib/es6/Stdlib_Error.js

@@ -1,13 +1,13 @@
 
 
+import * as Stdlib_Exn from "./Stdlib_Exn.js";
 import * as Primitive_option from "./Primitive_option.js";
 
 function fromException(exn) {
-  if (exn.TAG === "Ok") {
-    return;
-  } else {
-    return Primitive_option.some(exn._0);
+  if (exn.RE_EXN_ID === Stdlib_Exn.$$Error) {
+    return Primitive_option.some(exn._1);
   }
+  
 }
 
 let $$EvalError = {};

lib/js/Stdlib_Error.js

@@ -1,13 +1,13 @@
 'use strict';
 
+let Stdlib_Exn = require("./Stdlib_Exn.js");
 let Primitive_option = require("./Primitive_option.js");
 
 function fromException(exn) {
-  if (exn.TAG === "Ok") {
-    return;
-  } else {
-    return Primitive_option.some(exn._0);
+  if (exn.RE_EXN_ID === Stdlib_Exn.$$Error) {
+    return Primitive_option.some(exn._1);
   }
+  
 }
 
 let $$EvalError = {};

runtime/Stdlib_Error.res

@@ -2,7 +2,7 @@ type t = Stdlib_Exn.t
 
 let fromException: exn => option<t> = exn =>
   switch Obj.magic(exn) {
-  | Error(t) => Some(t)
+  | Stdlib_Exn.Error(t) => Some(t)
   | _ => None
   }
 external toException: t => exn = "%identity"