Skip to content

Commit 5b88bb9

Browse files
author
Jamil Maqdis Anton
committed
Move all types from other modules here. Refactor.
1 parent f2b3d0f commit 5b88bb9

File tree

1 file changed

+14
-7
lines changed

1 file changed

+14
-7
lines changed

src/Types.fs

Lines changed: 14 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,15 @@
11
namespace SqlStreamStore.FSharp
22

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+
313
[<RequireQualifiedAccessAttribute>]
414
type AppendVersion =
515
| Any
@@ -25,10 +35,7 @@ type AppendException =
2535
| WrongExpectedVersion of System.Exception
2636
| Other of System.Exception
2737

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

0 commit comments

Comments
 (0)