eventium-sqlite 0.2.1 → 0.3.0
raw patch · 2 files changed
+8/−8 lines, 2 filesdep ~eventium-coredep ~eventium-sql-common
Dependency ranges changed: eventium-core, eventium-sql-common
Files
eventium-sqlite.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: eventium-sqlite-version: 0.2.1+version: 0.3.0 synopsis: SQLite implementations for eventium description: Eventium-sqlite provides a SQLite-based event store implementation for the Eventium event sourcing framework. It uses the Persistent library for type-safe database access and provides efficient event@@ -50,8 +50,8 @@ aeson >=1.5 && <2.3 , base >=4.9 && <5 , bytestring >=0.10 && <0.13- , eventium-core >=0.2.0 && <0.3.0- , eventium-sql-common >=0.2.0 && <0.3.0+ , eventium-core >=0.3.0 && <0.4.0+ , eventium-sql-common >=0.3.0 && <0.4.0 , mtl >=2.2 && <2.4 , persistent >=2.14 && <2.18 , text >=1.2 && <2.2@@ -84,8 +84,8 @@ , aeson >=1.5 && <2.3 , base >=4.9 && <5 , bytestring >=0.10 && <0.13- , eventium-core >=0.2.0 && <0.3.0- , eventium-sql-common >=0.2.0 && <0.3.0+ , eventium-core >=0.3.0 && <0.4.0+ , eventium-sql-common >=0.3.0 && <0.4.0 , eventium-testkit , hspec , mtl >=2.2 && <2.4
src/Eventium/Store/Sqlite.hs view
@@ -5,7 +5,7 @@ -- | Defines an Sqlite event store. module Eventium.Store.Sqlite ( sqliteEventStoreWriter,- sqliteEventStoreWriterTagged,+ sqliteTaggedEventStoreWriter, initializeSqliteEventStore, module Eventium.Store.Class, module Eventium.Store.Sql,@@ -32,11 +32,11 @@ -- | Like 'sqliteEventStoreWriter' but accepts 'TaggedEvent's, -- preserving the metadata attached to each event.-sqliteEventStoreWriterTagged ::+sqliteTaggedEventStoreWriter :: (MonadIO m, PersistEntity entity, PersistEntityBackend entity ~ SqlBackend, SafeToInsert entity) => SqlEventStoreConfig entity serialized -> VersionedEventStoreWriter (SqlPersistT m) (TaggedEvent serialized)-sqliteEventStoreWriterTagged config = EventStoreWriter $ transactionalExpectedWriteHelper getLatestVersion storeEvents'+sqliteTaggedEventStoreWriter config = EventStoreWriter $ transactionalExpectedWriteHelper getLatestVersion storeEvents' where getLatestVersion = sqlMaxEventVersion config maxSqliteVersionSql storeEvents' = sqlStoreEventsTagged config Nothing maxSqliteVersionSql