Fix nullable to opt conversion.

CHANGELOG.md

@@ -15,6 +15,7 @@
 
 #### :bug: Bug fix
 - Fix bug where a ref assignment is moved ouside a conditional. https://github.com/rescript-lang/rescript/pull/7176
+- Fix nullable to opt conversion. https://github.com/rescript-lang/rescript/pull/7193
 
 #### :house: Internal
 - Use latest compiler for tests. https://github.com/rescript-lang/rescript/pull/7186

compiler/ml/translcore.ml

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

lib/es6/Null.js

@@ -12,23 +12,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 $$default;
-  } else {
+  if (value !== null) {
     return value;
+  } else {
+    return $$default;
   }
 }
 
 function getExn(value) {
-  if (!(value == null)) {
+  if (value !== null) {
     return value;
   }
   throw {
@@ -39,33 +39,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 null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return $$default;
   }
 }
 
 function flatMap(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 

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/Null.js

@@ -12,23 +12,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 $$default;
-  } else {
+  if (value !== null) {
     return value;
+  } else {
+    return $$default;
   }
 }
 
 function getExn(value) {
-  if (!(value == null)) {
+  if (value !== null) {
     return value;
   }
   throw {
@@ -39,33 +39,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 null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 
 function mapOr(value, $$default, f) {
-  if (value == null) {
-    return $$default;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return $$default;
   }
 }
 
 function flatMap(value, f) {
-  if (value == null) {
-    return null;
-  } else {
+  if (value !== null) {
     return f(value);
+  } else {
+    return null;
   }
 }
 

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);
   }
 }