diff --git a/build.cmd b/build.cmd old mode 100644 new mode 100755 diff --git a/build/tools/nuget/nuget.exe b/build/tools/nuget/nuget.exe old mode 100644 new mode 100755 diff --git a/src/Eventful.CsTests/Eventful.CsTests.csproj b/src/Eventful.CsTests/Eventful.CsTests.csproj index 1e53980..f0ce1a1 100644 --- a/src/Eventful.CsTests/Eventful.CsTests.csproj +++ b/src/Eventful.CsTests/Eventful.CsTests.csproj @@ -36,18 +36,29 @@ ..\packages\EventStore.Client.3.0.1\lib\net40\EventStore.ClientAPI.dll - - - False - ..\packages\FSharpx.Collections.1.9.4\lib\net35\FSharpx.Collections.dll + + ..\packages\FSharp.Control.AsyncSeq.2.0.1\lib\net45\FSharp.Control.AsyncSeq.dll + True - - False - ..\packages\FSharpx.Core.1.8.41\lib\40\FSharpx.Core.dll + + ..\packages\FSharp.Core.3.1.2.1\lib\net40\FSharp.Core.dll + True + + + ..\packages\FSharpx.Async.1.12.0\lib\net40\FSharpx.Async.dll + True + + + ..\packages\FSharpx.Collections.1.10.1\lib\net40\FSharpx.Collections.dll + True + + + ..\packages\FSharpx.Extras.1.10.2\lib\40\FSharpx.Extras.dll + True - + False - ..\packages\Metrics.NET.0.2.6\lib\net45\Metrics.dll + ..\..\..\packages\Metrics.NET.0.3.2-pre\lib\net45\Metrics.dll ..\packages\Serilog.1.5.7\lib\net45\Serilog.dll diff --git a/src/Eventful.CsTests/app.config b/src/Eventful.CsTests/app.config index 7523206..3f8fb78 100644 --- a/src/Eventful.CsTests/app.config +++ b/src/Eventful.CsTests/app.config @@ -51,7 +51,7 @@ - + diff --git a/src/Eventful.CsTests/packages.config b/src/Eventful.CsTests/packages.config index fecca31..1fd6a60 100644 --- a/src/Eventful.CsTests/packages.config +++ b/src/Eventful.CsTests/packages.config @@ -1,9 +1,11 @@  - - - + + + + + \ No newline at end of file diff --git a/src/Eventful.EventStore/Client.fs b/src/Eventful.EventStore/Client.fs index e991db4..f1897fc 100644 --- a/src/Eventful.EventStore/Client.fs +++ b/src/Eventful.EventStore/Client.fs @@ -4,6 +4,7 @@ open FSharp.Control open EventStore.ClientAPI open System open FSharpx +open FSharpx.Functional open Eventful /// simple F# wrapper around EventStore functions @@ -86,7 +87,7 @@ type EventStoreClient (connection : IEventStoreConnection) = member x.getNextPosition () = async { let position = Position.End - let! (finalSlice : AllEventsSlice) = connection.ReadAllEventsBackwardAsync(position, 1, false, null) + let! (finalSlice : AllEventsSlice) = connection.ReadAllEventsBackwardAsync(position, 1, false, null) |> Async.AwaitTask let nextPosition = finalSlice.NextPosition return nextPosition } diff --git a/src/Eventful.EventStore/EventStoreSystem.fs b/src/Eventful.EventStore/EventStoreSystem.fs index ae5593b..2cd1cfa 100644 --- a/src/Eventful.EventStore/EventStoreSystem.fs +++ b/src/Eventful.EventStore/EventStoreSystem.fs @@ -6,6 +6,7 @@ open EventStore.ClientAPI open System open FSharpx open FSharpx.Collections +open FSharpx.Functional type EventStoreSystem<'TCommandContext, 'TEventContext,'TMetadata, 'TBaseEvent when 'TMetadata : equality and 'TEventContext :> System.IDisposable> ( diff --git a/src/Eventful.EventStore/EventStreamInterpreter.fs b/src/Eventful.EventStore/EventStreamInterpreter.fs index ec03e7c..10c3c86 100644 --- a/src/Eventful.EventStore/EventStreamInterpreter.fs +++ b/src/Eventful.EventStore/EventStreamInterpreter.fs @@ -34,7 +34,7 @@ module EventStreamInterpreter = (readSnapshot : string -> Map -> Async) (startContext : ContextStartData) (prog : FreeEventStream) : Async<'A> = - let rec loop prog (values : Map) (writes : Vector) : Async<'A> = + let rec loop prog (values : Map) (writes : PersistentVector) : Async<'A> = match prog with | FreeEventStream (GetEventStoreTypeToClassMap ((), f)) -> let next = f eventStoreTypeToClassMap @@ -162,4 +162,4 @@ module EventStreamInterpreter = async { return result } - loop prog Map.empty Vector.empty \ No newline at end of file + loop prog Map.empty PersistentVector.empty \ No newline at end of file diff --git a/src/Eventful.EventStore/Eventful.EventStore.fsproj b/src/Eventful.EventStore/Eventful.EventStore.fsproj index c09be27..bb455fd 100644 --- a/src/Eventful.EventStore/Eventful.EventStore.fsproj +++ b/src/Eventful.EventStore/Eventful.EventStore.fsproj @@ -78,23 +78,32 @@ True - + + ..\packages\FSharp.Control.AsyncSeq.2.0.1\lib\net45\FSharp.Control.AsyncSeq.dll + True + + + ..\packages\FSharp.Core.3.1.2.1\lib\net40\FSharp.Core.dll True ..\packages\FSharp.Data.2.2.0\lib\net40\FSharp.Data.dll True + + ..\packages\FSharpx.Async.1.12.0\lib\net40\FSharpx.Async.dll + True + - ..\packages\FSharpx.Collections.1.9.4\lib\net35\FSharpx.Collections.dll + ..\packages\FSharpx.Collections.1.10.1\lib\net40\FSharpx.Collections.dll True - - ..\packages\FSharpx.Core.1.8.41\lib\40\FSharpx.Core.dll + + ..\packages\FSharpx.Extras.1.10.2\lib\40\FSharpx.Extras.dll True - ..\packages\Metrics.NET.0.2.6\lib\net45\Metrics.dll + ..\..\..\packages\Metrics.NET.0.3.2-pre\lib\net45\Metrics.dll True diff --git a/src/Eventful.EventStore/MultiTenancyEventStoreSubscriber.fs b/src/Eventful.EventStore/MultiTenancyEventStoreSubscriber.fs index b080cb4..a7e9800 100644 --- a/src/Eventful.EventStore/MultiTenancyEventStoreSubscriber.fs +++ b/src/Eventful.EventStore/MultiTenancyEventStoreSubscriber.fs @@ -3,7 +3,7 @@ open EventStore.ClientAPI open Eventful open Metrics -open FSharp.Control +open FSharpx.Control type MultiTenancyEventStoreSubscriber<'TWrappedEvent> ( diff --git a/src/Eventful.EventStore/app.config b/src/Eventful.EventStore/app.config index 63e4732..86ba0af 100644 --- a/src/Eventful.EventStore/app.config +++ b/src/Eventful.EventStore/app.config @@ -12,7 +12,7 @@ - + diff --git a/src/Eventful.EventStore/packages.config b/src/Eventful.EventStore/packages.config index df9520b..78f3c36 100644 --- a/src/Eventful.EventStore/packages.config +++ b/src/Eventful.EventStore/packages.config @@ -1,9 +1,12 @@  + + - - - + + + + \ No newline at end of file diff --git a/src/Eventful.Neo4j/Eventful.Neo4j.fsproj b/src/Eventful.Neo4j/Eventful.Neo4j.fsproj index 7d23176..9490eaa 100644 --- a/src/Eventful.Neo4j/Eventful.Neo4j.fsproj +++ b/src/Eventful.Neo4j/Eventful.Neo4j.fsproj @@ -72,28 +72,37 @@ + + ..\..\..\packages\FSharp.Control.AsyncSeq.2.0.1\lib\net45\FSharp.Control.AsyncSeq.dll + True + + + ..\..\..\packages\FSharp.Core.3.1.2.1\lib\net40\FSharp.Core.dll + True + ..\packages\FSharp.Data.2.2.0\lib\net40\FSharp.Data.dll True + + ..\..\..\packages\FSharpx.Async.1.12.0\lib\net40\FSharpx.Async.dll + True + - ..\packages\FSharpx.Collections.1.9.4\lib\net35\FSharpx.Collections.dll + ..\..\..\packages\FSharpx.Collections.1.10.1\lib\net40\FSharpx.Collections.dll True - - ..\packages\FSharpx.Core.1.8.41\lib\40\FSharpx.Core.dll + + ..\..\..\packages\FSharpx.Extras.1.10.2\lib\40\FSharpx.Extras.dll True - ..\packages\Metrics.NET.0.2.8\lib\net45\Metrics.dll + ..\..\..\packages\Metrics.NET.0.3.2-pre\lib\net45\Metrics.dll True - - True - - ..\packages\Newtonsoft.Json.6.0.3\lib\net45\Newtonsoft.Json.dll + ..\..\..\packages\Newtonsoft.Json.7.0.1\lib\net45\Newtonsoft.Json.dll True @@ -129,11 +138,6 @@ True - - - - -