Avoid sync optimization

Author: gusty

src/FSharpPlus/Extensions/Task.fs

@@ -52,14 +52,14 @@ module Task =
     /// <param name="source">The source task workflow.</param>
     /// <returns>The resulting task workflow.</returns>
     let map (mapper: 'T -> 'U) (source: Task<'T>) : Task<'U> =
-        let source = nullArgCheck (nameof source) source
-
-        if source.IsCompleted then
-            match source with
-            | Succeeded r -> try result (mapper r) with e -> raise e
-            | Faulted exn -> raise exn
-            | Canceled    -> canceled
-        else
+        // let source = nullArgCheck (nameof source) source
+        // 
+        // if source.IsCompleted then
+        //     match source with
+        //     | Succeeded r -> try result (mapper r) with e -> raise e
+        //     | Faulted exn -> raise exn
+        //     | Canceled    -> canceled
+        // else
             let tcs = TaskCompletionSource<'U> ()
             let k = function
                 | Succeeded r -> try tcs.SetResult (mapper r) with e -> tcs.SetException e

src/FSharpPlus/Extensions/ValueTask.fs

@@ -217,7 +217,7 @@ module ValueTask =
 
 
     /// <summary>Creates a ValueTask workflow from 'source' workflow, mapping and flattening its result with 'f'.</summary>
-    let bind (f: 'T -> ValueTask<'U>) (source: ValueTask<'T>) : ValueTask<'U> =
+    let bind (f: 'T -> ValueTask<'U>) (source: ValueTask<'T>) : ValueTask<'U> = source |> Unchecked.nonNull |> map f |> join
         let tcs = TaskCompletionSource<'U> ()
         continueTask tcs source (fun x ->
             try