File tree Expand file tree Collapse file tree 1 file changed +14
-7
lines changed Expand file tree Collapse file tree 1 file changed +14
-7
lines changed Original file line number Diff line number Diff line change 1
1
namespace SqlStreamStore.FSharp
2
2
3
+ type MessageDetails =
4
+ { id: Id
5
+ type_: string
6
+ jsonData: string
7
+ jsonMetadata: string }
8
+
9
+ and Id =
10
+ | Custom of System.Guid
11
+ | Auto
12
+
3
13
[<RequireQualifiedAccessAttribute>]
4
14
type AppendVersion =
5
15
| Any
@@ -25,10 +35,7 @@ type AppendException =
25
35
| WrongExpectedVersion of System.Exception
26
36
| Other of System.Exception
27
37
28
- module Helpers =
29
- let getVersion : AppendVersion -> int =
30
- function
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
38
+ [<RequireQualifiedAccessAttribute>]
39
+ type ReadingDirection =
40
+ | Forward
41
+ | Backward
You can’t perform that action at this time.
0 commit comments