+ Task.ofValue

fsprojects · Sep 19, 2023 · bcf9ed8 · bcf9ed8
1 parent 06f04c8
commit bcf9ed8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/FSharpPlus/Extensions/Task.fs b/src/FSharpPlus/Extensions/Task.fs
@@ -285,9 +285,12 @@ module Task =
             (fun () -> body disp)
             (fun () -> if not (isNull (box disp)) then disp.Dispose ())
 
+    /// Creates a Task from a value
+    let ofValue value = Task.FromResult value
+
     /// Raises an exception in the Task
     let raise (e: exn) =
         let tcs = TaskCompletionSource<'U> ()
         tcs.SetException e
         tcs.Task
-#endif
+#endif