eventsource-geteventstore-store 1.0.0 → 1.0.1
raw patch · 4 files changed
+27/−24 lines, 4 filesdep ~eventsource-apiPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: eventsource-api
API changes (from Hackage documentation)
Files
- CHANGELOG.md +3/−6
- eventsource-geteventstore-store.cabal +2/−2
- library/EventSource/Store/GetEventStore.hs +20/−14
- package.yaml +2/−2
CHANGELOG.md view
@@ -1,7 +1,4 @@-# Change log--geteventstore-store uses [Semantic Versioning][].-The change log is available through the [releases on GitHub][].+1.0.1+===== -[Semantic Versioning]: http://semver.org/spec/v2.0.0.html-[releases on GitHub]: https://github.com/githubuser/geteventstore-store/releases+* Support `linkEvent` in `SavedEvent`.
eventsource-geteventstore-store.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: eventsource-geteventstore-store-version: 1.0.0+version: 1.0.1 synopsis: GetEventStore store implementation. description: GetEventStore store implementation. category: Eventsourcing@@ -36,7 +36,7 @@ base >=4.9 && <5 , protolude >=0.1.10 && <0.2 , eventstore ==0.14.*- , eventsource-api ==1.*+ , eventsource-api >= 1.1 , aeson , mtl exposed-modules:
library/EventSource/Store/GetEventStore.hs view
@@ -73,21 +73,27 @@ -------------------------------------------------------------------------------- fromGesEvent :: GES.ResolvedEvent -> SavedEvent-fromGesEvent e = saved+fromGesEvent e@(GES.ResolvedEvent recEvt lnkEvt _) = saved where- re = GES.resolvedEventOriginal e- eid = EventId $ GES.recordedEventId re- etyp = EventType $ GES.recordedEventType re- num = GES.recordedEventNumber re- payload = GES.recordedEventData re- metaBytes = GES.recordedEventMetadata re- event = Event { eventType = etyp- , eventId = eid- , eventPayload = dataFromBytes payload- , eventMetadata = decodeStrict =<< metaBytes- }- saved = SavedEvent { eventNumber = EventNumber num- , savedEvent = event+ re =+ case recEvt of+ Just result -> result+ _ -> GES.resolvedEventOriginal e++ make evt =+ let eid = EventId $ GES.recordedEventId evt+ etyp = EventType $ GES.recordedEventType evt+ payload = GES.recordedEventData evt+ metaBytes = GES.recordedEventMetadata evt in+ Event { eventType = etyp+ , eventId = eid+ , eventPayload = dataFromBytes payload+ , eventMetadata = decodeStrict =<< metaBytes+ }++ saved = SavedEvent { eventNumber = EventNumber $ GES.recordedEventNumber re+ , savedEvent = make re+ , linkEvent = fmap make lnkEvt } --------------------------------------------------------------------------------
package.yaml view
@@ -18,7 +18,7 @@ - base >=4.9 && <5 - protolude >=0.1.10 && <0.2 - eventstore ==0.14.*- - eventsource-api ==1.*+ - eventsource-api >= 1.1 - aeson - mtl source-dirs: library@@ -45,4 +45,4 @@ - -with-rtsopts=-N main: Main.hs source-dirs: test-suite-version: '1.0.0'+version: '1.0.1'