Optimize function

fsprojects · Jun 3, 2020 · f53c9e1 · f53c9e1
1 parent 0543964
commit f53c9e1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/FSharpx.Extras/ComputationExpressions/Option.fs b/src/FSharpx.Extras/ComputationExpressions/Option.fs
@@ -135,9 +135,9 @@ module Option =
     /// Maps Unchecked object when null to None, otherwise Some value.
     /// It's useful when getting data from external sources, pe.
     let inline ofUnchecked (x: 'a when 'a : not struct) =
-        match box x = null with
-        | true -> None
-        | false -> Some x
+        match box x with
+        | null -> None
+        | _ -> Some x
 
     /// Gets the value associated with the option or the supplied default value.
     let inline getOrElse v =