Skip to content

Commit 14faf0b

Browse files
committed
- duplication after merge
1 parent 72bcb90 commit 14faf0b

File tree

1 file changed

+0
-37
lines changed

1 file changed

+0
-37
lines changed

src/FSharpPlus/Extensions/Async.fs

-37
Original file line numberDiff line numberDiff line change
@@ -19,23 +19,6 @@ module Async =
1919
let! b = y
2020
return f a b }
2121

22-
/// <summary>Creates an async workflow from two workflows 'x' and 'y', mapping its results with 'f'.</summary>
23-
/// <remarks>Similar to map2 but workflows are run in parallel.</remarks>
24-
/// <param name="f">The mapping function.</param>
25-
/// <param name="x">First async workflow.</param>
26-
/// <param name="y">Second async workflow.</param>
27-
#if FABLE_COMPILER
28-
let pmap2 f x y = map2 f x y
29-
#else
30-
let pmap2 f x y = async {
31-
let! ct = Async.CancellationToken
32-
let x = Async.StartImmediateAsTask (x, ct)
33-
let y = Async.StartImmediateAsTask (y, ct)
34-
let! x' = Async.AwaitTask x
35-
let! y' = Async.AwaitTask y
36-
return f x' y' }
37-
#endif
38-
3922
/// <summary>Creates an async workflow from three workflows 'x', 'y' and 'z', mapping its results with 'f'.</summary>
4023
/// <remarks>Workflows are run in sequence. For parallel use pmap3</remarks>
4124
/// <param name="f">The mapping function.</param>
@@ -48,26 +31,6 @@ module Async =
4831
let! c = z
4932
return f a b c }
5033

51-
/// <summary>Creates an async workflow from three workflows 'x', 'y' and 'z', mapping its results with 'f'.</summary>
52-
/// <remarks>Similar to map3 but workflows are run in parallel.</remarks>
53-
/// <param name="f">The mapping function.</param>
54-
/// <param name="x">First async workflow.</param>
55-
/// <param name="y">Second async workflow.</param>
56-
/// <param name="z">third async workflow.</param>
57-
#if FABLE_COMPILER
58-
let pmap3 f x y z = map3 f x y z
59-
#else
60-
let pmap3 f x y z = async {
61-
let! ct = Async.CancellationToken
62-
let x = Async.StartImmediateAsTask (x, ct)
63-
let y = Async.StartImmediateAsTask (y, ct)
64-
let z = Async.StartImmediateAsTask (z, ct)
65-
let! x' = Async.AwaitTask x
66-
let! y' = Async.AwaitTask y
67-
let! z' = Async.AwaitTask z
68-
return f x' y' z' }
69-
#endif
70-
7134
/// <summary>Creates an async workflow from two workflows 'x' and 'y', mapping its results with 'f'.</summary>
7235
/// <remarks>Similar to map2 but workflows are run in parallel.</remarks>
7336
/// <param name="f">The mapping function.</param>

0 commit comments

Comments
 (0)