eventful-memory 0.1.0 → 0.1.1

raw patch · 3 files changed

+11/−8 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• eventful-memory.cabal +7/−1
• src/Eventful/Store/Memory.hs +0/−3
• tests/Eventful/Store/MemorySpec.hs +4/−4

@@ -3,11 +3,13 @@ -- see: https://github.com/sol/hpack  name:           eventful-memory-version:        0.1.0+version:        0.1.1 synopsis:       In-memory implementations for eventful description:    In-memory implementations for eventful category:       Database,Eventsourcing stability:      experimental+homepage:       https://github.com/jdreaver/eventful#readme+bug-reports:    https://github.com/jdreaver/eventful/issues maintainer:     David Reaver license:        MIT license-file:   LICENSE.md@@ -17,6 +19,10 @@ extra-source-files:     CHANGELOG.md     README.md++source-repository head+  type: git+  location: https://github.com/jdreaver/eventful  library   hs-source-dirs:

@@ -37,9 +37,6 @@     getSequencedEvents seqNum = flip lookupEventMapSeq seqNum <$> readTVar tvar   return (EventStore{..}, GloballyOrderedEventStore{..}) -memoryEventStoreGetAllUuids :: TVar (EventMap serialized) -> STM [UUID]-memoryEventStoreGetAllUuids tvar = fmap fst . Map.toList . _eventMapUuidMap <$> readTVar tvar- lookupEventMapRaw :: EventMap serialized -> UUID -> Seq (StoredEvent serialized) lookupEventMapRaw (EventMap uuidMap _) uuid =    fmap globallyOrderedEventEvent $ fromMaybe Seq.empty $ Map.lookup uuid uuidMap

@@ -17,22 +17,22 @@     eventStoreSpec makeStore (const atomically)     sequencedEventStoreSpec makeGlobalStore (const atomically) -makeStore :: IO (MemoryEventStore serialized, ())+makeStore :: IO (EventStore serialized STM, ()) makeStore = do   (store, _, ()) <- makeGlobalStore   return (store, ()) -makeGlobalStore :: IO (MemoryEventStore serialized, GloballyOrderedMemoryEventStore serialized, ())+makeGlobalStore :: IO (EventStore serialized STM, GloballyOrderedEventStore serialized STM, ()) makeGlobalStore = do   (store, globalStore) <- memoryEventStore   return (store, globalStore, ()) -makeDynamicStore :: IO (MemoryEventStore CounterEvent, ())+makeDynamicStore :: IO (EventStore CounterEvent STM, ()) makeDynamicStore = do   (store, _, ()) <- makeDynamicGlobalStore   return (store, ()) -makeDynamicGlobalStore :: IO (MemoryEventStore CounterEvent, GloballyOrderedMemoryEventStore CounterEvent, ())+makeDynamicGlobalStore :: IO (EventStore CounterEvent STM, GloballyOrderedEventStore CounterEvent STM, ()) makeDynamicGlobalStore = do   (store, globalStore) <- memoryEventStore   let