diff --git a/src/FSharpPlus/Extensions/Async.fs b/src/FSharpPlus/Extensions/Async.fs index 4ef7d154e..21e778bb8 100644 --- a/src/FSharpPlus/Extensions/Async.fs +++ b/src/FSharpPlus/Extensions/Async.fs @@ -19,23 +19,6 @@ module Async = let! b = y return f a b } - /// Creates an async workflow from two workflows 'x' and 'y', mapping its results with 'f'. - /// Similar to map2 but workflows are run in parallel. - /// The mapping function. - /// First async workflow. - /// Second async workflow. - #if FABLE_COMPILER - let pmap2 f x y = map2 f x y - #else - let pmap2 f x y = async { - let! ct = Async.CancellationToken - let x = Async.StartImmediateAsTask (x, ct) - let y = Async.StartImmediateAsTask (y, ct) - let! x' = Async.AwaitTask x - let! y' = Async.AwaitTask y - return f x' y' } - #endif - /// Creates an async workflow from three workflows 'x', 'y' and 'z', mapping its results with 'f'. /// Workflows are run in sequence. For parallel use pmap3 /// The mapping function. @@ -48,26 +31,6 @@ module Async = let! c = z return f a b c } - /// Creates an async workflow from three workflows 'x', 'y' and 'z', mapping its results with 'f'. - /// Similar to map3 but workflows are run in parallel. - /// The mapping function. - /// First async workflow. - /// Second async workflow. - /// third async workflow. - #if FABLE_COMPILER - let pmap3 f x y z = map3 f x y z - #else - let pmap3 f x y z = async { - let! ct = Async.CancellationToken - let x = Async.StartImmediateAsTask (x, ct) - let y = Async.StartImmediateAsTask (y, ct) - let z = Async.StartImmediateAsTask (z, ct) - let! x' = Async.AwaitTask x - let! y' = Async.AwaitTask y - let! z' = Async.AwaitTask z - return f x' y' z' } - #endif - /// Creates an async workflow from two workflows 'x' and 'y', mapping its results with 'f'. /// Similar to map2 but workflows are run in parallel. /// The mapping function.