+ ValueOption.ofOption

fsprojects · Oct 6, 2023 · 6aadd64 · 6aadd64
1 parent c1ebe74
commit 6aadd64
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/FSharpPlus/Extensions/ValueOption.fs b/src/FSharpPlus/Extensions/ValueOption.fs
@@ -71,7 +71,14 @@ module ValueOption =
         | true,  x -> ValueSome x
         | false, _ -> ValueNone
 
-    let toOption x =
-        match x with
+    /// <summary>Converts a ValueOption to an Option.</summary>
+    let toOption (source: ValueOption<'T>) =
+        match source with
         | ValueSome x -> Some x
         | ValueNone   -> None
+
+    /// <summary>Converts an Option to a ValueOption.</summary>
+    let ofOption (source: option<'T>) =
+        match x with
+        | Some x -> ValueSome x
+        | None   -> ValueNone