Add Task.result and same for ValueTask

fsprojects · Oct 14, 2023 · 21f4a0b · 21f4a0b
1 parent d35fb08
commit 21f4a0b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/FSharpPlus/Extensions/Task.fs b/src/FSharpPlus/Extensions/Task.fs
@@ -286,7 +286,7 @@ module Task =
             (fun () -> if not (isNull (box disp)) then disp.Dispose ())
 
     /// Creates a Task from a value
-    let ofValue value = Task.FromResult value
+    let result value = Task.FromResult value
 
     /// Raises an exception in the Task
     let raise (e: exn) =

diff --git a/src/FSharpPlus/Extensions/ValueTask.fs b/src/FSharpPlus/Extensions/ValueTask.fs
@@ -1,6 +1,6 @@
 namespace FSharpPlus
 
-#if NETSTANDARD2_1 && !FABLE_COMPILER
+#if NETSTANDARD2_1_OR_GREATER && !FABLE_COMPILER
 
 /// Additional operations on ValueTask<'T>
 [<RequireQualifiedAccess>]
@@ -109,9 +109,14 @@ module ValueTask =
             Unchecked.defaultof<_>
         else
             new ValueTask (source.AsTask ())
-        
+
 
     /// Raises an exception in the ValueTask
     let raise (``exception``: exn) = ValueTask<'TResult> (Task.FromException<'TResult> ``exception``)
 
+
+    #if NET5_0_OR_GREATER
+    /// Creates a ValueTask from a value
+    let result value = ValueTask.FromResult value
+    #endif
 #endif