From 21f4a0be6f211dec21bf4a5a1ef2be2234169c89 Mon Sep 17 00:00:00 2001
From: gusty <1261319+gusty@users.noreply.github.com>
Date: Sat, 14 Oct 2023 08:02:01 +0200
Subject: [PATCH] Add Task.result and same for ValueTask

---
 src/FSharpPlus/Extensions/Task.fs      | 2 +-
 src/FSharpPlus/Extensions/ValueTask.fs | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/FSharpPlus/Extensions/Task.fs b/src/FSharpPlus/Extensions/Task.fs
index 8d455af85..b10569567 100644
--- 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
index 48030d193..16bd1f9a6 100644
--- 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
\ No newline at end of file