eventsource-stub-store 1.1.0 → 1.1.1

raw patch · 4 files changed

+12/−9 lines, 4 filesdep ~eventsource-store-specsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: eventsource-store-specs

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−1
• eventsource-stub-store.cabal +3/−3
• library/EventSource/Store/Stub.hs +2/−3
• package.yaml +2/−2

@@ -1,3 +1,7 @@+1.1.1+=====+  * `readStream` implementation no longer fails when a stream doesn't exist.+ 1.1.0 =====   * Migrate to `eventsource-api` 1.5.0.@@ -8,7 +12,7 @@  1.0.2 =====-  * Fix Stackkage build+  * Fix Stackage build  1.0.1 =====

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 6bf5cd36883ab45f3f130b02c76266552e44fb5e1924500305bb13c68056edb5+-- hash: 530e1efbbba7d2921ffa80f3bba1bd6054d1f0032d92fba3560abd2a80471633  name:           eventsource-stub-store-version:        1.1.0+version:        1.1.1 synopsis:       An in-memory stub store implementation. description:    An in-memory stub store implementation. category:       Eventsourcing@@ -56,7 +56,7 @@       aeson     , base     , eventsource-api-    , eventsource-store-specs ==1.*+    , eventsource-store-specs >=1.2.1     , eventsource-stub-store     , protolude     , streaming

@@ -26,12 +26,11 @@ -------------------------------------------------------------------------------- import           Control.Concurrent.STM (STM) import qualified Control.Concurrent.STM as STM-import Data.Foldable (for_, foldl')+import           Data.Foldable (for_, foldl')  -------------------------------------------------------------------------------- import           Control.Concurrent.Async (async) import           Control.Monad.Base (MonadBase, liftBase)-import           Control.Monad.Except (throwError) import           Control.Monad.State.Strict (execState) import           Data.Map.Strict (Map) import qualified Data.Map.Strict as Map@@ -195,7 +194,7 @@   readStream StubStore{..} name (Batch' start _) = effect $ do     streamMap <- liftBase $ STM.readTVarIO _streams     case Map.lookup name streamMap of-      Nothing -> throwError $ StreamNotFound name+      Nothing -> pure mempty       Just stream ->         let events = S.filter ((>= start) . eventNumber) $ streamEvents stream          in pure $ Streaming.each events

@@ -34,7 +34,7 @@   eventsource-stub-store-test-suite:     dependencies:     - base-    - eventsource-store-specs ==1.*+    - eventsource-store-specs >=1.2.1     - eventsource-stub-store     - tasty     - tasty-hspec@@ -47,4 +47,4 @@     - -with-rtsopts=-N     main: Main.hs     source-dirs: test-suite-version: '1.1.0'+version: '1.1.1'