Add TaskResult bindRequireSome and bindRequireNone

Author: sheridanchris

src/FsToolkit.ErrorHandling.TaskResult/TaskResult.fs

@@ -237,3 +237,13 @@ module TaskResult =
     let inline ofResult (x: Result<_, _>) =
         x
         |> Task.singleton
+
+    /// Bind the TaskResult and requireSome on the inner option value.
+    let inline bindRequireSome error x =
+        x
+        |> bind (Result.requireSome error >> Task.singleton)
+
+    /// Bind the TaskResult and requireNone on the inner option value.
+    let inline bindRequireNone error x =
+        x
+        |> bind (Result.requireNone error >> Task.singleton)

tests/FsToolkit.ErrorHandling.TaskResult.Tests/TaskResult.fs

@@ -823,3 +823,19 @@ let TaskResultOperatorTests =
             )
             |> Expect.hasTaskOkValueSync (PostId newPostId)
     ]
+
+[<Tests>]
+let TaskResultBindRequireTests =
+    testList "TeskResult Bind + Require Tests" [
+        testCase "bindRequireNone"
+        <| fun _ ->
+            let user = Some "john_doe" |> Ok |> Task.singleton
+            let error = user |> TaskResult.bindRequireNone "User exists"
+            error |> Expect.hasTaskErrorValueSync "User exists"
+
+        testCase "bindRequireSome"
+        <| fun _ ->
+            let user = Some "john_doe" |> Ok |> Task.singleton
+            let error = user |> TaskResult.bindRequireSome "User doesn't exist"
+            error |> Expect.hasTaskOkValueSync "john_doe"
+    ]