+ (Value)Task.ofResult

Author: gusty

src/FSharpPlus/Extensions/Task.fs

@@ -536,8 +536,13 @@ module Task =
     /// <returns>The resulting Task.</returns>
     let ofResult (source: Result<'T, exn>) : Task<'T> =
         match source with
+        #if !NET45
+        | Ok x -> Task.FromResult x
+        | Error exn -> Task.FromException<'T> exn
+        #else
         | Ok x -> result x
         | Error exn -> raise exn
+        #endif
 
 
 /// Workaround to fix signatures without breaking binary compatibility.

src/FSharpPlus/Extensions/ValueTask.fs

@@ -428,7 +428,12 @@ module ValueTask =
     /// <returns>The resulting Task.</returns>
     let ofResult (source: Result<'T, exn>) : ValueTask<'T> =
         match source with
+        #if NET5_0_OR_GREATER
+        | Ok x -> ValueTask.FromResult x
+        | Error exn -> ValueTask.FromException<'T> exn
+        #else
         | Ok x -> result x
         | Error exn -> raise exn
+        #endif
 
 #endif