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 1
1
namespace SqlStreamStore.FSharp
2
2
3
- open SqlStreamStore.Streams
4
-
5
3
[<RequireQualifiedAccessAttribute>]
6
- type Version =
4
+ type AppendVersion =
7
5
| Any
8
6
| EmptyStream
9
7
| NoStream
10
8
| SpecificVersion of int
11
9
12
- type StreamDetails =
10
+ type AppendStreamDetails =
11
+ { streamName: string
12
+ version: AppendVersion }
13
+
14
+ type ReadStreamDetails =
13
15
{ streamName: string
14
- version: Version }
16
+ version: ReadVersion }
17
+
18
+ and ReadVersion = uint
15
19
16
20
type StartPositionInclusive = int64
17
21
type MessageCount = int
@@ -22,9 +26,9 @@ type AppendException =
22
26
| Other of System.Exception
23
27
24
28
module Helpers =
25
- let toVersion : Version -> int =
29
+ let getVersion : AppendVersion -> int =
26
30
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