File tree Expand file tree Collapse file tree 3 files changed +4
-4
lines changed
Expand file tree Collapse file tree 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|]
127127
128128// Validations
129129
130- let validated = app2 {
130+ let validated = applicative2' {
131131 let! x = async { return Ok 1 }
132132 and! y = async { return Ok 2 }
133133 and! z = async { return Error [ " Error" ] }
Original file line number Diff line number Diff line change @@ -246,9 +246,9 @@ module GenericBuilders =
246246 let applicative3 < '``Applicative1 < Applicative2 < Applicative3 < 'T >>> ``> = ApplicativeBuilder3< '`` Applicative1<Applicative2<Applicative3<'T>>> `` > ()
247247
248248 /// Creates a (non sequential) applicative computation expression.
249- let app < '``ZipApplicative < 'T > ``> = ZipApplicativeBuilder< '`` ZipApplicative<'T> `` > ()
249+ let applicative ' <'``ZipApplicative<'T>``> = ZipApplicativeBuilder< '`` ZipApplicative<'T> `` > ()
250250
251251 /// 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>> `` > ()
253253
254254#endif
Original file line number Diff line number Diff line change @@ -20,7 +20,7 @@ module Applicatives =
2020
2121 [<Test>]
2222 let zipApply () =
23- let arr1 = app2 {
23+ let arr1 = applicative2' {
2424 let! x1 = async { return [| 1 ; 2 ; 3 |] }
2525 and! x2 = async { return [| 10 ; 20 ; 30 |] }
2626 and! x3 = async { return [| 100 ; 200 ; 300 |] }
You can’t perform that action at this time.
0 commit comments