File tree 2 files changed +5
-5
lines changed
2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -14,11 +14,11 @@ module Get =
14
14
15
15
let messagesData =
16
16
messages
17
- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonData()))
17
+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonData()))
18
18
19
19
let messagesDataAs < 'data > =
20
20
messages
21
- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonDataAs< 'data>()))
21
+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonDataAs< 'data>()))
22
22
23
23
let status = curriedMap ( fun page -> page.Status)
24
24
@@ -52,11 +52,11 @@ module GetAll =
52
52
53
53
let messagesData =
54
54
messages
55
- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonData()))
55
+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonData()))
56
56
57
57
let messagesDataAs < 'data > =
58
58
messages
59
- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonDataAs< 'data>()))
59
+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonDataAs< 'data>()))
60
60
61
61
let direction = curriedMap ( fun page -> page.Direction)
62
62
Original file line number Diff line number Diff line change 13
13
14
14
<ItemGroup >
15
15
<PackageReference Update =" FSharp.Core" Version =" 5.0.0" />
16
- <PackageReference Include =" FSharp.Prelude" Version =" 3 .0.0" />
16
+ <PackageReference Include =" FSharp.Prelude" Version =" 4 .0.0" />
17
17
<PackageReference Include =" FSharp.SystemTextJson" Version =" 0.16.6" />
18
18
<PackageReference Include =" Npgsql" Version =" 5.0.4" />
19
19
<PackageReference Include =" SqlStreamStore" Version =" 1.2.0-beta.8" />
You can’t perform that action at this time.
0 commit comments