diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,7 +1,3 @@
-# Change log
-
-stub-store uses [Semantic Versioning][].
-The change log is available through the [releases on GitHub][].
-
-[Semantic Versioning]: http://semver.org/spec/v2.0.0.html
-[releases on GitHub]: https://github.com/githubuser/stub-store/releases
+1.0.1
+=====
+  * Support changes in api.
diff --git a/eventsource-stub-store.cabal b/eventsource-stub-store.cabal
--- a/eventsource-stub-store.cabal
+++ b/eventsource-stub-store.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           eventsource-stub-store
-version:        1.0.0
+version:        1.0.1
 synopsis:       An in-memory stub store implementation.
 description:    An in-memory stub store implementation.
 category:       Eventsourcing
@@ -34,7 +34,7 @@
   ghc-options: -Wall
   build-depends:
       base >=4.9 && <5
-    , eventsource-api ==1.*
+    , eventsource-api >=1.1
     , protolude >=0.1.10 && <0.2
     , containers
     , mtl
diff --git a/library/EventSource/Store/Stub.hs b/library/EventSource/Store/Stub.hs
--- a/library/EventSource/Store/Stub.hs
+++ b/library/EventSource/Store/Stub.hs
@@ -89,7 +89,7 @@
       let num = streamNextNumber s
           evts = streamEvents s in
       s { streamNextNumber = num + 1
-        , streamEvents = evts |> SavedEvent num e
+        , streamEvents = evts |> SavedEvent num e Nothing
         }
 
 --------------------------------------------------------------------------------
@@ -143,7 +143,7 @@
 
           -- This part is already performed in 'appendStream' but difficult
           -- to take its logic apart from building 'SavedEvent's.
-          let saved = uncurry SavedEvent <$> zip [0..] events
+          let saved = (\(num, evt) -> SavedEvent num evt Nothing) <$> zip [0..] events
           notifySubs self name saved
           let Just last = getLast $ foldMap (Last . Just) saved
               nextNum = eventNumber last + 1
@@ -169,7 +169,7 @@
 
           -- This part is already performed in 'appendStream' but difficult
           -- to take its logic apart from building 'SavedEvent's.
-          let saved = uncurry SavedEvent <$> zip [currentNumber..] events
+          let saved = (\(num, evt) -> SavedEvent num evt Nothing) <$> zip [currentNumber..] events
           notifySubs self name saved
           let Just last = getLast $ foldMap (Last . Just) saved
               nextNum = eventNumber last + 1
diff --git a/package.yaml b/package.yaml
--- a/package.yaml
+++ b/package.yaml
@@ -16,7 +16,7 @@
     - NoImplicitPrelude
   dependencies:
   - base >=4.9 && <5
-  - eventsource-api ==1.*
+  - eventsource-api >=1.1
   - protolude >=0.1.10 && <0.2
   - containers
   - mtl
@@ -43,4 +43,4 @@
     - -with-rtsopts=-N
     main: Main.hs
     source-dirs: test-suite
-version: '1.0.0'
+version: '1.0.1'