File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -14,11 +14,11 @@ module Get =
1414
1515 let messagesData =
1616 messages
17- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonData()))
17+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonData()))
1818
1919 let messagesDataAs < 'data > =
2020 messages
21- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonDataAs< 'data>()))
21+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonDataAs< 'data>()))
2222
2323 let status = curriedMap ( fun page -> page.Status)
2424
@@ -52,11 +52,11 @@ module GetAll =
5252
5353 let messagesData =
5454 messages
55- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonData()))
55+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonData()))
5656
5757 let messagesDataAs < 'data > =
5858 messages
59- >> AsyncResult.bind ( List.traverseAsyncResultM ( fun msg -> msg.GetJsonDataAs< 'data>()))
59+ >> AsyncResult.bind ( AsyncResult.mapM ( fun msg -> msg.GetJsonDataAs< 'data>()))
6060
6161 let direction = curriedMap ( fun page -> page.Direction)
6262
Original file line number Diff line number Diff line change 1313
1414 <ItemGroup >
1515 <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" />
1717 <PackageReference Include =" FSharp.SystemTextJson" Version =" 0.16.6" />
1818 <PackageReference Include =" Npgsql" Version =" 5.0.4" />
1919 <PackageReference Include =" SqlStreamStore" Version =" 1.2.0-beta.8" />
You can’t perform that action at this time.
0 commit comments