Skip to content

Upgrade to Prelude 6 #20

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 1 commit into from
Closed

Upgrade to Prelude 6 #20

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/SqlStreamStore.FSharp.Postgres/Create.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
namespace SqlStreamStore.FSharp.Postgres

open Prelude.ErrorHandling
open Prelude
open SqlStreamStore

type PostgresConfig =
Expand Down
11 changes: 6 additions & 5 deletions src/SqlStreamStore.FSharp.Postgres/SqlStreamStore.FSharp.Postgres.fsproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,17 +12,18 @@
</PropertyGroup>

<ItemGroup>
<Compile Include="Create.fs"/>
<Compile Include="Create.fs" />
</ItemGroup>

<ItemGroup>
<PackageReference Update="FSharp.Core" Version="6.0.*"/>
<PackageReference Include="FSharp.Core" Version="6.0.*"/>
<PackageReference Include="SqlStreamStore.Postgres" Version="1.2.0-beta.8"/>
<PackageReference Update="FSharp.Core" Version="6.0.*" />
<PackageReference Include="FSharp.Core" Version="6.0.*" />
<PackageReference Include="FSharp.Prelude" Version="6.0.0-beta-3" />
<PackageReference Include="SqlStreamStore.Postgres" Version="1.2.0-beta.8" />
</ItemGroup>

<ItemGroup>
<ProjectReference Include="..\SqlStreamStore.FSharp\SqlStreamStore.FSharp.fsproj"/>
<ProjectReference Include="..\SqlStreamStore.FSharp\SqlStreamStore.FSharp.fsproj" />
</ItemGroup>

</Project>
2 changes: 1 addition & 1 deletion src/SqlStreamStore.FSharp/Append.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
namespace SqlStreamStore.FSharp

open Prelude.ErrorHandling
open Prelude
open System.Threading
open SqlStreamStore

Expand Down
2 changes: 1 addition & 1 deletion src/SqlStreamStore.FSharp/Extensions.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
namespace SqlStreamStore.FSharp

open System.Threading
open Prelude.ErrorHandling
open Prelude
open SqlStreamStore
open SqlStreamStore.Streams
open System
Expand Down
10 changes: 5 additions & 5 deletions src/SqlStreamStore.FSharp/Get.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
namespace SqlStreamStore.FSharp

open Prelude.ErrorHandling
open Prelude
open SqlStreamStore.Streams

module Get =
Expand All @@ -14,11 +14,11 @@ module Get =

let messagesData =
messages
>> AsyncResult.bind (AsyncResult.mapM (fun msg -> msg.GetJsonData()))
>> AsyncResult.bind (AsyncResult.traverse (fun msg -> msg.GetJsonData()))

let messagesDataAs<'data> =
messages
>> AsyncResult.bind (AsyncResult.mapM (fun msg -> msg.GetJsonDataAs<'data>()))
>> AsyncResult.bind (AsyncResult.traverse (fun msg -> msg.GetJsonDataAs<'data>()))

let status = curriedMap (fun page -> page.Status)

Expand Down Expand Up @@ -52,11 +52,11 @@ module GetAll =

let messagesData =
messages
>> AsyncResult.bind (AsyncResult.mapM (fun msg -> msg.GetJsonData()))
>> AsyncResult.bind (AsyncResult.traverse (fun msg -> msg.GetJsonData()))

let messagesDataAs<'data> =
messages
>> AsyncResult.bind (AsyncResult.mapM (fun msg -> msg.GetJsonDataAs<'data>()))
>> AsyncResult.bind (AsyncResult.traverse (fun msg -> msg.GetJsonDataAs<'data>()))

let direction = curriedMap (fun page -> page.Direction)

Expand Down
2 changes: 1 addition & 1 deletion src/SqlStreamStore.FSharp/Read.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
namespace SqlStreamStore.FSharp

open Prelude.ErrorHandling
open Prelude
open System.Threading
open SqlStreamStore
open SqlStreamStore.Streams
Expand Down
26 changes: 13 additions & 13 deletions src/SqlStreamStore.FSharp/SqlStreamStore.FSharp.fsproj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,22 +14,22 @@
</PropertyGroup>

<ItemGroup>
<Compile Include="Extensions.fs"/>
<Compile Include="NewStreamMessage.fs"/>
<Compile Include="Connect.fs"/>
<Compile Include="Read.fs"/>
<Compile Include="Get.fs"/>
<Compile Include="Subscribe.fs"/>
<Compile Include="Append.fs"/>
<Compile Include="Create.fs"/>
<Compile Include="Extensions.fs" />
<Compile Include="NewStreamMessage.fs" />
<Compile Include="Connect.fs" />
<Compile Include="Read.fs" />
<Compile Include="Get.fs" />
<Compile Include="Subscribe.fs" />
<Compile Include="Append.fs" />
<Compile Include="Create.fs" />
</ItemGroup>

<ItemGroup>
<PackageReference Update="FSharp.Core" Version="6.0.*"/>
<PackageReference Include="FSharp.Core" Version="6.0.*"/>
<PackageReference Include="FSharp.Prelude" Version="5.0.*"/>
<PackageReference Include="Npgsql" Version="5.0.*"/>
<PackageReference Include="SqlStreamStore" Version="1.2.0-beta.8"/>
<PackageReference Update="FSharp.Core" Version="6.0.*" />
<PackageReference Include="FSharp.Core" Version="6.0.*" />
<PackageReference Include="FSharp.Prelude" Version="6.0.0-beta-3" />
<PackageReference Include="Npgsql" Version="5.0.*" />
<PackageReference Include="SqlStreamStore" Version="1.2.0-beta.8" />
</ItemGroup>

</Project>
2 changes: 1 addition & 1 deletion src/SqlStreamStore.FSharp/Subscribe.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
namespace SqlStreamStore.FSharp

open Prelude.ErrorHandling
open Prelude
open SqlStreamStore
open SqlStreamStore.Streams
open SqlStreamStore.Subscriptions
Expand Down