File tree Expand file tree Collapse file tree 1 file changed +14
-10
lines changed Expand file tree Collapse file tree 1 file changed +14
-10
lines changed Original file line number Diff line number Diff line change 11namespace SqlStreamStore.FSharp
22
3- open SqlStreamStore.Streams
4-
53[<RequireQualifiedAccessAttribute>]
6- type Version =
4+ type AppendVersion =
75 | Any
86 | EmptyStream
97 | NoStream
108 | SpecificVersion of int
119
12- type StreamDetails =
10+ type AppendStreamDetails =
11+ { streamName: string
12+ version: AppendVersion }
13+
14+ type ReadStreamDetails =
1315 { streamName: string
14- version: Version }
16+ version: ReadVersion }
17+
18+ and ReadVersion = uint
1519
1620type StartPositionInclusive = int64
1721type MessageCount = int
@@ -22,9 +26,9 @@ type AppendException =
2226 | Other of System.Exception
2327
2428module Helpers =
25- let toVersion : Version -> int =
29+ let getVersion : AppendVersion -> int =
2630 function
27- | Version .Any -> ExpectedVersion.Any
28- | Version .EmptyStream -> ExpectedVersion.EmptyStream
29- | Version .NoStream -> ExpectedVersion.NoStream
30- | Version .SpecificVersion version -> version
31+ | AppendVersion .Any -> SqlStreamStore.Streams. ExpectedVersion.Any
32+ | AppendVersion .EmptyStream -> SqlStreamStore.Streams. ExpectedVersion.EmptyStream
33+ | AppendVersion .NoStream -> SqlStreamStore.Streams. ExpectedVersion.NoStream
34+ | AppendVersion .SpecificVersion version -> version
You can’t perform that action at this time.
0 commit comments