Fix nullable to opt conversion.

Author: cristianoc

compiler/ml/translcore.ml

@@ -393,7 +393,7 @@ let primitives_table =
       ("#typeof", Ptypeof);
       ("#is_nullable", Pisnullable);
       ("#null_to_opt", Pnullable_to_opt);
-      ("#nullable_to_opt", Pnull_to_opt);
+      ("#nullable_to_opt", Pnullable_to_opt);
       ("#undefined_to_opt", Pundefined_to_opt);
       ("#makemutablelist", Pmakelist Mutable);
       ("#import", Pimport);

lib/es6/Nullable.js

@@ -11,23 +11,23 @@ function fromOption(option) {
 }
 
 function equal(a, b, eq) {
-  return Option.equal(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), eq);
+  return Option.equal((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), eq);
 }
 
 function compare(a, b, cmp) {
-  return Option.compare(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), cmp);
+  return Option.compare((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), cmp);
 }
 
 function getOr(value, $$default) {
-  if (value !== null) {
-    return value;
-  } else {
+  if (value == null) {
     return $$default;
+  } else {
+    return value;
   }
 }
 
 function getExn(value) {
-  if (value !== null) {
+  if (!(value == null)) {
     return value;
   }
   throw {
@@ -38,33 +38,33 @@ function getExn(value) {
 }
 
 function forEach(value, f) {
-  if (value !== null) {
+  if (!(value == null)) {
     return f(value);
   }
 
 }
 
 function map(value, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return value;
+  } else {
+    return f(value);
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return $$default;
+  } else {
+    return f(value);
   }
 }
 
 function flatMap(value, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return value;
+  } else {
+    return f(value);
   }
 }
 

lib/js/Nullable.js

@@ -11,23 +11,23 @@ function fromOption(option) {
 }
 
 function equal(a, b, eq) {
-  return Option.equal(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), eq);
+  return Option.equal((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), eq);
 }
 
 function compare(a, b, cmp) {
-  return Option.compare(a === null ? undefined : Primitive_option.some(a), b === null ? undefined : Primitive_option.some(b), cmp);
+  return Option.compare((a == null) ? undefined : Primitive_option.some(a), (b == null) ? undefined : Primitive_option.some(b), cmp);
 }
 
 function getOr(value, $$default) {
-  if (value !== null) {
-    return value;
-  } else {
+  if (value == null) {
     return $$default;
+  } else {
+    return value;
   }
 }
 
 function getExn(value) {
-  if (value !== null) {
+  if (!(value == null)) {
     return value;
   }
   throw {
@@ -38,33 +38,33 @@ function getExn(value) {
 }
 
 function forEach(value, f) {
-  if (value !== null) {
+  if (!(value == null)) {
     return f(value);
   }
 
 }
 
 function map(value, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return value;
+  } else {
+    return f(value);
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return $$default;
+  } else {
+    return f(value);
   }
 }
 
 function flatMap(value, f) {
-  if (value !== null) {
-    return f(value);
-  } else {
+  if (value == null) {
     return value;
+  } else {
+    return f(value);
   }
 }