eventstore 0.13.0.1 → 0.13.1.0

raw patch · 4 files changed

+15/−2 lines, 4 files

Files

• CHANGELOG.markdown +4/−0
• Database/EventStore.hs +1/−0
• Database/EventStore/Internal/Types.hs +9/−1
• eventstore.cabal +1/−1

@@ -1,3 +1,7 @@+0.13.1.0+--------+* Add `streamExists` `ExpectedVersion` smart constructor.+ 0.13.0.1 -------- * Bump protobuf version

@@ -176,6 +176,7 @@     , noStreamVersion     , emptyStreamVersion     , exactEventVersion+    , streamExists       -- * Re-export     , module Control.Concurrent.Async     , (<>)

@@ -154,6 +154,7 @@     | NoStream     | EmptyStream     | Exact Int32+    | StreamExists     deriving (Eq, Show)  --------------------------------------------------------------------------------@@ -161,8 +162,9 @@ expVersionInt32 :: ExpectedVersion -> Int32 expVersionInt32 Any         = -2 expVersionInt32 NoStream    = -1-expVersionInt32 EmptyStream = 0+expVersionInt32 EmptyStream = -1 expVersionInt32 (Exact i)   = i+expVersionInt32 StreamExists = -4  -------------------------------------------------------------------------------- -- | This write should not conflict with anything and should always succeed.@@ -188,6 +190,12 @@ exactEventVersion i     | i < 0     = error $ "expected version must be >= 0, but is " ++ show i     | otherwise = Exact i++--------------------------------------------------------------------------------+-- | The stream should exist. If it or a metadata stream does not exist treat+--   that as a concurrency problem.+streamExists :: ExpectedVersion+streamExists = streamExists  -------------------------------------------------------------------------------- -- EventStore Messages

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.13.0.1+version:             0.13.1.0  tested-with: GHC >= 7.8.3 && < 7.11