File tree 3 files changed +4
-4
lines changed
3 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -127,7 +127,7 @@ let arr2 = (+) <!> [|1;2;3|] <.> [|10;20;30|]
127
127
128
128
// Validations
129
129
130
- let validated = app2 {
130
+ let validated = applicative2' {
131
131
let! x = async { return Ok 1 }
132
132
and! y = async { return Ok 2 }
133
133
and! z = async { return Error [ " Error" ] }
Original file line number Diff line number Diff line change @@ -246,9 +246,9 @@ module GenericBuilders =
246
246
let applicative3 < '``Applicative1 < Applicative2 < Applicative3 < 'T >>> ``> = ApplicativeBuilder3< '`` Applicative1<Applicative2<Applicative3<'T>>> `` > ()
247
247
248
248
/// Creates a (non sequential) applicative computation expression.
249
- let app < '``ZipApplicative < 'T > ``> = ZipApplicativeBuilder< '`` ZipApplicative<'T> `` > ()
249
+ let applicative ' <'``ZipApplicative<'T>``> = ZipApplicativeBuilder< '`` ZipApplicative<'T> `` > ()
250
250
251
251
/// Creates a (non sequential) applicative computation expression which compose effects of two Applicatives.
252
- let app2 < '``ZipApplicative1 < ZipApplicative2 < 'T >> ``> = ZipApplicativeBuilder2< '`` ZipApplicative1<ZipApplicative2<'T>> `` > ()
252
+ let applicative2 ' <'``ZipApplicative1<ZipApplicative2<'T>>``> = ZipApplicativeBuilder2< '`` ZipApplicative1<ZipApplicative2<'T>> `` > ()
253
253
254
254
#endif
Original file line number Diff line number Diff line change @@ -20,7 +20,7 @@ module Applicatives =
20
20
21
21
[<Test>]
22
22
let zipApply () =
23
- let arr1 = app2 {
23
+ let arr1 = applicative2' {
24
24
let! x1 = async { return [| 1 ; 2 ; 3 |] }
25
25
and! x2 = async { return [| 10 ; 20 ; 30 |] }
26
26
and! x3 = async { return [| 100 ; 200 ; 300 |] }
You can’t perform that action at this time.
0 commit comments